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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d700b6bda544ae3e685a36f0e4fced87bb314283..9838d002a299f455de5f1128540753f851746a46 100644 (file)
--- 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 51e4e5b1f3ab53ab441a578090b94e62a662e04d..090503e67e77cd83e9adc211ac4f97a1ddbc1f14 100644 (file)
--- 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))