[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109507: * lisp/files.el (basic-save-
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109507: * lisp/files.el (basic-save-buffer): Use `buffer-name' as the default |
Date: |
Wed, 08 Aug 2012 11:17:13 +0300 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 109507
fixes bug: http://debbugs.gnu.org/12128
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-08 11:17:13 +0300
message:
* lisp/files.el (basic-save-buffer): Use `buffer-name' as the default
of `read-file-name' when buffer is not visiting a file.
modified:
lisp/ChangeLog
lisp/files.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-08-08 08:05:58 +0000
+++ b/lisp/ChangeLog 2012-08-08 08:17:13 +0000
@@ -1,5 +1,10 @@
2012-08-08 Juri Linkov <address@hidden>
+ * 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 <address@hidden>
+
* info.el (Info-isearch-search): Doc fix.
(Info-search): Change search-failed message from "initial node" to
"end of node" (bug#12078).
=== modified file 'lisp/files.el'
--- a/lisp/files.el 2012-08-05 07:45:12 +0000
+++ b/lisp/files.el 2012-08-08 08:17:13 +0000
@@ -4488,7 +4488,8 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109507: * lisp/files.el (basic-save-buffer): Use `buffer-name' as the default,
Juri Linkov <=