# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097940586 0
# Node ID a2d6c6e6486a1b1a3eaeb91605467a9cdc14b515
# Parent  3f7aa44cf697fa2e71ef6c7047a47bcdc200bc4b
(looking-back): Return only t or nil.

diff -r 3f7aa44cf697 -r a2d6c6e6486a lisp/subr.el
--- a/lisp/subr.el	Sat Oct 16 15:26:23 2004 +0000
+++ b/lisp/subr.el	Sat Oct 16 15:29:46 2004 +0000
@@ -2023,11 +2023,12 @@
 
 (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'.