[COMMIT] Kill buffer if dir misspelled and user doesn't want to create

APPROVE COMMIT NOTE; This patch has been committed. There’s not an astonishing amount of consensus on this, but people won’t lose data either way. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1247404855 -3600 # Node ID 3972966a4588d70e94bd50cc7ce3ebb477bb707c # Parent 907697569a49825c445209e4d95649f581cde788 Kill buffer if directory name misspelled and user doesn't want to create it. Robert Delius Royar, Rodney Sparapani and I want this behaviour, as far as I can tell; Stephen Turnbull doesn't. lisp/ChangeLog addition: 2009-07-12 Aidan Kehoe <kehoea(a)parhasard.net&gt; * files.el (after-find-file): If the answer to "The directory containing %s does not exist. Create?" is no, kill the current buffer, since the user probably just misspelled the directory name. Thank you Rodney Sparapani! diff -r 907697569a49 -r 3972966a4588 lisp/ChangeLog --- a/lisp/ChangeLog Sun Jul 12 14:01:09 2009 +0100 +++ b/lisp/ChangeLog Sun Jul 12 14:20:55 2009 +0100 ＠＠ -1,3 +1,10 ＠＠ +2009-07-12 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * files.el (after-find-file): + If the answer to "The directory containing %s does not exist. + Create?" is no, kill the current buffer, since the user probably + just misspelled the directory name. Thank you Rodney Sparapani! + 2009-07-12 Aidan Kehoe <kehoea(a)parhasard.net&gt; * files.el (find-file-create-switch-thunk): diff -r 907697569a49 -r 3972966a4588 lisp/files.el --- a/lisp/files.el Sun Jul 12 14:01:09 2009 +0100 +++ b/lisp/files.el Sun Jul 12 14:20:55 2009 +0100 ＠＠ -1561,7 +1561,8 ＠＠ (abbreviate-file-name buffer-file-name))) (make-directory (file-name-directory buffer-file-name) - t)) + t) + (kill-buffer (current-buffer))) (quit (kill-buffer (current-buffer)) (signal 'quit nil)))) -- ¿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