[Emacs-diffs] /srv/bzr/emacs/trunk r107464: Reset sys to nil in define-abbrevs

[Leo Liu]

------------------------------------------------------------
revno: 107464
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Wed 2012-02-29 23:05:42 +0800
message:
  Reset sys to nil in define-abbrevs
  
  Otherwise all abbrevs after are regarded as system ones and not saved
  to disk, causing data loss.
modified:
  lisp/ChangeLog
  lisp/abbrev.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-02-28 12:36:39 +0000
+++ b/lisp/ChangeLog    2012-02-29 15:05:42 +0000
@@ -1,3 +1,7 @@
+2012-02-29  Leo Liu  <address@hidden>
+
+       * abbrev.el (define-abbrevs): Reset sys to nil.
+
 2012-02-28  Thierry Volpiatto  <address@hidden>
 
        * files.el (file-equal-p): Rename from `files-equal-p'.

=== modified file 'lisp/abbrev.el'
--- a/lisp/abbrev.el    2012-01-19 07:21:25 +0000
+++ b/lisp/abbrev.el    2012-02-29 15:05:42 +0000
@@ -191,7 +191,8 @@
                      (not (eolp)))
          (setq name (read buf) count (read buf))
          (if (equal count '(sys))
-             (setq sys t count (read buf)))
+             (setq sys t count (read buf))
+           (setq sys nil))
          (setq exp (read buf))
          (skip-chars-backward " \t\n\f")
          (setq hook (if (not (eolp)) (read buf)))