mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(set-default-process-coding-system): Copied from dos-w32.el.

Browse Source
This commit is contained in:
Andrew Innes 1999-03-25 22:51:54 +00:00
parent b1ed864845
commit 224116b8e9
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/dos-fns.el
View File

@ -81,6 +81,15 @@ with a definition that really does change some file names."
;; See dos-vars.el for defcustom.
(defvar msdos-shells)
;;; Override setting chosen at startup.
(defun set-default-process-coding-system ()
(setq default-process-coding-system
(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)
(defvar register-name-alist
'((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5)
(cflag . 6) (flags . 7)

9
lisp/dos-w32.el
View File

@ -248,15 +248,6 @@ filesystem mounted on drive Z:, FILESYSTEM could be \"Z:\"."
(delete (untranslated-canonical-name filesystem)
untranslated-filesystem-list)))
;;; Override setting chosen at startup.
(defun set-default-process-coding-system ()
(setq default-process-coding-system
(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.
;; Function to actually send data to the printer port.