[Docutils-checkins] r5497 - trunk/docutils/tools/editors/emacs/rst.el

[<bl...@us...>]

Author: blais
Date: 2008-01-12 01:09:22 +0100 (Sat, 12 Jan 2008)
New Revision: 5497

Modified:
   trunk/docutils/tools/editors/emacs/rst.el
Log:
rst.el: removed junk

Modified: trunk/docutils/tools/editors/emacs/rst.el
===================================================================
--- trunk/docutils/tools/editors/emacs/rst.el	2008-01-06 22:11:35 UTC (rev 5496)
+++ trunk/docutils/tools/editors/emacs/rst.el	2008-01-12 00:09:22 UTC (rev 5497)
@@ -208,7 +208,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Define some generic support functions.
 
-;; (require 'cl) FIXME, do we really need this? RMS doesn't like it.
+(require 'cl) ;; We need this for destructuring-bind below.
 
 ;; Generic Filter function.
 (unless (fboundp 'filter)
@@ -321,6 +321,8 @@
   '(
     ("contents" ".. contents::\n..\n   " nil 0)
     ("con" ".. contents::\n..\n   " nil 0)
+    ("cont" "[...]" nil 0)
+    ("skip" "[...]" nil 0)
     ;; FIXME: Add footnotes, links, and more.
     ))
 
@@ -2448,13 +2450,6 @@
 	))))
 
 
-(destructuring-bind ((beg end &optional parabegin leftmost isleft) &rest body)
-;;    '((1 2) a b c)
-    '((1 2 3) a b c)
-  (print (list beg end parabegin leftmost isleft body)))
-
-
-
 (defmacro rst-iterate-leftmost-paragraphs-2 (spec &rest body)
   "Evaluate BODY for each line in region defined by BEG END.
 LEFTMOST is set to true if the line is one of the leftmost of the