From a337fe7f350e2e5a9e5945d56aaca0a972e8f262 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Aug 1997 02:06:39 +0000 Subject: [PATCH] (update-leim-list-file): Make it handle multiple directories. (update-all-leim-list-files): Deleted. --- lisp/international/mule-cmds.el | 15 +++------------ 1 file 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.") -- 2.39.2