[COMMIT] Avoid errors in Dired when opening directories.

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(a)parhasard.net&gt; # Date 1247957481 -3600 # Node ID 13273cffca2abd0280bd79d8c1fb8e11db1dbefd # Parent cdc51540fed7bfbef5b51add4f9950e97d65cea0 Avoid errors in Dired when opening directories. lisp/ChangeLog addition: 2009-07-18 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * 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? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches