/[emacs]/emacs/lisp/abbrev.el
ViewVC logotype

Diff of /emacs/lisp/abbrev.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by jpw, Sun Aug 1 03:55:30 2004 UTC revision 1.39 by rms, Sun Apr 10 23:25:56 2005 UTC
# Line 172  the ones defined from the buffer now." Line 172  the ones defined from the buffer now."
172     (while (and (not (eobp)) (re-search-forward "^(" nil t))     (while (and (not (eobp)) (re-search-forward "^(" nil t))
173       (let* ((buf (current-buffer))       (let* ((buf (current-buffer))
174              (table (read buf))              (table (read buf))
175              abbrevs name hook exp count)              abbrevs name hook exp count sys)
176         (forward-line 1)         (forward-line 1)
177         (while (progn (forward-line 1)         (while (progn (forward-line 1)
178                       (not (eolp)))                       (not (eolp)))
179           (setq name (read buf) count (read buf) exp (read buf))           (setq name (read buf) count (read buf))
180             (if (equal count '(sys))
181                 (setq sys t count (read buf)))
182             (setq exp (read buf))
183           (skip-chars-backward " \t\n\f")           (skip-chars-backward " \t\n\f")
184           (setq hook (if (not (eolp)) (read buf)))           (setq hook (if (not (eolp)) (read buf)))
185           (skip-chars-backward " \t\n\f")           (skip-chars-backward " \t\n\f")
186           (setq abbrevs (cons (list name exp hook count) abbrevs)))           (setq abbrevs (cons (list name exp hook count sys) abbrevs)))
187         (define-abbrev-table table abbrevs)))))         (define-abbrev-table table abbrevs)))))
188    
189  (defun read-abbrev-file (&optional file quietly)  (defun read-abbrev-file (&optional file quietly)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26