diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-04-16 14:46:46 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-04-16 14:46:46 -0400 |
| commit | 6b955486f5d3527479536b760a926ecea0447a80 (patch) | |
| tree | b662546563f7543966e6504fe26ec76fe7af0d21 /lisp/tar-mode.el | |
| parent | 94ee8db5e0a8bfa2aa68859782960b7140dae935 (diff) | |
| download | emacs-6b955486f5d3527479536b760a926ecea0447a80.tar.gz | |
Replace a use of eval-after-load
* lisp/woman.el: Remove eval-after-load for tar-mode.
* lisp/tar-mode.el (tar-mode-map): Add woman binding and menu entry.
(woman-tar-extract-file): Autoload it.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 3eb2be15698..7c95f47e0fb 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -549,6 +549,7 @@ MODE should be an integer which is a file mode value." (define-key map "R" 'tar-rename-entry) (define-key map "u" 'tar-unflag) (define-key map "v" 'tar-view) + (define-key map "w" 'woman-tar-extract-file) (define-key map "x" 'tar-expunge) (define-key map "\177" 'tar-unflag-backwards) (define-key map "E" 'tar-extract-other-window) @@ -566,6 +567,8 @@ MODE should be an integer which is a file mode value." (define-key map [menu-bar immediate] (cons "Immediate" (make-sparse-keymap "Immediate"))) + (define-key map [menu-bar immediate woman] + '("Read Man Page (WoMan)" . woman-tar-extract-file)) (define-key map [menu-bar immediate view] '("View This File" . tar-view)) (define-key map [menu-bar immediate display] @@ -677,6 +680,8 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. (fundamental-mode) (signal (car err) (cdr err))))) +(autoload 'woman-tar-extract-file "woman" + "In tar mode, run the WoMan man-page browser on this file." t) (define-minor-mode tar-subfile-mode "Minor mode for editing an element of a tar-file. |