[Emacs-diffs] Changes to emacs/lisp/abbrev.el

[Richard M . Stallman]

Index: emacs/lisp/abbrev.el
diff -c emacs/lisp/abbrev.el:1.38 emacs/lisp/abbrev.el:1.39
*** emacs/lisp/abbrev.el:1.38   Sun Aug  1 03:55:30 2004
--- emacs/lisp/abbrev.el        Sun Apr 10 23:25:56 2005
***************
*** 172,186 ****
     (while (and (not (eobp)) (re-search-forward "^(" nil t))
       (let* ((buf (current-buffer))
            (table (read buf))
!           abbrevs name hook exp count)
         (forward-line 1)
         (while (progn (forward-line 1)
                     (not (eolp)))
!        (setq name (read buf) count (read buf) 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)))
         (define-abbrev-table table abbrevs)))))
  
  (defun read-abbrev-file (&optional file quietly)
--- 172,189 ----
     (while (and (not (eobp)) (re-search-forward "^(" nil t))
       (let* ((buf (current-buffer))
            (table (read buf))
!           abbrevs name hook exp count sys)
         (forward-line 1)
         (while (progn (forward-line 1)
                     (not (eolp)))
!        (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 sys) abbrevs)))
         (define-abbrev-table table abbrevs)))))
  
  (defun read-abbrev-file (&optional file quietly)