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

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

1 files changed, 3 insertions, 12 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index e7972045a65..eb92a210fd2 100644
--- 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.")