rst.el: removed junk

git-svn-id: http://svn.code.sf.net/p/docutils/code/trunk/docutils@5497 929543f6-e4f2-0310-98a6-ba3bd3dd1d04

1 files changed, 3 insertions, 8 deletions

diff --git a/tools/editors/emacs/rst.el b/tools/editors/emacs/rst.el
index 39f9d50b3..1a2d18f3c 100644
--- a/tools/editors/emacs/rst.el
+++ b/tools/editors/emacs/rst.el
@@ -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 @@ is for which (pred elem) is true)"
   '(
     ("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 @@ of each paragraph only."
 	))))
 
 
-(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