From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 12 Jun 2019 21:15:18 +0000 (+0200)
Subject: Remove XEmacs support from goto-addr.el
X-Git-Tag: emacs-27.0.90~2600
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dee0ed52c093818d14e6e6281199a1d55a012309;p=emacs.git

Remove XEmacs support from goto-addr.el

* lisp/net/goto-addr.el (goto-address-highlight-keymap): Remove
XEmacs support.
---

diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index c25d7873918..af2b83653dd 100644
--- a/lisp/net/goto-addr.el
+++ b/lisp/net/goto-addr.el
@@ -122,8 +122,7 @@ A value of t means there is no limit--fontify regardless of the size."
 
 (defvar goto-address-highlight-keymap
   (let ((m (make-sparse-keymap)))
-    (define-key m (if (featurep 'xemacs) (kbd "<button2>") (kbd "<mouse-2>"))
-      'goto-address-at-point)
+    (define-key m (kbd "<mouse-2>") 'goto-address-at-point)
     (define-key m (kbd "C-c RET") 'goto-address-at-point)
     m)
   "Keymap to hold goto-addr's mouse key defs under highlighted URLs.")