diff options
| author | Lars Ingebrigtsen | 2019-06-12 23:15:18 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-12 23:26:56 +0200 |
| commit | dee0ed52c093818d14e6e6281199a1d55a012309 (patch) | |
| tree | 93f4cf62b330aa41b79e5f77952bf6a6ffec31e5 | |
| parent | 9fb448e00cabb7e5e623f42b3bf135b0d747f140 (diff) | |
| download | emacs-dee0ed52c093818d14e6e6281199a1d55a012309.tar.gz emacs-dee0ed52c093818d14e6e6281199a1d55a012309.zip | |
Remove XEmacs support from goto-addr.el
* lisp/net/goto-addr.el (goto-address-highlight-keymap): Remove
XEmacs support.
| -rw-r--r-- | lisp/net/goto-addr.el | 3 |
1 files changed, 1 insertions, 2 deletions
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." | |||
| 122 | 122 | ||
| 123 | (defvar goto-address-highlight-keymap | 123 | (defvar goto-address-highlight-keymap |
| 124 | (let ((m (make-sparse-keymap))) | 124 | (let ((m (make-sparse-keymap))) |
| 125 | (define-key m (if (featurep 'xemacs) (kbd "<button2>") (kbd "<mouse-2>")) | 125 | (define-key m (kbd "<mouse-2>") 'goto-address-at-point) |
| 126 | 'goto-address-at-point) | ||
| 127 | (define-key m (kbd "C-c RET") 'goto-address-at-point) | 126 | (define-key m (kbd "C-c RET") 'goto-address-at-point) |
| 128 | m) | 127 | m) |
| 129 | "Keymap to hold goto-addr's mouse key defs under highlighted URLs.") | 128 | "Keymap to hold goto-addr's mouse key defs under highlighted URLs.") |