From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 1 Mar 1997 17:45:36 +0000 (+0000)
Subject: (man-follow): New function.
X-Git-Tag: emacs-20.1~2816
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7bf8d10cdfb7ca0a1660f52d091e6aa533e1f4f;p=emacs.git

(man-follow): New function.
(Man-mode-map): Bind it.
---

diff --git a/lisp/man.el b/lisp/man.el
index 5d405ad4ba2..eb1e3a34b50 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -309,6 +309,7 @@ This regular expression should start with a `^' character.")
   (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 @@ If a buffer already exists for this man page, it will display immediately."
 
   (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."