From dc44c48c48dc25cc1dff3b2c6e1923208ed9c86e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:24:36 +0000 Subject: [PATCH] (pages-copy-header-and-position): Add help-echo to mouse-highlighted text. --- lisp/textmodes/page-ext.el | 5 +++-- 1 file 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 -- 2.39.2