Mercurial > emacs
changeset 17802:77d8356a7eed
(browse-url-event-buffer):
Function renamed from event-buffer. Callers changed.
(browse-url-event-point): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 May 1997 19:47:48 +0000 |
| parents | 49d32f8e9f71 |
| children | 906dcb974266 |
| files | lisp/browse-url.el |
| diffstat | 1 files changed, 6 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/browse-url.el Wed May 14 18:42:57 1997 +0000 +++ b/lisp/browse-url.el Wed May 14 19:47:48 1997 +0000 @@ -535,15 +535,11 @@ ;; Define these if not already defined (XEmacs compatibility) -(eval-and-compile - (or (fboundp 'event-buffer) - (defun event-buffer (event) - (window-buffer (posn-window (event-start event)))))) +(defun browse-url-event-buffer (event) + (window-buffer (posn-window (event-start event)))) -(eval-and-compile - (or (fboundp 'event-point) - (defun event-point (event) - (posn-point (event-start event))))) +(defun browse-url-event-point (event) + (posn-point (event-start event))) ;;;###autoload (defun browse-url-at-mouse (event) @@ -554,8 +550,8 @@ to use." (interactive "e") (save-excursion - (set-buffer (event-buffer event)) - (goto-char (event-point event)) + (set-buffer (browse-url-event-buffer event)) + (goto-char (browse-url-event-point event)) (let ((url (browse-url-url-at-point))) (if (string-equal url "") (error "No URL found"))