[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master dee0ed5 3/5: Remove XEmacs support from goto-addr.e
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master dee0ed5 3/5: Remove XEmacs support from goto-addr.el |
Date: |
Wed, 12 Jun 2019 17:27:08 -0400 (EDT) |
branch: master
commit dee0ed52c093818d14e6e6281199a1d55a012309
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove XEmacs support from goto-addr.el
* lisp/net/goto-addr.el (goto-address-highlight-keymap): Remove
XEmacs support.
---
lisp/net/goto-addr.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el
index c25d787..af2b836 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.")