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

the user when appropriate.  Do not kill buffers that were created
outside `lm-synopsis'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8943cbaca98ef307e49a811bf34e446eb9c68ca..173748a924f64ee95735c1381223f5ecdfd9ba43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index dfa12f970f719c210ec186261e1ee4d76ba6d714..d282f452456f6ba74fd20fe99bf8a1f4e45c2d21 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -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))