diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-04-10 23:25:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-04-10 23:25:56 +0000 |
| commit | 2f229dc43ad058d014032bd5d06be50ac4358cb9 (patch) | |
| tree | 9c33fd4fe583e576bc8045627c3562c594b12e2c /lisp/abbrev.el | |
| parent | 90d0422ab8e9a865712df692b1c7505fa88a8774 (diff) | |
| download | emacs-2f229dc43ad058d014032bd5d06be50ac4358cb9.tar.gz | |
(define-abbrevs): Read system abbrevs properly.
Diffstat (limited to 'lisp/abbrev.el')
| -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." (while (and (not (eobp)) (re-search-forward "^(" nil t)) (let* ((buf (current-buffer)) (table (read buf)) - abbrevs name hook exp count) + abbrevs name hook exp count sys) (forward-line 1) (while (progn (forward-line 1) (not (eolp))) - (setq name (read buf) count (read buf) exp (read buf)) + (setq name (read buf) count (read buf)) + (if (equal count '(sys)) + (setq sys t count (read buf))) + (setq exp (read buf)) (skip-chars-backward " \t\n\f") (setq hook (if (not (eolp)) (read buf))) (skip-chars-backward " \t\n\f") - (setq abbrevs (cons (list name exp hook count) abbrevs))) + (setq abbrevs (cons (list name exp hook count sys) abbrevs))) (define-abbrev-table table abbrevs))))) (defun read-abbrev-file (&optional file quietly) |