Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-misc.el @ 177:6075d714658b r20-3b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 5a88923fcbfe
children e45d5e7c476e
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
214 "Set the current language environment to ENV." 214 "Set the current language environment to ENV."
215 (interactive 215 (interactive
216 (list (intern (completing-read "Language environment: " 216 (list (intern (completing-read "Language environment: "
217 obarray 'language-environment-p 217 obarray 'language-environment-p
218 'require-match)))) 218 'require-match))))
219 (when (not (string= (charset-registry 'ascii) "ISO8859-1")) 219 (when (not (string= (charset-registry 'ascii) "iso8859-1"))
220 (set-charset-registry 'ascii "ISO8859-1")) 220 (set-charset-registry 'ascii "iso8859-1"))
221 (let ((func (get env 'set-lang-environ))) 221 (let ((func (get env 'set-lang-environ)))
222 (if (not (null func)) 222 (if (not (null func))
223 (funcall func))) 223 (funcall func)))
224 (setq current-language-environment env) 224 (setq current-language-environment env)
225 (if (featurep 'egg) 225 (if (featurep 'egg)