[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv12183

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-changelog-date): Use
(expand-file-name "ChangeLog" slime-path) instead of
(concat slime-path "ChangeLog"), slime-path may not have a
trailing /.
Reported by Paul Sexton (lp#1011935).


--- /project/slime/cvsroot/slime/ChangeLog	2012/05/25 01:25:05	1.2342
+++ /project/slime/cvsroot/slime/ChangeLog	2012/06/12 09:25:30	1.2343
@@ -1,3 +1,11 @@
+2012-06-12  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-changelog-date): Use
+	(expand-file-name "ChangeLog" slime-path) instead of
+	(concat slime-path "ChangeLog"), slime-path may not have a
+	trailing /.
+	Reported by Paul Sexton (lp#1011935).
+
 2012-05-25  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-oneliner): Use minibuffer width instead of the
--- /project/slime/cvsroot/slime/slime.el	2012/05/25 01:25:06	1.1409
+++ /project/slime/cvsroot/slime/slime.el	2012/06/12 09:25:30	1.1410
@@ -119,7 +119,7 @@
     "Return the datestring of the latest entry in the ChangeLog file.
 Return nil if the ChangeLog file cannot be found."
     (interactive "p")
-    (let ((changelog (concat slime-path "ChangeLog"))
+    (let ((changelog (expand-file-name "ChangeLog" slime-path))
           (date nil))
       (when (file-exists-p changelog)
         (with-temp-buffer