(update-leim-list-file): Make it handle multiple directories.

(update-all-leim-list-files): Deleted.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index e7972045a655c87484c1eb8a4a2077fb81da4493..eb92a210fd2d12ce8a1f0bc563076a6d2060a0c0 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -358,22 +358,13 @@ See also the variable `leim-list-header'")
   "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.")