procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lm-synopsis): Use relative filenames correctly. Show the synopsis to

Browse source 
the user when appropriate.  Do not kill buffers that were created
outside `lm-synopsis'.
This commit is contained in:
Lute Kamstra 2003-06-02 10:23:19 +00:00
parent 8d1203eafb
commit ccb78fa385
2 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2003-06-02 Lute Kamstra <Lute.Kamstra@cwi.nl>
* emacs-lisp/lisp-mnt.el (lm-synopsis): Use relative filenames
correctly. Show the synopsis to the user when appropriate. Do
not kill buffers that were created outside `lm-synopsis'.
2003-05-27 David Ponce <david@dponce.com>
* ruler-mode.el

33
lisp/emacs-lisp/lisp-mnt.el
View file

@ -566,26 +566,21 @@ which do not include a recognizable synopsis."
(read-file-name "Synopsis for (file or dir): ")))
(if (and file (file-directory-p file))
(with-temp-buffer
(mapcar
(lambda (f)
(if (string-match "\\.el\\'" f)
(let ((syn (lm-synopsis f)))
(if syn
(progn
(insert f ":")
(lm-insert-at-column lm-comment-column syn "\n"))
(when showall
(insert f ":")
(lm-insert-at-column lm-comment-column "NA\n"))))))
(directory-files file)))
(with-output-to-temp-buffer "*Synopsis*"
(set-buffer standard-output)
(dolist (f (directory-files file nil ".*\\.el\\'"))
(let ((syn (lm-synopsis (expand-file-name f file))))
(when (or syn showall)
(insert f ":")
(lm-insert-at-column lm-comment-column (or syn "NA") "\n")))))
(save-excursion
(if file
(find-file file))
(prog1
(lm-summary)
(if file
(kill-buffer (current-buffer)))))))
(let ((must-kill (and file (not (get-file-buffer file)))))
(when file (find-file file))
(prog1
(if (interactive-p)
(message "%s" (lm-summary))
(lm-summary))
(when must-kill (kill-buffer (current-buffer))))))))
(eval-when-compile (defvar report-emacs-bug-address))