# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 857238336 0
# Node ID 79f712c639b75b472748eb0e80f78618ec832f99
# Parent  6de8cf26e115af91599c58702434892fd1a36c91
(man-follow): New function.
(Man-mode-map): Bind it.

diff -r 6de8cf26e115 -r 79f712c639b7 lisp/man.el
--- 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."