From 53fa865294bada6c2c441f195211671d427bcd69 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 8 Aug 2012 11:17:13 +0300 Subject: [PATCH] * 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 --- lisp/ChangeLog | 5 +++++ lisp/files.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 -- 2.39.5