Mercurial > hg > xemacs-beta
comparison lisp/packages/tar-mode.el @ 155:43dd3413c7c7 r20-3b4
Import from CVS: tag r20-3b4
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:39:39 +0200 |
parents | 538048ae2ab8 |
children | 28f395d8dc7a |
comparison
equal
deleted
inserted
replaced
154:94141801dd7e | 155:43dd3413c7c7 |
---|---|
492 (define-key tar-mode-map "E" 'tar-extract-other-window) | 492 (define-key tar-mode-map "E" 'tar-extract-other-window) |
493 (define-key tar-mode-map "M" 'tar-chmod-entry) | 493 (define-key tar-mode-map "M" 'tar-chmod-entry) |
494 (define-key tar-mode-map "G" 'tar-chgrp-entry) | 494 (define-key tar-mode-map "G" 'tar-chgrp-entry) |
495 (define-key tar-mode-map "O" 'tar-chown-entry) | 495 (define-key tar-mode-map "O" 'tar-chown-entry) |
496 | 496 |
497 (cond ((string-match "XEmacs" emacs-version) | 497 (cond ((and (featurep 'xemacs) |
498 (not (featurep 'infodock))) | |
498 (define-key tar-mode-map 'button2 'tar-track-mouse-and-extract-file) | 499 (define-key tar-mode-map 'button2 'tar-track-mouse-and-extract-file) |
499 (define-key tar-mode-map 'button3 'tar-popup-menu))) | 500 (define-key tar-mode-map 'button3 'tar-popup-menu))) |
500 ) | 501 ) |
501 | 502 |
502 | 503 |