From 8cbe90747e7c9b283784550b4e1d9d9d458bd6f3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 Aug 1997 02:49:18 +0000 Subject: [PATCH] (quail-update-leim-list-file): Use insert-file-contents instead of find-file-noselect and in the process avoid the RAWFILE feature. --- lisp/international/quail.el | 31 ++++++++++++++++--------------- 1 file changed, 16 insertions(+), 15 deletions(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 172da34ef4b..f96cb898a82 100644 --- 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) -- 2.39.2