[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/abbrev.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/abbrev.el |
Date: |
Sun, 10 Apr 2005 19:25:56 -0400 |
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)
- [Emacs-diffs] Changes to emacs/lisp/abbrev.el,
Richard M . Stallman <=