From 0c4cac0995b71622df3bf2616b9cfed407c42b2a Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Mon, 27 Oct 2003 12:55:43 +0000 Subject: [PATCH] (riece-make-interval-regexp): Simplified. --- lisp/riece-compat.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/riece-compat.el b/lisp/riece-compat.el index 25d544e..2bc6469 100644 --- a/lisp/riece-compat.el +++ b/lisp/riece-compat.el @@ -62,8 +62,8 @@ (if (string-match "0\\{0\\}" "") (defun riece-make-interval-regexp (regexp min &optional max) (if max - (concat regexp (format "\\{%d,%d\\}" min max)) - (concat regexp (format "\\{%d\\}" min)))) + (format "%s\\{%d,%d\\}" regexp min max) + (format "%s\\{%d\\}" regexp min))) ;; Emacs 20.7 doesn't support \{...\} in regexps. (defun riece-make-interval-regexp (regexp min &optional max) (mapconcat #'identity -- 2.25.1