From 1f6f77220157c6fedea01ce87cf8430e32f0db7f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 4 Jan 2011 23:04:51 -0800 Subject: [PATCH] * lisp/emacs-lisp/rx.el (rx-repeat): Replace CL function. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/rx.el | 9 ++++----- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9cb550f46fe..b24eae7b4e8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-01-05 Glenn Morris + + * emacs-lisp/rx.el (rx-repeat): Replace CL function. + 2011-01-04 Ken Manheimer * allout.el: Reconcile with changes in line movement behavior for diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index cb6756a7e0f..3522379efb4 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el @@ -1,7 +1,7 @@ ;;; rx.el --- sexp notation for regular expressions ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, -;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. ;; Author: Gerd Moellmann ;; Maintainer: FSF @@ -412,7 +412,7 @@ Only both edges of each range is checked." (setcdr m (1- char))))) ranges)) - + (defun rx-any-condense-range (args) "Condense by side effect ARGS as range for Rx `any'." (let (str @@ -575,7 +575,7 @@ ARG is optional." (condition-case nil (rx-form arg) (error "")))) - (eq arg 'word-boundary) + (eq arg 'word-boundary) (and (consp arg) (memq (car arg) '(not any in syntax category)))) (error "rx `not' syntax error: %s" arg)) @@ -664,7 +664,7 @@ FORM is either `(repeat N FORM1)' or `(repeat N M FORMS...)'." (if (> (length form) 4) (setq form (rx-trans-forms form 2))) (if (null (nth 2 form)) - (setq form (list* (nth 0 form) (nth 1 form) (nthcdr 3 form)))) + (setq form (cons (nth 0 form) (cons (nth 1 form) (nthcdr 3 form))))) (cond ((= (length form) 3) (unless (and (integerp (nth 1 form)) (> (nth 1 form) 0)) @@ -1161,5 +1161,4 @@ enclosed in `(and ...)'. (provide 'rx) -;; arch-tag: 12d01a63-0008-42bb-ab8c-1c7d63be370b ;;; rx.el ends here -- 2.39.2