diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-08 22:34:06 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-08 22:34:06 +0000 |
| commit | 2151a1cff8a9b2086e89e3262b8ee0dbffd4c83a (patch) | |
| tree | 04a99a2b1fbb34b8e45a5324775d8fec8db29dc5 /lisp/man.el | |
| parent | 06f7e2c57ae75ba30b724114aa183bf289a4893b (diff) | |
| download | emacs-2151a1cff8a9b2086e89e3262b8ee0dbffd4c83a.tar.gz | |
(Man-follow-manual-reference): First arg deleted. Call
Man-getpage-in-background with one argument only.
[this entry was already in the ChangeLog, but not in the source.]
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/man.el b/lisp/man.el index 7f77d867c3a..4466ac2e464 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -3,8 +3,8 @@ ;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw <bwarsaw@cen.com> -;; Last-Modified: $Date: 1994/10/27 19:08:03 $ -;; Version: $Revision: 1.56 $ +;; Last-Modified: $Date: 1994/11/07 12:13:16 $ +;; Version: $Revision: 1.57 $ ;; Keywords: help ;; Adapted-By: ESR, pot @@ -948,15 +948,13 @@ Actually the section moved to is described by `Man-see-also-regexp'." (error (concat "No " Man-see-also-regexp " section found in the current manpage")))) -(defun Man-follow-manual-reference (arg reference) +(defun Man-follow-manual-reference (reference) "Get one of the manpages referred to in the \"SEE ALSO\" section. -Specify which reference to use; default is based on word at point. -Prefix argument ARG is passed to `Man-getpage-in-background'." +Specify which reference to use; default is based on word at point." (interactive (if (not Man-refpages-alist) (error "There are no references in the current man page") - (list current-prefix-arg - (let* ((default (or + (list (let* ((default (or (car (all-completions (save-excursion (skip-syntax-backward "w()") @@ -980,8 +978,7 @@ Prefix argument ARG is passed to `Man-getpage-in-background'." (error "Can't find any references in the current manpage") (aput 'Man-refpages-alist reference) (Man-getpage-in-background - (Man-translate-references (aheadsym Man-refpages-alist)) - arg))) + (Man-translate-references (aheadsym Man-refpages-alist))))) (defun Man-kill () "Kill the buffer containing the manpage." |