From: Lute Kamstra <lute@gnu.org>
Date: Mon, 2 Jun 2003 10:23:19 +0000 (+0000)
Subject: (lm-synopsis): Use relative filenames correctly.  Show the synopsis to
X-Git-Tag: ttn-vms-21-2-B4~9802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccb78fa385044cdb3ac9d296b7abca0c72a55d0a;p=emacs.git

(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 e8943cbaca9..173748a924f 100644
--- 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 dfa12f970f7..d282f452456 100644
--- 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))