Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-misc.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents 6608ceec7cf8
children 5a88923fcbfe
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
264 (set-charset-registry 'ascii "ISO8859-1")) 264 (set-charset-registry 'ascii "ISO8859-1"))
265 (let ((func (get env 'set-lang-environ))) 265 (let ((func (get env 'set-lang-environ)))
266 (if (not (null func)) 266 (if (not (null func))
267 (funcall func))) 267 (funcall func)))
268 (setq current-language-environment env) 268 (setq current-language-environment env)
269 (if (fboundp 'egg) 269 (if (featurep 'egg)
270 (egg-lang-switch-callback)) 270 (egg-lang-switch-callback))
271 ;; (if (fboundp 'quail) 271 ;; (if (featurep 'quail)
272 ;; (quail-lang-switch-callback)) 272 ;; (quail-lang-switch-callback))
273 ) 273 )
274 274
275 (defun define-language-environment (env-sym doc-string enable-function) 275 (defun define-language-environment (env-sym doc-string enable-function)
276 "Define a new language environment, named by ENV-SYM. 276 "Define a new language environment, named by ENV-SYM.