diff options
| -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." | |||
| 7045 | (error "No perldoc args given") | 7045 | (error "No perldoc args given") |
| 7046 | default-entry) | 7046 | default-entry) |
| 7047 | input)))) | 7047 | input)))) |
| 7048 | (require 'man) | ||
| 7048 | (let* ((is-func (and | 7049 | (let* ((is-func (and |
| 7049 | (string-match "^[a-z]+$" word) | 7050 | (string-match "^[a-z]+$" word) |
| 7050 | (string-match (concat "^" word "\\>") | 7051 | (string-match (concat "^" word "\\>") |
| @@ -7052,7 +7053,6 @@ We suppose that the regexp is scanned already." | |||
| 7052 | 'cperl-short-docs | 7053 | 'cperl-short-docs |
| 7053 | 'variable-documentation)))) | 7054 | 'variable-documentation)))) |
| 7054 | (manual-program (if is-func "perldoc -f" "perldoc"))) | 7055 | (manual-program (if is-func "perldoc -f" "perldoc"))) |
| 7055 | (require 'man) | ||
| 7056 | (Man-getpage-in-background word))) | 7056 | (Man-getpage-in-background word))) |
| 7057 | 7057 | ||
| 7058 | (defun cperl-perldoc-at-point () | 7058 | (defun cperl-perldoc-at-point () |