Mercurial > emacs
comparison lisp/dos-w32.el @ 24515:ef4a540c34ff
(set-default-process-coding-system): Copied from dos-w32.el.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Thu, 25 Mar 1999 22:51:54 +0000 |
| parents | 3c29f6165eca |
| children | 7de5cc79a8b4 |
comparison
equal
deleted
inserted
replaced
| 24514:06762ce530be | 24515:ef4a540c34ff |
|---|---|
| 245 filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." | 245 filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"." |
| 246 (interactive "fUntranslated file system: ") | 246 (interactive "fUntranslated file system: ") |
| 247 (setq untranslated-filesystem-list | 247 (setq untranslated-filesystem-list |
| 248 (delete (untranslated-canonical-name filesystem) | 248 (delete (untranslated-canonical-name filesystem) |
| 249 untranslated-filesystem-list))) | 249 untranslated-filesystem-list))) |
| 250 | |
| 251 ;;; Override setting chosen at startup. | |
| 252 (defun set-default-process-coding-system () | |
| 253 (setq default-process-coding-system | |
| 254 (if default-enable-multibyte-characters | |
| 255 '(undecided-dos . undecided-dos) | |
| 256 '(raw-text-dos . raw-text-dos)))) | |
| 257 | |
| 258 (add-hook 'before-init-hook 'set-default-process-coding-system) | |
| 259 | 250 |
| 260 ;;; Support for printing under DOS/Windows, see lpr.el and ps-print.el. | 251 ;;; Support for printing under DOS/Windows, see lpr.el and ps-print.el. |
| 261 | 252 |
| 262 ;; Function to actually send data to the printer port. | 253 ;; Function to actually send data to the printer port. |
| 263 ;; Supports writing directly, and using various programs. | 254 ;; Supports writing directly, and using various programs. |