(custom-get-fresh-buffer): Be extra paranoid,

just in case some used a file of the wrong name.

1 files changed, 10 insertions, 1 deletions

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index c7cb7d67ce4..51e4e5b1f3a 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1208,12 +1208,21 @@ Called with one argument, the buffer to remove."
 
 (defun custom-get-fresh-buffer (name)
   "Get a fresh new buffer with name NAME.
-If the buffer already exist, clean it up to be like new."
+If the buffer already exist, clean it up to be like new.
+Beware: it's not quite like new.  Good enough for custom, but maybe
+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)
+      ;; This will check if the file is not saved.
+      (kill-buffer buf)
+      (setq buf nil))
     (if (null buf)
         (get-buffer-create name)
       (with-current-buffer buf
         (kill-all-local-variables)
+        (run-hooks 'kill-buffer-hook)
         (erase-buffer)
         (let ((ols (overlay-lists)))
           (dolist (ol (nconc (car ols) (cdr ols)))