Mercurial > emacs

comparison lisp/international/mule-cmds.el @ 51979:c10df4bc9f06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-locale-environment): langinfo renamed to locale-info.
author Richard M. Stallman <rms@gnu.org>
date Mon, 21 Jul 2003 09:54:34 +0000
parents 4510b8eaa84a
children 695cf19ef79e
comparison
equal deleted inserted replaced
51978:afa6be6a5c62 51979:c10df4bc9f06
2300 (when coding-system 2300 (when coding-system
2301 (prefer-coding-system coding-system) 2301 (prefer-coding-system coding-system)
2302 (setq locale-coding-system coding-system)))) 2302 (setq locale-coding-system coding-system))))
2303 2303
2304 ;; Default to A4 paper if we're not in a C, POSIX or US locale. 2304 ;; Default to A4 paper if we're not in a C, POSIX or US locale.
2305 ;; (See comments in Flanginfo.) 2305 ;; (See comments in Flocale_info.)
2306 (let ((locale locale) 2306 (let ((locale locale)
2307 (paper (langinfo 'paper))) 2307 (paper (locale-info 'paper)))
2308 (if paper 2308 (if paper
2309 ;; This will always be null at the time of writing. 2309 ;; This will always be null at the time of writing.
2310 (cond 2310 (cond
2311 ((equal paper '(216 279)) 2311 ((equal paper '(216 279))
2312 (setq ps-paper-type 'letter)) 2312 (setq ps-paper-type 'letter))