From: Juri Linkov Date: Wed, 8 Aug 2012 08:17:13 +0000 (+0300) Subject: * lisp/files.el (basic-save-buffer): Use `buffer-name' as the default X-Git-Tag: emacs-24.2.90~782 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53fa865294bada6c2c441f195211671d427bcd69;p=emacs.git * lisp/files.el (basic-save-buffer): Use `buffer-name' as the default of `read-file-name' when buffer is not visiting a file. Fixes: debbugs:12128 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f77b5ee9dc4..00cbe9f36ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-08-08 Juri Linkov + + * files.el (basic-save-buffer): Use `buffer-name' as the default + of `read-file-name' when buffer is not visiting a file (bug#12128). + 2012-08-08 Juri Linkov * info.el (Info-isearch-search): Doc fix. diff --git a/lisp/files.el b/lisp/files.el index b54d3d1b60e..c5651135dc1 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4488,7 +4488,8 @@ Before and after saving the buffer, this function runs (or buffer-file-name (let ((filename (expand-file-name - (read-file-name "File to save in: ") nil))) + (read-file-name "File to save in: " + nil (expand-file-name (buffer-name)))))) (if (file-exists-p filename) (if (file-directory-p filename) ;; Signal an error if the user specified the name of an