Mercurial > hg > xemacs-beta
comparison lisp/files.el @ 4649:3972966a4588
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!
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 12 Jul 2009 14:20:55 +0100 |
| parents | 907697569a49 |
| children | 13273cffca2a |
comparison
equal
deleted
inserted
replaced
| 4648:907697569a49 | 4649:3972966a4588 |
|---|---|
| 1559 "\ | 1559 "\ |
| 1560 The directory containing %s does not exist. Create? " | 1560 The directory containing %s does not exist. Create? " |
| 1561 (abbreviate-file-name buffer-file-name))) | 1561 (abbreviate-file-name buffer-file-name))) |
| 1562 (make-directory (file-name-directory | 1562 (make-directory (file-name-directory |
| 1563 buffer-file-name) | 1563 buffer-file-name) |
| 1564 t)) | 1564 t) |
| 1565 (kill-buffer (current-buffer))) | |
| 1565 (quit | 1566 (quit |
| 1566 (kill-buffer (current-buffer)) | 1567 (kill-buffer (current-buffer)) |
| 1567 (signal 'quit nil)))) | 1568 (signal 'quit nil)))) |
| 1568 nil)))) | 1569 nil)))) |
| 1569 (if msg | 1570 (if msg |