mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(cperl-perldoc): Require man before binding `manual-program'.

Browse source
This commit is contained in:
Stefan Monnier 2001-11-20 14:20:41 +00:00
parent 48404d5a03
commit a8e1e57f4c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/cperl-mode.el
View file

@ -7045,6 +7045,7 @@ We suppose that the regexp is scanned already."
(error "No perldoc args given")
default-entry)
input))))
(require 'man)
(let* ((is-func (and
(string-match "^[a-z]+$" word)
(string-match (concat "^" word "\\>")
@ -7052,7 +7053,6 @@ We suppose that the regexp is scanned already."
'cperl-short-docs
'variable-documentation))))
(manual-program (if is-func "perldoc -f" "perldoc")))
(require 'man)
(Man-getpage-in-background word)))
(defun cperl-perldoc-at-point ()