Mercurial > emacs
comparison lisp/abbrev.el @ 862:46630543d659
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Jul 1992 06:09:27 +0000 |
| parents | 20674ae6bf52 |
| children | 52a05f4884a4 |
comparison
equal
deleted
inserted
replaced
| 861:345296f94a1e | 862:46630543d659 |
|---|---|
| 123 (save-excursion | 123 (save-excursion |
| 124 (goto-char (point-min)) | 124 (goto-char (point-min)) |
| 125 (while (and (not (eobp)) (re-search-forward "^(" nil t)) | 125 (while (and (not (eobp)) (re-search-forward "^(" nil t)) |
| 126 (let* ((buf (current-buffer)) | 126 (let* ((buf (current-buffer)) |
| 127 (table (read buf)) | 127 (table (read buf)) |
| 128 abbrevs) | 128 abbrevs name hook exp count) |
| 129 (forward-line 1) | 129 (forward-line 1) |
| 130 (while (progn (forward-line 1) | 130 (while (progn (forward-line 1) |
| 131 (not (eolp))) | 131 (not (eolp))) |
| 132 (setq name (read buf) count (read buf) exp (read buf)) | 132 (setq name (read buf) count (read buf) exp (read buf)) |
| 133 (skip-chars-backward " \t\n\f") | 133 (skip-chars-backward " \t\n\f") |