(pages-copy-header-and-position): Add help-echo to mouse-highlighted text.

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