Mercurial > emacs
changeset 9838:5fbd6165b408
(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.]
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 08 Nov 1994 22:34:06 +0000 |
| parents | 5f99af55890d |
| children | 21c1a413ab75 |
| files | lisp/man.el |
| diffstat | 1 files changed, 6 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/man.el Tue Nov 08 16:23:32 1994 +0000 +++ b/lisp/man.el Tue Nov 08 22:34:06 1994 +0000 @@ -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 @@ (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 @@ (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."