commit: Kill buffer if directory name misspelled and user doesn't want to create it.

changeset: 4649:3972966a4588 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Sun Jul 12 14:20:55 2009 +0100 files: lisp/ChangeLog lisp/files.el description: 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)))) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches