diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-28 04:21:14 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-08-28 04:21:14 +0000 |
| commit | b56a5ae0fee0c641a3d874b4cce4c38813b941df (patch) | |
| tree | b6000f900c2d4666478338114086d182355ce1f2 /lisp/dos-w32.el | |
| parent | de70529f66f8c7b2ccec01408a442165dd5aa9ea (diff) | |
| download | emacs-b56a5ae0fee0c641a3d874b4cce4c38813b941df.tar.gz | |
* mh-e/mh-comp.el (mh-send-letter):
* mail/sendmail.el (mail-recover-1):
* international/mule-diag.el (describe-current-coding-system-briefly)
(describe-current-coding-system):
* international/mule-cmds.el (select-safe-coding-system)
(select-message-coding-system)
(set-language-environment-coding-systems, set-locale-environment):
* hexl.el (hexl-insert-multibyte-char):
* dos-w32.el (find-buffer-file-type-coding-system):
* simple.el (what-cursor-position):
Replace uses of default-buffer-file-coding-system
with (default-value 'buffer-file-coding-system).
Diffstat (limited to 'lisp/dos-w32.el')
| -rw-r--r-- | lisp/dos-w32.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index a910603f907..9bec5b7a1db 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -102,7 +102,7 @@ and whether the file exists: If the match is nil (for dos-text): `undecided-dos' Otherwise: If the file exists: `undecided' - If the file does not exist: default-buffer-file-coding-system + If the file does not exist default value of `buffer-file-coding-system' Note that the CAR of arguments to `insert-file-contents' operation could be a cons cell of the form \(FILENAME . BUFFER\), where BUFFER is a buffer @@ -169,8 +169,8 @@ set to the appropriate coding system, and the value of (text '(undecided-dos . undecided-dos)) (undecided-unix '(undecided-unix . undecided-unix)) (undecided '(undecided . undecided)) - (t (cons default-buffer-file-coding-system - default-buffer-file-coding-system)))) + (t (cons (default-value 'buffer-file-coding-system) + (default-value 'buffer-file-coding-system))))) ((eq op 'write-region) (if buffer-file-coding-system (cons buffer-file-coding-system |