From fd1c38f415123f2cbd031bbe033a1601d9a9a77a Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Tue, 3 Jun 2003 11:24:42 +0000 Subject: [PATCH] (custom-get-fresh-buffer): Test for nonexistence buffer. --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * cus-edit.el (custom-get-fresh-buffer): Test for nonexistence + buffer. + 2003-06-03 Richard M. Stallman * 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)) -- 2.11.4.GIT