From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Jun 1998 23:37:02 +0000 (+0000)
Subject: (cperl-pod-to-manpage): Function deleted
X-Git-Tag: emacs-20.3~689
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=026d8713947dc81385c11d234dd3593dbab40816;p=emacs.git

(cperl-pod-to-manpage): Function deleted
(cperl-pod2man-build-command, cperl-perldoc-at-point): Likewise.
(cperl-perldoc): Likewise.
(pod2man-program): Variable deleted.
---

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