# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863639268 0
# Node ID 77d8356a7eed490f934e234da3edf3b898a7c4bb
# Parent  49d32f8e9f71dfffefa0669bd6a8b7c1ed2dfbd1
(browse-url-event-buffer):
Function renamed from event-buffer.  Callers changed.
(browse-url-event-point): Likewise.

diff -r 49d32f8e9f71 -r 77d8356a7eed lisp/browse-url.el
--- 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"))