[COMMIT] Avoid errors in Dired when opening directories.

[Aidan Kehoe]

Change set http://hg.debian.org/hg/xemacs/xemacs/rev/907697569a49 provoked
errors in dired on opening directories. Mats just reported them to me in
IRC, and this changes addresses them; Michael, can you see any other issues
with the above changeset that strike you as impacting dired?

APPROVE COMMIT

NOTE: This patch has been committed. 

# HG changeset patch
# User Aidan Kehoe <kehoea at parhasard.net>
# Date 1247957481 -3600
# Node ID 13273cffca2abd0280bd79d8c1fb8e11db1dbefd
# Parent  cdc51540fed7bfbef5b51add4f9950e97d65cea0
Avoid errors in Dired when opening directories.

lisp/ChangeLog addition:

2009-07-18  Aidan Kehoe  <kehoea at parhasard.net>

	* files.el (find-file-create-switch-thunk):
	Check that #'buffer-file-name gives non-nil before trying to
	determine whether that file exists; avoids problems in
	dired. Thank you Mats Lidell!

diff -r cdc51540fed7 -r 13273cffca2a lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jul 15 00:21:01 2009 +0100
+++ b/lisp/ChangeLog	Sat Jul 18 23:51:21 2009 +0100
@@ -1,3 +1,10 @@
+2009-07-18  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* files.el (find-file-create-switch-thunk): 
+	Check that #'buffer-file-name gives non-nil before trying to
+	determine whether that file exists; avoids problems in
+	dired. Thank you Mats Lidell!
+
 2009-07-13  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* code-files.el (insert-file-contents): 
diff -r cdc51540fed7 -r 13273cffca2a lisp/files.el
--- a/lisp/files.el	Wed Jul 15 00:21:01 2009 +0100
+++ b/lisp/files.el	Sat Jul 18 23:51:21 2009 +0100
@@ -897,7 +897,8 @@
 as `find-file' itself."
   `(function
     (lambda (buffer)
-      (unless (file-exists-p (buffer-file-name buffer))
+      (unless (and (buffer-file-name buffer)
+		   (file-exists-p (buffer-file-name buffer)))
         ;; XEmacs: nonexistent file--qualifies as a modification to the
         ;; buffer.
         (set-buffer-modified-p t buffer))


-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?