[AC 21.5]

[Stephen J. Turnbull]

APPROVE COMMIT 21.5

This patch contains non-ASCII characters.  Be careful in applying it
from mail!

diff -r 5e8f6469169f -r e0a8c796f955 tests/ChangeLog
--- a/tests/ChangeLog	Sat Sep 27 16:34:40 2008 +0900
+++ b/tests/ChangeLog	Sat Sep 27 16:38:11 2008 +0900
@@ -1,3 +1,7 @@
+2008-09-27  Stephen J. Turnbull  <stephen at xemacs.org>
+
+	* automated/regexp-tests.el: Add test for at_dot regexp.
+
 2008-09-27  Stephen J. Turnbull  <stephen at xemacs.org>
 
 	* automated/regexp-tests.el: `with-string-as-buffer-contents'
diff -r 5e8f6469169f -r e0a8c796f955 tests/automated/regexp-tests.el
--- a/tests/automated/regexp-tests.el	Sat Sep 27 16:34:40 2008 +0900
+++ b/tests/automated/regexp-tests.el	Sat Sep 27 16:38:11 2008 +0900
@@ -545,3 +545,21 @@
 ;; via `replace-regexp-in-string', but we should specifically test bogus
 ;; combinations of STRING and STRBUFFER.
 
+;; empty string at point
+;; Thanks Julian Bradford on XEmacs Beta
+;; <18652.54975.894512.880956 at krk.inf.ed.ac.uk>
+(with-string-as-buffer-contents "aáa"
+  (goto-char (point-min))
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 1))
+  (forward-char 1)
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 2))
+  (forward-char 1)
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 3))
+  (forward-char 1)
+  (Assert (looking-at "\\="))
+  (Assert (= (re-search-forward "\\=") 4)))
+
+