Commit dee0ed52 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Remove XEmacs support from goto-addr.el

* lisp/net/goto-addr.el (goto-address-highlight-keymap): Remove
XEmacs support.
parent 9fb448e0
......@@ -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.")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment