# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# 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@parhasard.net>

	* 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@parhasard.net>
+
+	* 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@parhasard.net>
 
 	* 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))))