Mercurial > emacs
comparison lisp/files.el @ 69332:e1685cc1a657
* files.el (hack-local-variables-confirm): Set
coding-system-for-read to nil before writing to .emacs.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Wed, 08 Mar 2006 02:24:47 +0000 |
parents | 19020d531a4a |
children | b15334da7435 414faf8dce4e a7364c1a561e |
comparison
equal
deleted
inserted
replaced
69331:619b0c2000a6 | 69332:e1685cc1a657 |
---|---|
2402 (setq quit-flag nil))) | 2402 (setq quit-flag nil))) |
2403 (setq char (downcase char)) | 2403 (setq char (downcase char)) |
2404 (when (and (= char ?!) unsafe-vars) | 2404 (when (and (= char ?!) unsafe-vars) |
2405 (dolist (elt unsafe-vars) | 2405 (dolist (elt unsafe-vars) |
2406 (add-to-list 'safe-local-variable-values elt)) | 2406 (add-to-list 'safe-local-variable-values elt)) |
2407 (customize-save-variable | 2407 ;; When this is called from desktop-restore-file-buffer, |
2408 'safe-local-variable-values | 2408 ;; coding-system-for-read may be non-nil. Reset it before |
2409 safe-local-variable-values)) | 2409 ;; writing to .emacs. |
2410 (let ((coding-system-for-read nil)) | |
2411 (customize-save-variable | |
2412 'safe-local-variable-values | |
2413 safe-local-variable-values))) | |
2410 (kill-buffer buf) | 2414 (kill-buffer buf) |
2411 (or (= char ?!) | 2415 (or (= char ?!) |
2412 (= char ?\s) | 2416 (= char ?\s) |
2413 (= char ?y))))))) | 2417 (= char ?y))))))) |
2414 | 2418 |