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 | 9fa718e5987ded3d5e01d402959262387a61a216 (patch) | |
| tree | fb8052f91706848898601f8fba028543d1096a79 /lisp/tar-mode.el | |
| parent | d26fce9e9035e73835b628581c7bd07ee12432ee (diff) | |
| download | emacs-9fa718e5987ded3d5e01d402959262387a61a216.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))) |