From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Jul 2005 22:53:47 +0000 (+0000)
Subject: (set-visited-file-name): Report the error for "empty filename" earlier.
X-Git-Tag: emacs-pretest-22.0.90~8275
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbca0a4b3725ef3678927d530c9a9d350bf84e1b;p=emacs.git

(set-visited-file-name): Report the error for "empty filename" earlier.
(kill-some-buffers): Ignore buffers already dead.
---

diff --git a/lisp/files.el b/lisp/files.el
index 1840d3e5f06..029800781ba 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2544,6 +2544,10 @@ the old visited file has been renamed to the new name FILENAME."
 	  (setq truename (file-truename filename))
 	  (if find-file-visit-truename
 	      (setq filename truename))))
+    (if filename
+	(let ((new-name (file-name-nondirectory buffer-file-name)))
+	  (if (string= new-name "")
+	      (error "Empty file name"))))
     (let ((buffer (and filename (find-buffer-visiting filename))))
       (and buffer (not (eq buffer (current-buffer)))
 	   (not no-query)
@@ -2557,8 +2561,6 @@ the old visited file has been renamed to the new name FILENAME."
     (setq buffer-file-name filename)
     (if filename			; make buffer name reflect filename.
 	(let ((new-name (file-name-nondirectory buffer-file-name)))
-	  (if (string= new-name "")
-	      (error "Empty file name"))
 	  (if (eq system-type 'vax-vms)
 	      (setq new-name (downcase new-name)))
 	  (setq default-directory (file-name-directory buffer-file-name))
@@ -4004,7 +4006,9 @@ specifies the list of buffers to kill, asking for approval for each one."
   (while list
     (let* ((buffer (car list))
 	   (name (buffer-name buffer)))
-      (and (not (string-equal name ""))
+      (and name				; Can be nil for an indirect buffer
+					; if we killed the base buffer.
+	   (not (string-equal name ""))
 	   (/= (aref name 0) ? )
 	   (yes-or-no-p
 	    (format "Buffer %s %s.  Kill? "