Mercurial > emacs

comparison lisp/international/quail.el @ 19144:842869692447

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-update-leim-list-file): Go to the beginning of the package file, in case it was already visited.
author Richard M. Stallman <rms@gnu.org>
date Mon, 04 Aug 1997 18:55:42 +0000
parents 9f4b95f30c4f
children 74ec766c0ada
comparison
equal deleted inserted replaced
19143:96a5705f73d5 19144:842869692447
1757 (while pkg-list 1757 (while pkg-list
1758 (message "Checking %s ..." (car pkg-list)) 1758 (message "Checking %s ..." (car pkg-list))
1759 (setq pkg-buf (find-file-noselect (car pkg-list) t t)) 1759 (setq pkg-buf (find-file-noselect (car pkg-list) t t))
1760 (save-excursion 1760 (save-excursion
1761 (set-buffer pkg-buf) 1761 (set-buffer pkg-buf)
1762 (goto-char (point-min))
1762 (while (search-forward "(quail-define-package" nil t) 1763 (while (search-forward "(quail-define-package" nil t)
1763 (goto-char (match-beginning 0)) 1764 (goto-char (match-beginning 0))
1764 (let ((form (read (current-buffer)))) 1765 (let ((form (read (current-buffer))))
1765 (save-excursion 1766 (save-excursion
1766 (set-buffer list-buf) 1767 (set-buffer list-buf)