[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv17262

Modified Files:
	ChangeLog swank.lisp 
Log Message:
Allow ED-IN-EMACS to edit new files.

* swank.lisp (ed-in-emacs): Make it possible to canonicalize
filenames of non-existing files.
(canonicalize-filename): Merged into ed-in-emacs.


--- /project/slime/cvsroot/slime/ChangeLog	2008/02/23 10:29:06	1.1303
+++ /project/slime/cvsroot/slime/ChangeLog	2008/02/24 16:49:49	1.1304
@@ -1,3 +1,11 @@
+2008-02-23  Ariel Badichi <abadichi at bezeqint.net>
+
+	Allow ED-IN-EMACS to edit new files.
+
+	* swank.lisp (ed-in-emacs): Make it possible to canonicalize
+	filenames of non-existing files.
+	(canonicalize-filename): Merged into ed-in-emacs.
+
 2008-02-23  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	If there is no connection, offer the option to start SLIME.
--- /project/slime/cvsroot/slime/swank.lisp	2008/02/23 10:28:01	1.535
+++ /project/slime/cvsroot/slime/swank.lisp	2008/02/24 16:49:49	1.536
@@ -1855,7 +1855,9 @@
 
 Returns true if it actually called emacs, or NIL if not."
   (flet ((pathname-or-string-p (thing)
-           (or (pathnamep thing) (typep thing 'string))))
+           (or (pathnamep thing) (typep thing 'string)))
+         (canonicalize-filename (filename)
+           (namestring (or (probe-file filename) filename))))
     (let ((target
            (cond ((and (listp what) (pathname-or-string-p (first what)))
                   (cons (canonicalize-filename (car what)) (cdr what)))
@@ -2166,9 +2168,6 @@
 (defun clear-compiler-notes ()  
   (setf *compiler-notes* '()))
 
-(defun canonicalize-filename (filename)
-  (namestring (truename filename)))
-
 (defslimefun compiler-notes-for-emacs ()
   "Return the list of compiler notes for the last compilation unit."
   (reverse *compiler-notes*))