From 2f229dc43ad058d014032bd5d06be50ac4358cb9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Apr 2005 23:25:56 +0000 Subject: [PATCH] (define-abbrevs): Read system abbrevs properly. --- lisp/abbrev.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 3580c136948..aa4249d014e 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -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) -- 2.39.2