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) |