From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 14 May 1997 19:47:48 +0000 (+0000)
Subject: (browse-url-event-buffer):
X-Git-Tag: emacs-20.1~2143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78c11a9ccead5aa8a56e91f6f9fd56e411107079;p=emacs.git

(browse-url-event-buffer):
Function renamed from event-buffer.  Callers changed.
(browse-url-event-point): Likewise.
---

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"))