(rx): Work at compile time, not run time.

2 files changed, 16 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1f7e983120..2c53d1c393b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2004-03-21  Dave Love  <fx@gnu.org>
+
+        * progmodes/cfengine.el (cfengine-mode): Set
+        parse-sexp-ignore-comments.
+
+        * emacs-lisp/rx.el (rx): Work at compile time, not run time.
+
 2004-03-21  Juanma Barranquero  <lektu@terra.es>
 
         * allout.el (allout-mode): Fix docstring.
@@ -21,7 +28,7 @@
         (ruler-mode-space): Don't depend on a numeric WIDTH value.
         (ruler-mode-ruler): Use symbolic display elements for scrollbar,
         fringes and margins width.
-        (ruler-mode-ruler-function): Default to ruler-mode-ruler
+        (ruler-mode-ruler-function): Default to ruler-mode-ruler.
 
 2004-03-19  Kim F. Storm  <storm@cua.dk>
 
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index 86673441fe7..55886e8b34f 100644
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -1,6 +1,6 @@
 ;;; rx.el --- sexp notation for regular expressions
 
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
 
 ;; Author: Gerd Moellmann <gerd@gnu.org>
 ;; Maintainer: FSF
@@ -799,14 +799,17 @@ CHAR
 `(repeat N M SEXP)'
      matches N to M occurrences of what SEXP matches.
 
+`(backref N)'
+     matches what was matched previously by submatch N.
+
 `(eval FORM)'
-      evaluate FORM and insert result.  If result is a string,
-      `regexp-quote' it.
+     evaluate FORM and insert result.  If result is a string,
+     `regexp-quote' it.
 
 `(regexp REGEXP)'
-      include REGEXP in string notation in the result."
+     include REGEXP in string notation in the result."
 
-  `(rx-to-string ',regexp))
+  (rx-to-string regexp))
 
 
 (provide 'rx)