1214 |
;; To be more complete, we should also kill all permanent-local variables, |
;; To be more complete, we should also kill all permanent-local variables, |
1215 |
;; but it's not needed for custom. |
;; but it's not needed for custom. |
1216 |
(let ((buf (get-buffer name))) |
(let ((buf (get-buffer name))) |
1217 |
(when (buffer-local-value 'buffer-file-name buf) |
(when (and buf (buffer-local-value 'buffer-file-name buf)) |
1218 |
;; This will check if the file is not saved. |
;; This will check if the file is not saved. |
1219 |
(kill-buffer buf) |
(kill-buffer buf) |
1220 |
(setq buf nil)) |
(setq buf nil)) |