diff options
| author | Richard M. Stallman | 2002-03-08 09:39:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-03-08 09:39:16 +0000 |
| commit | 24f6a9876516f8b3dd6fcaaf4b1dfb9f78c92121 (patch) | |
| tree | 66f470b5bb7c99aa76c0181bf57b7e8499d994b6 | |
| parent | ff39e69ccd6fd617b14b05a60c2c98b6b3784b12 (diff) | |
| download | emacs-24f6a9876516f8b3dd6fcaaf4b1dfb9f78c92121.tar.gz emacs-24f6a9876516f8b3dd6fcaaf4b1dfb9f78c92121.zip | |
(Info-fontify-node): Bind up-clicks, not down-clicks.
Put the mouse-face on the entire xref, like the local keymap.
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index 9ce5bb7ea44..7e0dad00923 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2603,7 +2603,7 @@ the variable `Info-file-list-for-emacs'." | |||
| 2603 | (if (string-equal tag "Node") | 2603 | (if (string-equal tag "Node") |
| 2604 | (put-text-property nbeg nend 'face 'info-header-node) | 2604 | (put-text-property nbeg nend 'face 'info-header-node) |
| 2605 | (put-text-property nbeg nend 'face 'info-header-xref) | 2605 | (put-text-property nbeg nend 'face 'info-header-xref) |
| 2606 | (put-text-property nbeg nend 'mouse-face 'highlight) | 2606 | (put-text-property tbeg nend 'mouse-face 'highlight) |
| 2607 | (put-text-property tbeg nend | 2607 | (put-text-property tbeg nend |
| 2608 | 'help-echo | 2608 | 'help-echo |
| 2609 | (concat "Go to node " | 2609 | (concat "Go to node " |
| @@ -2616,8 +2616,8 @@ the variable `Info-file-list-for-emacs'." | |||
| 2616 | ("Up" . Info-up)))))) | 2616 | ("Up" . Info-up)))))) |
| 2617 | (when fun | 2617 | (when fun |
| 2618 | (let ((keymap (make-sparse-keymap))) | 2618 | (let ((keymap (make-sparse-keymap))) |
| 2619 | (define-key keymap [header-line down-mouse-1] fun) | 2619 | (define-key keymap [header-line mouse-1] fun) |
| 2620 | (define-key keymap [header-line down-mouse-2] fun) | 2620 | (define-key keymap [header-line mouse-2] fun) |
| 2621 | (put-text-property tbeg nend 'local-map keymap))))) | 2621 | (put-text-property tbeg nend 'local-map keymap))))) |
| 2622 | (if (not Info-use-header-line) | 2622 | (if (not Info-use-header-line) |
| 2623 | ;; In case they switched Info-use-header-line off | 2623 | ;; In case they switched Info-use-header-line off |