diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:24:36 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:24:36 +0000 |
| commit | dc44c48c48dc25cc1dff3b2c6e1923208ed9c86e (patch) | |
| tree | cb1b81bc76d6953e6e31f75be81c41d114064454 /lisp/textmodes/page-ext.el | |
| parent | a28eaf2c9b61be1a7d73b9e4a763c39716ffeee9 (diff) | |
| download | emacs-dc44c48c48dc25cc1dff3b2c6e1923208ed9c86e.tar.gz | |
(pages-copy-header-and-position): Add help-echo to mouse-highlighted text.
Diffstat (limited to 'lisp/textmodes/page-ext.el')
| -rw-r--r-- | lisp/textmodes/page-ext.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/textmodes/page-ext.el b/lisp/textmodes/page-ext.el index 461d71d06d9..c5f50fe2840 100644 --- a/lisp/textmodes/page-ext.el +++ b/lisp/textmodes/page-ext.el @@ -680,8 +680,9 @@ Used by `pages-directory' function." ;; insert page header (setq inserted-at (point)) (insert-buffer-substring target-buffer start end) - (put-text-property inserted-at (point) - 'mouse-face 'highlight) + (add-text-properties inserted-at (point) + '(mouse-face highlight + help-echo "mouse-2: go to this page")) (put-text-property inserted-at (point) 'rear-nonsticky 'highlight)) (if count-lines-p |