Mercurial > emacs
comparison lisp/tar-mode.el @ 93612:0cdd5c9c63c2
(tar-mode-map): Obey mouse-1-click-follows-link.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Apr 2008 20:03:31 +0000 |
| parents | 8e06d480f634 |
| children | e1d36e944ae0 |
comparison
equal
deleted
inserted
replaced
| 93611:014868cc0301 | 93612:0cdd5c9c63c2 |
|---|---|
| 496 (define-key map "\177" 'tar-unflag-backwards) | 496 (define-key map "\177" 'tar-unflag-backwards) |
| 497 (define-key map "E" 'tar-extract-other-window) | 497 (define-key map "E" 'tar-extract-other-window) |
| 498 (define-key map "M" 'tar-chmod-entry) | 498 (define-key map "M" 'tar-chmod-entry) |
| 499 (define-key map "G" 'tar-chgrp-entry) | 499 (define-key map "G" 'tar-chgrp-entry) |
| 500 (define-key map "O" 'tar-chown-entry) | 500 (define-key map "O" 'tar-chown-entry) |
| 501 ;; Let mouse-1 follow the link. | |
| 502 (define-key map [follow-link] 'mouse-face) | |
| 501 | 503 |
| 502 ;; Make menu bar items. | 504 ;; Make menu bar items. |
| 503 | 505 |
| 504 ;; Get rid of the Edit menu bar item to save space. | 506 ;; Get rid of the Edit menu bar item to save space. |
| 505 (define-key map [menu-bar edit] 'undefined) | 507 (define-key map [menu-bar edit] 'undefined) |