Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents acd284d43ca1
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
309 nil t nil 'input-method-history) 309 nil t nil 'input-method-history)
310 ;;default) 310 ;;default)
311 )) 311 ))
312 (if (> (length input-method) 0) 312 (if (> (length input-method) 0)
313 input-method 313 input-method
314 (if inhibit-null 314 ;; If we have a default, use it, otherwise check inhibit-null
315 (error "No valid input method is specified"))))) 315 (if default
316 default
317 (if inhibit-null
318 (error "No valid input method is specified"))))))
316 319
317 (defun activate-input-method (input-method) 320 (defun activate-input-method (input-method)
318 "Turn INPUT-METHOD on. 321 "Turn INPUT-METHOD on.
319 If some input method is already on, turn it off at first." 322 If some input method is already on, turn it off at first."
320 (if (symbolp input-method) 323 (if (symbolp input-method)