From 9a1cbe18e45a3ff399db385622612d8754abd3d1 Mon Sep 17 00:00:00 2001 From: Makarius Wenzel Date: Mon, 5 Jun 2000 20:42:12 +0000 Subject: fixed proof-anchor-regexp: use \` instead of ^; added proof-no-regexp; --- generic/proof-syntax.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'generic/proof-syntax.el') diff --git a/generic/proof-syntax.el b/generic/proof-syntax.el index 0f4575bf..3da86f62 100644 --- a/generic/proof-syntax.el +++ b/generic/proof-syntax.el @@ -18,8 +18,13 @@ (mapconcat (lambda (s) (concat "\\<" s "\\>")) l "\\|")) (defun proof-anchor-regexp (e) - "Anchor (^) and group the regexp E." - (concat "^\\(" e "\\)")) + "Anchor (\\`) and group the regexp E." + (concat "\\`\\(" e "\\)")) + +(defconst proof-no-regexp + "\\'\\`" + "A regular expression that never matches anything") + (defun proof-regexp-alt (&rest args) "Return the regexp which matches any of the regexps ARGS." -- cgit v1.2.3