[AC 21.5]

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(a)xemacs.org&gt; + + * automated/regexp-tests.el: Add test for at_dot regexp. + 2008-09-27 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * 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(a)krk.inf.ed.ac.uk&gt; +(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))) + + _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches