mdb@ESD.3Com.COM (Mark D. Baushke) (06/29/90)
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