(rst-mode-abbrev-table): Mark entries as `system'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aaf4c25..a3d7cac 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-02-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * textmodes/rst.el (rst-mode-abbrev-table): Mark entries as `system'.
+
 2009-02-19  Andreas Schwab  <schwab@suse.de>
 
        * term.el: Remap self-insert-command to term-send-raw in

diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 87760bb..de2a535 100644 (file)
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -310,14 +310,14 @@ This inherits from Text mode.")
 (defvar rst-mode-abbrev-table nil
   "Abbrev table used while in Rst mode.")
 (define-abbrev-table 'rst-mode-abbrev-table
-  '(
-    ("contents" ".. contents::\n..\n   " nil 0)
-    ("con" ".. contents::\n..\n   " nil 0)
-    ("cont" "[...]" nil 0)
-    ("skip" "\n\n[...]\n\n  " nil 0)
-    ("seq" "\n\n[...]\n\n  " nil 0)
-    ;; FIXME: Add footnotes, links, and more.
-    ))
+  (mapcar (lambda (x) (append x '(nil 0 system)))
+          '(("contents" ".. contents::\n..\n   ")
+            ("con" ".. contents::\n..\n   ")
+            ("cont" "[...]")
+            ("skip" "\n\n[...]\n\n  ")
+            ("seq" "\n\n[...]\n\n  ")
+            ;; FIXME: Add footnotes, links, and more.
+            )))
 
 
 ;; Syntax table.