From: Lute Kamstra <lute@gnu.org>
Date: Tue, 3 Jun 2003 11:24:42 +0000 (+0000)
Subject: (custom-get-fresh-buffer): Test for nonexistence buffer.
X-Git-Tag: ttn-vms-21-2-B4~9772
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd1c38f415123f2cbd031bbe033a1601d9a9a77a;p=emacs.git

(custom-get-fresh-buffer): Test for nonexistence buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d700b6bda54..9838d002a29 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-03  Lute Kamstra  <Lute.Kamstra@cwi.nl>
+
+	* cus-edit.el (custom-get-fresh-buffer): Test for nonexistence
+	buffer.
+
 2003-06-03  Richard M. Stallman  <rms@gnu.org>
 
 	* emacs-lisp/lisp-mode.el (eval-last-sexp-1):
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 51e4e5b1f3a..090503e67e7 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1214,7 +1214,7 @@ not for everybody."
   ;; To be more complete, we should also kill all permanent-local variables,
   ;; but it's not needed for custom.
   (let ((buf (get-buffer name)))
-    (when (buffer-local-value 'buffer-file-name buf)
+    (when (and buf (buffer-local-value 'buffer-file-name buf))
       ;; This will check if the file is not saved.
       (kill-buffer buf)
       (setq buf nil))