diff options
| author | Richard M. Stallman | 1997-08-04 18:55:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-04 18:55:42 +0000 |
| commit | 4adf39571b364f4177d09c89d162df073db65656 (patch) | |
| tree | d5439e57d5dfe93e345b7d3bc2a675e934aba794 /lisp | |
| parent | 8cdc3b3d9d28e6d451db3f02e2344d31f42ef388 (diff) | |
| download | emacs-4adf39571b364f4177d09c89d162df073db65656.tar.gz emacs-4adf39571b364f4177d09c89d162df073db65656.zip | |
(quail-update-leim-list-file): Go to the
beginning of the package file, in case it was already visited.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/quail.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 7e0cdb3fc6e..172da34ef4b 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el | |||
| @@ -1759,6 +1759,7 @@ LEIM is a library of Emacs input method." | |||
| 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)))) |