Mercurial > emacs

changeset 61448:7d5a5b63ec13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-abbrevs): Read system abbrevs properly.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 Apr 2005 23:25:56 +0000
parents ff2428b81ec5
children a8e7bc540c1c
files lisp/abbrev.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/abbrev.el	Sun Apr 10 23:25:16 2005 +0000
+++ b/lisp/abbrev.el	Sun Apr 10 23:25:56 2005 +0000
@@ -172,15 +172,18 @@
    (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)