Mercurial > emacs
changeset 6641:4e76332f7b44
(summarize-tar-header-block): Add mouse-face properties.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 02 Apr 1994 05:52:36 +0000 |
| parents | 532754d63384 |
| children | 2fda5dd17356 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Sat Apr 02 05:31:31 1994 +0000 +++ b/lisp/tar-mode.el Sat Apr 02 05:52:36 1994 +0000 @@ -369,6 +369,8 @@ (progn (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i))) (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i))))) + (put-text-property namestart (length string) + 'mouse-face 'highlight string) string)))