X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fview-less.el;h=7dd3e3093fb25c851e90b6eb29eb2e2ca7cf0516;hb=66244c7db6291b72ec8233adb79a065c8831952a;hp=bc41a170134f7de368c6eb9ddf15cb6b373fd46c;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/view-less.el b/lisp/view-less.el
index bc41a17..7dd3e30 100644
--- a/lisp/view-less.el
+++ b/lisp/view-less.el
@@ -289,7 +289,7 @@ turned into (+)."
     (while (= (following-char) ?\C-h)
       (delete-char 1))
     (while (search-forward "\C-h" nil t)
-      (forward-char -2)
+      (backward-char 2)
       (cond ((looking-at "_\C-h\\|\\(.\\)\C-h\\1\\||\C-h\\^")
 	     (delete-char 2))
 	    ((looking-at ".\C-h_\\|\\^\C-h|")