# HG changeset patch # User Lute Kamstra # Date 1054639446 0 # Node ID b107764e9a671bc34bf42c452aa582d0c216e2e7 # Parent 08fab8d59966e4c40f5704ecf4004e084878a7c2 (custom-get-fresh-buffer): Test for nonexistence buffer. diff -r 08fab8d59966 -r b107764e9a67 lisp/cus-edit.el --- a/lisp/cus-edit.el Tue Jun 03 11:13:08 2003 +0000 +++ b/lisp/cus-edit.el Tue Jun 03 11:24:06 2003 +0000 @@ -1214,7 +1214,7 @@ ;; 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))