(quail-update-leim-list-file):

Use insert-file-contents instead of find-file-noselect
and in the process avoid the RAWFILE feature.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 172da34ef4bbe37780086f3221f6c9f4f1844ec7..f96cb898a8203df4ea2d9797330d6e326ad42815 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1709,7 +1709,9 @@ This is a sub-directory of LEIM directory.")
 ;;;###autoload
 (defun quail-update-leim-list-file (dirname)
   "Update entries for Quail packages in LEIM list file of directory DIRNAME.
-LEIM is a library of Emacs input method."
+LEIM is a directory containing Emacs input methods;
+normally, it should specify the `leim' subdirectory
+of the Emacs source tree."
   (interactive "FDirectory of LEIM: ")
   (setq dirname (file-name-as-directory (expand-file-name dirname)))
   (let ((quail-dir (concat dirname quail-directory-name))
@@ -1756,9 +1758,8 @@ LEIM is a library of Emacs input method."
          ;; Insert entries for Quail.
          (while pkg-list
            (message "Checking %s ..." (car pkg-list))
-           (setq pkg-buf (find-file-noselect (car pkg-list) t t))
-           (save-excursion
-             (set-buffer pkg-buf)
+           (with-temp-buffer
+             (insert-file-contents (car pkg-list))
              (goto-char (point-min))
              (while (search-forward "(quail-define-package" nil t)
                (goto-char (match-beginning 0))
@@ -1768,17 +1769,17 @@ LEIM is a library of Emacs input method."
                    (insert (format "(register-input-method
  %S %S '%s
  %S %S
- %S)\n" (nth 1 form)                   ; PACKAGE-NAME
- (nth 2 form)                          ; LANGUAGE
- 'quail-use-package                    ; ACTIVATE-FUNC
- (nth 3 form)                          ; PACKAGE-TITLE
- (progn                                        ; PACKAGE-DESCRIPTION (one line)
-   (string-match ".*" (nth 5 form))
-   (match-string 0 (nth 5 form)))
- (file-relative-name                   ; PACKAGE-FILENAME
-  (file-name-sans-extension (car pkg-list)) dirname)
- ))))))
-           (kill-buffer pkg-buf)
+ %S)\n"
+                                   (nth 1 form)        ; PACKAGE-NAME
+                                   (nth 2 form)        ; LANGUAGE
+                                   'quail-use-package  ; ACTIVATE-FUNC
+                                   (nth 3 form)        ; PACKAGE-TITLE
+                                   (progn    ; PACKAGE-DESCRIPTION (one line)
+                                     (string-match ".*" (nth 5 form))
+                                     (match-string 0 (nth 5 form)))
+                                   (file-relative-name ; PACKAGE-FILENAME
+                                    (file-name-sans-extension (car pkg-list))
+                                    dirname)))))))
            (setq pkg-list (cdr pkg-list)))
          (save-excursion
            (set-buffer list-buf)