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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f1f7e9831201097fda626d50fcb9f161e15bc98c..2c53d1c393b9c11ae6505bb605e13320bb65bb3b 100644 (file)
--- 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 86673441fe772955e6089d78ad97ec9e1d61d635..55886e8b34fa1657e627759dc70fc7db6520bd85 100644 (file)
--- 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)