diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-14 19:47:48 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-14 19:47:48 +0000 |
commit | 8024957addeb6b0d822085eb42e3c808ac2dfa02 (patch) | |
tree | 9ad07199fc46ff4c4eeb0ee22f1659cd6181c772 /lisp/browse-url.el | |
parent | acf1e5391c0e1dc03f1b30c73ff5948cb95c7647 (diff) | |
download | emacs-8024957addeb6b0d822085eb42e3c808ac2dfa02.tar.gz |
(browse-url-event-buffer):
Function renamed from event-buffer. Callers changed.
(browse-url-event-point): Likewise.
Diffstat (limited to 'lisp/browse-url.el')
-rw-r--r-- | lisp/browse-url.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index 2f6012c68df..8b00ac2603e 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el @@ -535,15 +535,11 @@ Doesn't let you edit the URL like browse-url. Variable ;; 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 @@ browse-url. Variable `browse-url-browser-function' says which browser 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")) |