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 "\\>") |
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 () |