diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-20 14:20:41 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-11-20 14:20:41 +0000 |
commit | a8e1e57f4ced6c635d959d8d8d30b65efbbbf8e4 (patch) | |
tree | 31184e89ac92331892a31cfdcbacea4a53fe4775 /lisp/progmodes | |
parent | 48404d5a03bbbacab146e2ebb8cae606f62bdf05 (diff) | |
download | emacs-a8e1e57f4ced6c635d959d8d8d30b65efbbbf8e4.tar.gz |
(cperl-perldoc): Require man before binding `manual-program'.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 5c6b22afff2..0a7dcf5212e 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -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 () |