(define-abbrevs): Read system abbrevs properly.

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 3580c136948c8db345806c4237647be202a81f7d..aa4249d014ee0f07db4092383a0c026860268be0 100644 (file)
--- 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)