/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.183 by monnier, Sun Jun 1 18:40:10 2003 UTC revision 1.184 by lute, Tue Jun 3 11:24:06 2003 UTC
# Line 1214  not for everybody." Line 1214  not for everybody."
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))

Legend:
Removed from v.1.183  
changed lines
  Added in v.1.184

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26