mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(Info-fontify-node): Bind up-clicks, not down-clicks.

Browse Source 
Put the mouse-face on the entire xref, like the local keymap.
This commit is contained in:
Richard M. Stallman 2002-03-08 09:39:16 +00:00
parent ff39e69ccd
commit 24f6a98765
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/info.el
View File

@ -2603,7 +2603,7 @@ the variable `Info-file-list-for-emacs'."
(if (string-equal tag "Node")
(put-text-property nbeg nend 'face 'info-header-node)
(put-text-property nbeg nend 'face 'info-header-xref)
(put-text-property nbeg nend 'mouse-face 'highlight)
(put-text-property tbeg nend 'mouse-face 'highlight)
(put-text-property tbeg nend
'help-echo
(concat "Go to node "
@ -2616,8 +2616,8 @@ the variable `Info-file-list-for-emacs'."
("Up" . Info-up))))))
(when fun
(let ((keymap (make-sparse-keymap)))
(define-key keymap [header-line down-mouse-1] fun)
(define-key keymap [header-line down-mouse-2] fun)
(define-key keymap [header-line mouse-1] fun)
(define-key keymap [header-line mouse-2] fun)
(put-text-property tbeg nend 'local-map keymap)))))
(if (not Info-use-header-line)
;; In case they switched Info-use-header-line off