Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-init.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 3bb7ccffb0c0
children e45d5e7c476e
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
103 103
104 ;; Load a (localizable) locale-specific init file, if it exists. 104 ;; Load a (localizable) locale-specific init file, if it exists.
105 (load (format "locale/%s/locale-start" lang) t t))) 105 (load (format "locale/%s/locale-start" lang) t t)))
106 106
107 (when (current-language-environment) 107 (when (current-language-environment)
108 ;; Translate remaining args on command line using pathname-coding-system 108 ;; Translate remaining args on command line using file-name-coding-system
109 (loop for arg in-ref command-line-args-left do 109 (loop for arg in-ref command-line-args-left do
110 (setf arg (decode-coding-string arg pathname-coding-system))) 110 (setf arg (decode-coding-string arg file-name-coding-system)))
111 111
112 ;; rman seems to be incompatible with encoded text 112 ;; rman seems to be incompatible with encoded text
113 (setq Manual-use-rosetta-man nil) 113 (setq Manual-use-rosetta-man nil)
114 114
115 ;; Make sure ls -l output is readable by dired and encoded using 115 ;; Make sure ls -l output is readable by dired and encoded using
116 ;; pathname-coding-system 116 ;; file-name-coding-system
117 (add-hook 117 (add-hook
118 'dired-mode-hook 118 'dired-mode-hook
119 (lambda () 119 (lambda ()
120 (make-local-variable 'process-environment) 120 (make-local-variable 'process-environment)
121 (setenv "LC_MESSAGES" "C") 121 (setenv "LC_MESSAGES" "C")
122 (setenv "LC_TIME" "C")))) 122 (setenv "LC_TIME" "C"))))
123
124 ;; Register avairable input methods by loading LEIM list file.
125 (load "leim-list.el" 'noerror 'nomessage 'nosuffix)
123 ) 126 )
124 127
125 (add-hook 'before-init-hook 'init-mule) 128 (add-hook 'before-init-hook 'init-mule)
126 129
127 ;;;;; Enable the tm package by default 130 ;;;;; Enable the tm package by default