Commit dc44c48c authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

parent a28eaf2c
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment