diff options
| author | Karl Heuer | 1994-04-02 05:52:36 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-04-02 05:52:36 +0000 |
| commit | 84258c5dcce7af9aadfcd126f93fdce27309b108 (patch) | |
| tree | c2ed459b2e351f5c5f270d7bdeaaaa618ea01be4 | |
| parent | e5ea316b8ade737c73f151f7ccc55146227f22bd (diff) | |
| download | emacs-84258c5dcce7af9aadfcd126f93fdce27309b108.tar.gz emacs-84258c5dcce7af9aadfcd126f93fdce27309b108.zip | |
(summarize-tar-header-block): Add mouse-face properties.
| -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." | |||
| 369 | (progn | 369 | (progn |
| 370 | (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i))) | 370 | (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i))) |
| 371 | (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i))))) | 371 | (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i))))) |
| 372 | (put-text-property namestart (length string) | ||
| 373 | 'mouse-face 'highlight string) | ||
| 372 | string))) | 374 | string))) |
| 373 | 375 | ||
| 374 | 376 | ||