Mercurial > emacs
comparison lisp/dos-w32.el @ 23682:8d1cbb6f0fb9
(set-default-process-coding-system): Use function on
before-init-hook to set default-process-coding-system based on
enable-multibyte-characters.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Tue, 10 Nov 1998 21:06:50 +0000 |
| parents | bcac7111042a |
| children | 4052a2875390 |
comparison
equal
deleted
inserted
replaced
| 23681:af0276da2059 | 23682:8d1cbb6f0fb9 |
|---|---|
| 245 (interactive "fUntranslated file system: ") | 245 (interactive "fUntranslated file system: ") |
| 246 (setq untranslated-filesystem-list | 246 (setq untranslated-filesystem-list |
| 247 (delete (untranslated-canonical-name filesystem) | 247 (delete (untranslated-canonical-name filesystem) |
| 248 untranslated-filesystem-list))) | 248 untranslated-filesystem-list))) |
| 249 | 249 |
| 250 (setq-default default-process-coding-system | 250 ;;; Override setting chosen at startup. |
| 251 (if (fboundp 'start-process) | 251 (defun set-default-process-coding-system () |
| 252 '(raw-text-dos . raw-text-dos) | 252 (setq default-process-coding-system |
| 253 '(undecided-dos . undecided-dos))) | 253 (if default-enable-multibyte-characters |
| 254 '(undecided-dos . undecided-dos) | |
| 255 '(raw-text-dos . raw-text-dos)))) | |
| 256 | |
| 257 (add-hook 'before-init-hook 'set-default-process-coding-system) | |
| 254 | 258 |
| 255 ;; Support for printing under DOS/Windows, see lpr.el and ps-print.el. | 259 ;; Support for printing under DOS/Windows, see lpr.el and ps-print.el. |
| 256 (defvar printer-name) | 260 (defvar printer-name) |
| 257 | 261 |
| 258 (defun direct-print-region-function (start end | 262 (defun direct-print-region-function (start end |