Mercurial > hg > xemacs-beta

diff tests/reproduce-bugs.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a145efe76779
children
line wrap: on
line diff
--- a/tests/reproduce-bugs.el	Mon Aug 13 10:01:24 2007 +0200
+++ b/tests/reproduce-bugs.el	Mon Aug 13 10:02:21 2007 +0200
@@ -160,6 +160,14 @@
   (insert (buffer-string))
   (delete-region 8 9))
 
+(defbug 5
+  (interactive)
+  (with-temp-buffer
+    (insert "abc")
+    (forward-char -1)
+    (subst-char-in-region 1 4 ?b ?\344)
+    (if (not (= (point) 3))
+	(message "Bug!  point should equal 3 but is %d" (point)))))
 
 ;;; crash popup frames FIXED
 ;;(global-set-key