mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(set-default-process-coding-system): Use function on

Browse Source 
before-init-hook to set default-process-coding-system based on
enable-multibyte-characters.
This commit is contained in:
Geoff Voelker 1998-11-10 21:06:50 +00:00
parent ccc2d29c56
commit 5dbd225734
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/dos-w32.el
View File

@ -247,10 +247,14 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
(delete (untranslated-canonical-name filesystem) (delete (untranslated-canonical-name filesystem)
untranslated-filesystem-list))) untranslated-filesystem-list)))
(setq-default default-process-coding-system ;;; Override setting chosen at startup.
(if (fboundp 'start-process) (defun set-default-process-coding-system ()
'(raw-text-dos . raw-text-dos) (setq default-process-coding-system
'(undecided-dos . undecided-dos))) (if default-enable-multibyte-characters
'(undecided-dos . undecided-dos)
'(raw-text-dos . raw-text-dos))))
(add-hook 'before-init-hook 'set-default-process-coding-system)
;; Support for printing under DOS/Windows, see lpr.el and ps-print.el. ;; Support for printing under DOS/Windows, see lpr.el and ps-print.el.
(defvar printer-name) (defvar printer-name)