Mercurial > emacs

changeset 41309:8c4c4027c7bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cperl-perldoc): Require man before binding `manual-program'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 20 Nov 2001 14:20:41 +0000
parents 619834b22c0c
children ab1a42ecf560
files lisp/progmodes/cperl-mode.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/cperl-mode.el	Tue Nov 20 09:38:55 2001 +0000
+++ b/lisp/progmodes/cperl-mode.el	Tue Nov 20 14:20:41 2001 +0000
@@ -7045,6 +7045,7 @@
                    (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 @@
 				  '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 ()