Mercurial > emacs

changeset 17129:79f712c639b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(man-follow): New function. (Man-mode-map): Bind it.
author Karl Heuer <kwzh@gnu.org>
date Sat, 01 Mar 1997 17:45:36 +0000
parents 6de8cf26e115
children 533840a0a5ae
files lisp/man.el
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Fri Feb 28 22:40:56 1997 +0000
+++ b/lisp/man.el	Sat Mar 01 17:45:36 1997 +0000
@@ -309,6 +309,7 @@
   (define-key Man-mode-map "k"    'Man-kill)
   (define-key Man-mode-map "q"    'Man-quit)
   (define-key Man-mode-map "m"    'man)
+  (define-key Man-mode-map "\r"   'man-follow)
   (define-key Man-mode-map "?"    'describe-mode)
   )
 
@@ -523,6 +524,14 @@
 
   (Man-getpage-in-background man-args))
 
+;;;###autoload
+(defun man-follow (man-args)
+  "Get a Un*x manual page of the item under point and put it in a buffer."
+  (interactive (list (Man-default-man-entry)))
+  (if (or (not man-args)
+	  (string= man-args ""))
+      (error "No item under point")
+    (man man-args)))
 
 (defun Man-getpage-in-background (topic)
   "Uses TOPIC to build and fire off the manpage and cleaning command."