XEmacs 21.2.38 (Peisino)

[chise/xemacs-chise.git.1] / lisp / view-less.el

diff --git a/lisp/view-less.el b/lisp/view-less.el
index bc41a17..7dd3e30 100644 (file)
--- 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|")