From 026d8713947dc81385c11d234dd3593dbab40816 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Jun 1998 23:37:02 +0000 Subject: [PATCH] (cperl-pod-to-manpage): Function deleted (cperl-pod2man-build-command, cperl-perldoc-at-point): Likewise. (cperl-perldoc): Likewise. (pod2man-program): Variable deleted. --- lisp/progmodes/cperl-mode.el | 68 ------------------------------------ 1 file changed, 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 -;;; 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 (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 -- 2.39.2