[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv728

Modified Files:
	ChangeLog slime.el 
Log Message:
	Make M-x slime-changelog-date work.

	* slime.el (slime-changelog-date): Make the function be callable
	interactively.


--- /project/slime/cvsroot/slime/ChangeLog	2009/10/21 13:26:35	1.1879
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/21 14:37:08	1.1880
@@ -1,3 +1,10 @@
+2009-10-21  Tobias C. Rittweiler <tcr at freebits.de>
+
+	Make M-x slime-changelog-date work.
+
+	* slime.el (slime-changelog-date): Make the function be callable
+	interactively.
+
 2009-10-21  Stas Boukarev  <stassats at gmail.com>
 
 	* doc/slime.texi (ASDF): Document new commands.
--- /project/slime/cvsroot/slime/slime.el	2009/10/19 23:13:27	1.1229
+++ /project/slime/cvsroot/slime/slime.el	2009/10/21 14:37:08	1.1230
@@ -115,16 +115,20 @@
        'common-lisp-indent-function))
 
 (eval-and-compile
-  (defun slime-changelog-date ()
+  (defun slime-changelog-date (&optional interactivep)
     "Return the datestring of the latest entry in the ChangeLog file.
 Return nil if the ChangeLog file cannot be found."
-    (let ((changelog (concat slime-path "ChangeLog")))
-      (if (file-exists-p changelog)
-          (with-temp-buffer 
-            (insert-file-contents-literally changelog nil 0 100)
-            (goto-char (point-min))
-            (symbol-name (read (current-buffer))))
-        nil))))
+    (interactive "p")
+    (let ((changelog (concat slime-path "ChangeLog"))
+          (date nil))
+      (when (file-exists-p changelog)
+        (with-temp-buffer 
+          (insert-file-contents-literally changelog nil 0 100)
+          (goto-char (point-min))
+          (setq date (symbol-name (read (current-buffer))))))
+      (when interactivep
+        (message "Slime ChangeLog dates %s." date))
+      date)))
 
 (defvar slime-protocol-version nil)
 (setq slime-protocol-version