Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 7347b34c275b
children
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
549 549
550 (defvar input-method-after-insert-chunk-hook nil 550 (defvar input-method-after-insert-chunk-hook nil
551 "Normal hook run just after an input method insert some chunk of text.") 551 "Normal hook run just after an input method insert some chunk of text.")
552 552
553 (defvar input-method-exit-on-invalid-key nil 553 (defvar input-method-exit-on-invalid-key nil
554 "This flag controls the behaviour of an input method on invalid key input. 554 "This flag controls the behavior of an input method on invalid key input.
555 Usually, when a user types a key which doesn't start any character 555 Usually, when a user types a key which doesn't start any character
556 handled by the input method, the key is handled by turning off the 556 handled by the input method, the key is handled by turning off the
557 input method temporalily. After the key is handled, the input method is 557 input method temporalily. After the key is handled, the input method is
558 back on. 558 back on.
559 But, if this flag is non-nil, the input method is never back on.") 559 But, if this flag is non-nil, the input method is never back on.")
611 (defun describe-language-environment (language-name) 611 (defun describe-language-environment (language-name)
612 "Describe how Emacs supports language environment LANGUAGE-NAME." 612 "Describe how Emacs supports language environment LANGUAGE-NAME."
613 (interactive 613 (interactive
614 (list (read-language-name 614 (list (read-language-name
615 'documentation 615 'documentation
616 "Describe language environment (default, current choise): "))) 616 "Describe language environment (default, current choice): ")))
617 (if (null language-name) 617 (if (null language-name)
618 (setq language-name current-language-environment)) 618 (setq language-name current-language-environment))
619 (if (or (null language-name) 619 (if (or (null language-name)
620 (null (get-language-info language-name 'documentation))) 620 (null (get-language-info language-name 'documentation)))
621 (error "No documentation for the specified language")) 621 (error "No documentation for the specified language"))