GNU bug report logs - #8134
(Some special files were saved without asking)

Previous Next

Package: emacs;

Reported by: jidanni <at> jidanni.org

Date: Mon, 28 Feb 2011 02:10:03 UTC

Severity: minor

Done: Chong Yidong <cyd <at> stupidchicken.com>

Bug is archived. No further changes may be made.

Full log


View this message in rfc822 format

From: David Engster <deng <at> randomsample.de>
To: 8134 <at> debbugs.gnu.org
Cc: jidanni <at> jidanni.org
Subject: bug#8134: (Some special files were saved without asking)
Date: Sat, 05 Mar 2011 12:33:56 +0100
'jidanni' writes:
> Encountered new message "(Some special files were saved without asking)".
> Well at least in C-h e mention what they were.

I agree.

That you're suddenly seeing this message is due to a change in Gnus,
which now saves the .newsrc-dribble file without asking when you invoke
stuff like 'compile' and other functions which call `save-some-buffers'.

I'm proposing the following change (against trunk):

--- lisp/files.el	2011-03-05 08:48:52 +0000
+++ lisp/files.el	2011-03-05 11:03:02 +0000
@@ -4616,7 +4616,7 @@
 	;; That way the following code won't ask about them.
 	(with-current-buffer buffer
 	  (when (and buffer-save-without-query (buffer-modified-p))
-	    (setq some-automatic t)
+	    (setq some-automatic (append some-automatic (list (buffer-name))))
 	    (save-buffer))))
       ;; Ask about those buffers that merit it,
       ;; and record the number thus saved.
@@ -4663,7 +4663,9 @@
 	     (setq abbrevs-done t)))
       (or queried (> files-done 0) abbrevs-done
 	  (message (if some-automatic
-		       "(Some special files were saved without asking)"
+		       (concat
+			"(The following special buffers were saved without asking: "
+			(mapconcat 'identity some-automatic " ") ")")
 		     "(No files need saving)"))))))
 
 (defun not-modified (&optional arg)





This bug report was last modified 14 years and 81 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.