diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-29 02:06:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-29 02:06:39 +0000 |
| commit | a337fe7f350e2e5a9e5945d56aaca0a972e8f262 (patch) | |
| tree | aae3e5943d20d3851a18b89195e9abbceb42ae36 /lisp | |
| parent | 9ba344f7bf57c53b719959b929bc4bf619c3ba9a (diff) | |
| download | emacs-a337fe7f350e2e5a9e5945d56aaca0a972e8f262.tar.gz | |
(update-leim-list-file): Make it handle multiple directories.
(update-all-leim-list-files): Deleted.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 15 |
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.") |