From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Oct 2004 15:29:46 +0000 (+0000)
Subject: (looking-back): Return only t or nil.
X-Git-Tag: ttn-vms-21-2-B4~4546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=991b32c3f32701910dcecf242b98543596e53ed1;p=emacs.git

(looking-back): Return only t or nil.
---

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'.