From 46585b32dbfc5e42fc22abda54b1e52087add584 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 20 Nov 2001 14:21:15 +0000 Subject: [PATCH] (cperl-perldoc): Require man before binding `manual-program'. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/cperl-mode.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 41ad6a07afc..4aba7f98c2f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-11-20 Stefan Monnier + + * progmodes/cperl-mode.el (cperl-perldoc): Require man before binding + `manual-program'. + 2001-11-19 Stefan Monnier * progmodes/cc-engine.el (c-parse-state): Typo. From Martin Stjernholm. diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 42377f5beb6..94451abf1ec 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -6770,6 +6770,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 "\\>") @@ -6777,7 +6778,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 () -- 2.39.5