Xref: utzoo comp.emacs:8583 comp.lang.perl:1665 Path: utzoo!attcan!uunet!aplcen!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!usc!jarthur!bridge2!mdb From: mdb@ESD.3Com.COM (Mark D. Baushke) Newsgroups: comp.emacs,comp.lang.perl Subject: describe-perl-symbol bugfix (was Re: describe-perl-symbol for GNU Emacs) Message-ID: Date: 29 Jun 90 00:47:40 GMT References: Sender: news@bridge2.ESD.3Com.COM Followup-To: comp.emacs Organization: 3Com Corp., Mountain View, CA. Lines: 47 In-reply-to: jv@mh.nl's message of 28 Jun 90 23:26:58 GMT On 28 Jun 90 23:26:58 GMT, jv@mh.nl (Johan Vromans) said: Johan> This little goodie I coocked up recently. It provides a one-line help Johan> message for most perl symbols. Simply point at (or just after) the Johan> symbol of function name, and call 'describe-perl-symbol for a Johan> one-liner. One slight glitch...here is the fix *** perl-descr.el~ Thu Jun 28 17:38:26 1990 --- perl-descr.el Thu Jun 28 17:41:50 1990 *************** *** 70,83 **** (if (string= val "") (setq val fn)) (setq regexp (concat "^" (regexp-quote val) "[ \t(]")) ! (if (not (get-file-buffer doc-file)) (progn (setq args-file ! (find-file-noselect doc-file)) (set-buffer args-file) (rename-buffer "*PERL-DOC*") (setq buffer-read-only t))) ! (set-buffer (get-file-buffer doc-file)) (goto-char (point-min)) (list (if (re-search-forward regexp (point-max) t) (save-excursion --- 70,83 ---- (if (string= val "") (setq val fn)) (setq regexp (concat "^" (regexp-quote val) "[ \t(]")) ! (if (not (get-file-buffer perl-doc-file)) (progn (setq args-file ! (find-file-noselect perl-doc-file)) (set-buffer args-file) (rename-buffer "*PERL-DOC*") (setq buffer-read-only t))) ! (set-buffer (get-file-buffer perl-doc-file)) (goto-char (point-min)) (list (if (re-search-forward regexp (point-max) t) (save-excursion -- Mark D. Baushke mdb@ESD.3Com.COM