procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-abbrevs): Read system abbrevs properly.

Browse source
This commit is contained in:
Richard M. Stallman 2005-04-10 23:25:56 +00:00
parent 90d0422ab8
commit 2f229dc43a
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/abbrev.el
View file

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