Mercurial > emacs
changeset 19615:4cdef838afb0
(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 | bc9b6200a609 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 3 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Aug 28 20:08:00 1997 +0000 +++ b/lisp/international/mule-cmds.el Fri Aug 29 02:06:39 1997 +0000 @@ -358,22 +358,13 @@ "List of functions to call to update LEIM list file. Each function is called with one arg, LEIM directory name.") -(defun update-leim-list-file (dir) - "Update LEIM list file in directory DIR." +(defun update-leim-list-file (&rest dirs) + "Update LEIM list file in directories DIRS." (let ((functions update-leim-list-functions)) (while functions - (funcall (car functions) (expand-file-name dir)) + (apply (car functions) dirs) (setq functions (cdr functions))))) -(defun update-all-leim-list-files () - "Update all the LEIM list files." - (interactive) - (let ((l load-path)) - (while l - (if (string-match "leim" (car l)) - (update-leim-list-file (car l))) - (setq l (cdr l))))) - (defvar current-input-method nil "The current input method for multilingual text. If nil, that means no input method is activated now.")