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.")