diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-02 05:52:36 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-02 05:52:36 +0000 |
| commit | 84258c5dcce7af9aadfcd126f93fdce27309b108 (patch) | |
| tree | c2ed459b2e351f5c5f270d7bdeaaaa618ea01be4 /lisp/tar-mode.el | |
| parent | e5ea316b8ade737c73f151f7ccc55146227f22bd (diff) | |
| download | emacs-84258c5dcce7af9aadfcd126f93fdce27309b108.tar.gz | |
(summarize-tar-header-block): Add mouse-face properties.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 0343c477f6e..87e1a656812 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -369,6 +369,8 @@ write-date, checksum, link-type, and link-name." (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))) |