From 991b32c3f32701910dcecf242b98543596e53ed1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Oct 2004 15:29:46 +0000 Subject: [PATCH] (looking-back): Return only t or nil. --- lisp/subr.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 60e0694e55a..20a2708afad 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2023,11 +2023,12 @@ STRING should be given if the last search was by `string-match' on STRING." (defun looking-back (regexp &optional limit) "Return non-nil if text before point matches regular expression REGEXP. -Like `looking-at' except backwards and slower. +Like `looking-at' except matches before point, and is slower. LIMIT if non-nil speeds up the search by specifying how far back the match can start." - (save-excursion - (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t))) + (not (null + (save-excursion + (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t))))) (defconst split-string-default-separators "[ \f\t\n\r\v]+" "The default value of separators for `split-string'. -- 2.39.2