X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fbuff-menu.el;h=482dcc7beb4c21559994e8594c4308841efdbd94;hb=d8bdbc5aada1ec424d172605017593ffe957b8ed;hp=5e62c3477ecfe976d9a0188faec13ac6b6eb526b;hpb=1d9bc86590766427e2431876a50d78206a99edd5;p=chise%2Fxemacs-chise.git

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 5e62c34..482dcc7 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -303,7 +303,7 @@ and then move up one line.  Prefix arg means move that many lines."
     (let ((buff-menu-buffer (current-buffer))
 	  (buffer-read-only nil))
       (while (search-forward "\nD" nil t)
-	(forward-char -1)
+	(backward-char 1)
 	(let ((buf (Buffer-menu-buffer nil)))
 	  (or (eq buf nil)
 	      (eq buf buff-menu-buffer)
@@ -312,7 +312,7 @@ and then move up one line.  Prefix arg means move that many lines."
 	    (progn (delete-char 1)
 		   (insert ? ))
 	  (delete-region (point) (progn (forward-line 1) (point)))
- 	  (forward-char -1))))))
+ 	  (backward-char 1))))))
 
 (defun Buffer-menu-select ()
   "Select this line's buffer; also display buffers marked with `>'.