From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 27 Mar 2004 11:52:07 +0000 (+0000)
Subject: (rx): Work at compile time, not run time.
X-Git-Tag: ttn-vms-21-2-B4~7064
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05ec033b10d89c6c2b4b1139ff2907c83bf4adb6;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b77d8ddacc3..9c258b77a1f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-03-27  Dave Love  <fx@gnu.org>
 
+	* emacs-lisp/rx.el (rx): Work at compile time, not run time.
+
 	* strokes.el (strokes-global-set-stroke-string): New function.
 	(strokes-list-strokes): Cope with strings, not just commands.  Set
 	foreground colour of image.
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index b94ac57eca1..6656cf5ed3c 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, 03, 2004  Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2003, 2004  Free Software Foundation, Inc.
 
 ;; Author: Gerd Moellmann <gerd@gnu.org>
 ;; Maintainer: FSF
@@ -802,6 +802,9 @@ CHAR
 `(backref N)'
      matches what was matched previously by submatch N.
 
+`(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.
@@ -811,7 +814,6 @@ CHAR
 
   (rx-to-string regexp))
 
-
 (provide 'rx)
 
 ;;; arch-tag: 12d01a63-0008-42bb-ab8c-1c7d63be370b