Mercurial > emacs
changeset 19200:74ec766c0ada
(quail-update-leim-list-file):
Use insert-file-contents instead of find-file-noselect
and in the process avoid the RAWFILE feature.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 Aug 1997 02:49:18 +0000 |
| parents | da8774e1207b |
| children | f502f8e2322a |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 16 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Thu Aug 07 02:43:11 1997 +0000 +++ b/lisp/international/quail.el Thu Aug 07 02:49:18 1997 +0000 @@ -1709,7 +1709,9 @@ ;;;###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 @@ ;; 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 @@ (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)