diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-06-07 23:37:02 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-06-07 23:37:02 +0000 |
commit | abe7272187b5add4140c268c749ab06aa0a9c26d (patch) | |
tree | 2787887d05476647b8fb4161a8ff844bb9f3b0b1 | |
parent | c8868f869d39ab2d9cb0fa440b31ad39aa7219d0 (diff) | |
download | emacs-abe7272187b5add4140c268c749ab06aa0a9c26d.tar.gz |
(cperl-pod-to-manpage): Function deleted
(cperl-pod2man-build-command, cperl-perldoc-at-point): Likewise.
(cperl-perldoc): Likewise.
(pod2man-program): Variable deleted.
-rw-r--r-- | lisp/progmodes/cperl-mode.el | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 88ca899869c..e754e952371 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -6113,75 +6113,7 @@ We suppose that the regexp is scanned already." (error "`%s' not with an (EXPR)" s0))) (error "Not at `if', `unless', `while', or `unless'"))) -;;; By Anthony Foiani <afoiani@uswest.com> -;;; Getting help on modules in C-h f ? -;;; Need to teach it how to lookup functions (defvar Man-filter-list) -(defun cperl-perldoc (word) - "Run a 'perldoc' on WORD." - (interactive - (list (let* ((default-entry (cperl-word-at-point)) - (input (read-string - (format "perldoc entry%s: " - (if (string= default-entry "") - "" - (format " (default %s)" default-entry)))))) - (if (string= input "") - (if (string= default-entry "") - (error "No perldoc args given") - default-entry) - input)))) - (let* ((is-func (and - (string-match "^[a-z]+$" word) - (string-match (concat "^" word "\\>") - (documentation-property - '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 () - "Run a 'perldoc' on WORD." - (interactive) - (cperl-perldoc (cperl-word-at-point))) - -;;; By Nick Roberts <Nick.Roberts@src.bae.co.uk> (with changes) -(defvar pod2man-program "pod2man") - -(defun cperl-pod-to-manpage () - "Create a virtual manpage in emacs from the Perl Online Documentation" - (interactive) - (require 'man) - (let* ((pod2man-args (concat buffer-file-name " | nroff -man ")) - (bufname (concat "Man " buffer-file-name)) - (buffer (generate-new-buffer bufname))) - (save-excursion - (set-buffer buffer) - (let ((process-environment (copy-sequence process-environment))) - ;; Prevent any attempt to use display terminal fanciness. - (setenv "TERM" "dumb") - (set-process-sentinel - (start-process pod2man-program buffer "sh" "-c" - (format (cperl-pod2man-build-command) pod2man-args)) - 'Man-bgproc-sentinel))))) - -(defun cperl-pod2man-build-command () - "Builds the entire background manpage and cleaning command." - (let ((command (concat pod2man-program " %s 2>/dev/null")) - (flist Man-filter-list)) - (while (and flist (car flist)) - (let ((pcom (car (car flist))) - (pargs (cdr (car flist)))) - (setq command - (concat command " | " pcom " " - (mapconcat '(lambda (phrase) - (if (not (stringp phrase)) - (error "Malformed Man-filter-list")) - phrase) - pargs " "))) - (setq flist (cdr flist)))) - command)) (defun cperl-lazy-install ()) ; Avoid a warning |