Mercurial > emacs

comparison lisp/international/mule-cmds.el @ 19615:4cdef838afb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(update-leim-list-file): Make it handle multiple directories. (update-all-leim-list-files): Deleted.
author Richard M. Stallman <rms@gnu.org>
date Fri, 29 Aug 1997 02:06:39 +0000
parents a0db11a32775
children b2bf3c43c86a
comparison
equal deleted inserted replaced
19614:a0db11a32775 19615:4cdef838afb0
356 (defvar update-leim-list-functions 356 (defvar update-leim-list-functions
357 '(quail-update-leim-list-file) 357 '(quail-update-leim-list-file)
358 "List of functions to call to update LEIM list file. 358 "List of functions to call to update LEIM list file.
359 Each function is called with one arg, LEIM directory name.") 359 Each function is called with one arg, LEIM directory name.")
360 360
361 (defun update-leim-list-file (dir) 361 (defun update-leim-list-file (&rest dirs)
362 "Update LEIM list file in directory DIR." 362 "Update LEIM list file in directories DIRS."
363 (let ((functions update-leim-list-functions)) 363 (let ((functions update-leim-list-functions))
364 (while functions 364 (while functions
365 (funcall (car functions) (expand-file-name dir)) 365 (apply (car functions) dirs)
366 (setq functions (cdr functions))))) 366 (setq functions (cdr functions)))))
367
368 (defun update-all-leim-list-files ()
369 "Update all the LEIM list files."
370 (interactive)
371 (let ((l load-path))
372 (while l
373 (if (string-match "leim" (car l))
374 (update-leim-list-file (car l)))
375 (setq l (cdr l)))))
376 367
377 (defvar current-input-method nil 368 (defvar current-input-method nil
378 "The current input method for multilingual text. 369 "The current input method for multilingual text.
379 If nil, that means no input method is activated now.") 370 If nil, that means no input method is activated now.")
380 (make-variable-buffer-local 'current-input-method) 371 (make-variable-buffer-local 'current-input-method)