Mercurial > hg > xemacs-beta

diff lisp/buff-menu.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 56d2a7dcb919
line wrap: on
line diff
--- a/lisp/buff-menu.el	Mon Aug 13 11:36:20 2007 +0200
+++ b/lisp/buff-menu.el	Mon Aug 13 11:37:21 2007 +0200
@@ -303,7 +303,7 @@
     (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 @@
 	    (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 `>'.