/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.25 by monnier, Fri Oct 12 18:11:06 2001 UTC revision 1.26 by monnier, Tue Nov 20 14:20:41 2001 UTC
# Line 7045  We suppose that the regexp is scanned al Line 7045  We suppose that the regexp is scanned al
7045                     (error "No perldoc args given")                     (error "No perldoc args given")
7046                   default-entry)                   default-entry)
7047               input))))               input))))
7048      (require 'man)
7049    (let* ((is-func (and    (let* ((is-func (and
7050                     (string-match "^[a-z]+$" word)                     (string-match "^[a-z]+$" word)
7051                     (string-match (concat "^" word "\\>")                     (string-match (concat "^" word "\\>")
# Line 7052  We suppose that the regexp is scanned al Line 7053  We suppose that the regexp is scanned al
7053                                    'cperl-short-docs                                    'cperl-short-docs
7054                                    'variable-documentation))))                                    'variable-documentation))))
7055           (manual-program (if is-func "perldoc -f" "perldoc")))           (manual-program (if is-func "perldoc -f" "perldoc")))
     (require 'man)  
7056      (Man-getpage-in-background word)))      (Man-getpage-in-background word)))
7057    
7058  (defun cperl-perldoc-at-point ()  (defun cperl-perldoc-at-point ()

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26