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 |