Mercurial > emacs

comparison lisp/tar-mode.el @ 38081:fecdcc18b027

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tar-header-block-summarize): Add help-echo to mouse-highlighted text.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 17 Jun 2001 11:23:58 +0000
parents 3561e61ffccc
children 03376ff9ccfd
comparison
equal deleted inserted replaced
38080:be5236e1efc7 38081:fecdcc18b027
364 (tar-grind-file-mode mode) 364 (tar-grind-file-mode mode)
365 (if (= 0 (length uname)) uid uname) 365 (if (= 0 (length uname)) uid uname)
366 (if (= 0 (length gname)) gid gname) 366 (if (= 0 (length gname)) gid gname)
367 size 367 size
368 (if tar-mode-show-date (tar-clip-time-string time) "") 368 (if tar-mode-show-date (tar-clip-time-string time) "")
369 (propertize name 'mouse-face 'highlight) 369 (propertize name
370 'mouse-face 'highlight
371 'help-echo "mouse-2: extract this file into a buffer")
370 (if (or (eq type 1) (eq type 2)) 372 (if (or (eq type 1) (eq type 2))
371 (concat (if (= type 1) " ==> " " --> ") link-name) 373 (concat (if (= type 1) " ==> " " --> ") link-name)
372 "")))) 374 ""))))
373 375
374 (defun tar-summarize-buffer () 376 (defun tar-summarize-buffer ()