Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-misc.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents 360340f9fd5f
children 585fb297b004
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
1 ;;; mule-misc.el --- Miscellaneous Mule functions. 1 ;; mule-misc.el --- Miscellaneous Mule functions.
2 2
3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992,93,94,95 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Amdahl Corporation. 4 ;; Copyright (C) 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 6
263 (when (not (string= (charset-registry 'ascii) "ISO8859-1")) 263 (when (not (string= (charset-registry 'ascii) "ISO8859-1"))
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)
270 (egg-lang-switch-callback))
271 ;; (if (fboundp 'quail)
272 ;; (quail-lang-switch-callback))
273 )
269 274
270 (defun define-language-environment (env-sym doc-string enable-function) 275 (defun define-language-environment (env-sym doc-string enable-function)
271 "Define a new language environment, named by ENV-SYM. 276 "Define a new language environment, named by ENV-SYM.
272 DOC-STRING should be a string describing the environment. 277 DOC-STRING should be a string describing the environment.
273 ENABLE-FUNCTION should be a function of no arguments that will be called 278 ENABLE-FUNCTION should be a function of no arguments that will be called
274 when the language environment is made current." 279 when the language environment is made current."
275 (put env-sym 'lang-environ-doc-string doc-string) 280 (put env-sym 'lang-environ-doc-string doc-string)
276 (put env-sym 'set-lang-environ enable-function) 281 (put env-sym 'set-lang-environ enable-function)
277 (setq language-environment-list (cons env-sym language-environment-list))) 282 (setq language-environment-list (cons env-sym language-environment-list)))
283
284 (defun define-egg-environment (env-sym doc-string enable-function)
285 "Define a new language environment for egg, named by ENV-SYM.
286 DOC-STRING should be a string describing the environment.
287 ENABLE-FUNCTION should be a function of no arguments that will be called
288 when the language environment is made current."
289 (put env-sym 'egg-environ-doc-string doc-string)
290 (put env-sym 'set-egg-environ enable-function))
291
292 (defun define-quail-environment (env-sym doc-string enable-function)
293 "Define a new language environment for quail, named by ENV-SYM.
294 DOC-STRING should be a string describing the environment.
295 ENABLE-FUNCTION should be a function of no arguments that will be called
296 when the language environment is made current."
297 (put env-sym 'quail-environ-doc-string doc-string)
298 (put env-sym 'set-quail-environ enable-function))
299