Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
36 (defconst modeline-multibyte-status '("%C") 36 (defconst modeline-multibyte-status '("%C")
37 "Modeline control for showing multibyte extension status.") 37 "Modeline control for showing multibyte extension status.")
38 38
39 ;; override the default value defined in loaddefs.el. 39 ;; override the default value defined in loaddefs.el.
40 (setq-default modeline-format 40 (setq-default modeline-format
41 (cons (purecopy "") 41 (cons ""
42 (cons 'modeline-multibyte-status 42 (cons 'modeline-multibyte-status
43 (cdr modeline-format)))) 43 (cdr modeline-format))))
44 44
45 (defun modify-coding-system-alist (target-type regexp coding-system) 45 (defun modify-coding-system-alist (target-type regexp coding-system)
46 "Modify one of look up tables for finding a coding system on I/O operation. 46 "Modify one of look up tables for finding a coding system on I/O operation.
47 There are three of such tables, `file-coding-system-alist', 47 There are three of such tables, `file-coding-system-alist',
48 `process-coding-system-alist', and `network-coding-system-alist'. 48 `process-coding-system-alist', and `network-coding-system-alist'.