diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/abbrev.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 3580c136948..aa4249d014e 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el | |||
| @@ -172,15 +172,18 @@ the ones defined from the buffer now." | |||
| 172 | (while (and (not (eobp)) (re-search-forward "^(" nil t)) | 172 | (while (and (not (eobp)) (re-search-forward "^(" nil t)) |
| 173 | (let* ((buf (current-buffer)) | 173 | (let* ((buf (current-buffer)) |
| 174 | (table (read buf)) | 174 | (table (read buf)) |
| 175 | abbrevs name hook exp count) | 175 | abbrevs name hook exp count sys) |
| 176 | (forward-line 1) | 176 | (forward-line 1) |
| 177 | (while (progn (forward-line 1) | 177 | (while (progn (forward-line 1) |
| 178 | (not (eolp))) | 178 | (not (eolp))) |
| 179 | (setq name (read buf) count (read buf) exp (read buf)) | 179 | (setq name (read buf) count (read buf)) |
| 180 | (if (equal count '(sys)) | ||
| 181 | (setq sys t count (read buf))) | ||
| 182 | (setq exp (read buf)) | ||
| 180 | (skip-chars-backward " \t\n\f") | 183 | (skip-chars-backward " \t\n\f") |
| 181 | (setq hook (if (not (eolp)) (read buf))) | 184 | (setq hook (if (not (eolp)) (read buf))) |
| 182 | (skip-chars-backward " \t\n\f") | 185 | (skip-chars-backward " \t\n\f") |
| 183 | (setq abbrevs (cons (list name exp hook count) abbrevs))) | 186 | (setq abbrevs (cons (list name exp hook count sys) abbrevs))) |
| 184 | (define-abbrev-table table abbrevs))))) | 187 | (define-abbrev-table table abbrevs))))) |
| 185 | 188 | ||
| 186 | (defun read-abbrev-file (&optional file quietly) | 189 | (defun read-abbrev-file (&optional file quietly) |