Mercurial > emacs

comparison lisp/dos-fns.el @ 104823:68150c643e2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use default-value rather than default-enable-multibyte-characters.
author Glenn Morris <rgm@gnu.org>
date Thu, 03 Sep 2009 06:54:57 +0000
parents c4fb8f245750
children f26e1b8ad86e
comparison
equal deleted inserted replaced
104822:a41e72b7e5fc 104823:68150c643e2e
1 ;;; dos-fns.el --- MS-Dos specific functions 1 ;;; dos-fns.el --- MS-Dos specific functions
2 2
3 ;; Copyright (C) 1991, 1993, 1995, 1996, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1991, 1993, 1995, 1996, 2001, 2002, 2003, 2004, 2005,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4 ;; 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
5 5
6 ;; Maintainer: Morten Welinder <terra@diku.dk> 6 ;; Maintainer: Morten Welinder <terra@diku.dk>
7 ;; Keywords: internal 7 ;; Keywords: internal
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
209 (defvar msdos-shells) 209 (defvar msdos-shells)
210 210
211 ;; Override settings chosen at startup. 211 ;; Override settings chosen at startup.
212 (defun set-default-process-coding-system () 212 (defun set-default-process-coding-system ()
213 (setq default-process-coding-system 213 (setq default-process-coding-system
214 (if default-enable-multibyte-characters 214 (if (default-value 'enable-multibyte-characters)
215 '(undecided-dos . undecided-dos) 215 '(undecided-dos . undecided-dos)
216 '(raw-text-dos . raw-text-dos)))) 216 '(raw-text-dos . raw-text-dos))))
217 217
218 (add-hook 'before-init-hook 'set-default-process-coding-system) 218 (add-hook 'before-init-hook 'set-default-process-coding-system)
219 219