changeset 102270:fd0e4d67e735

* bs.el (bs--down): * ibuffer.el (ibuffer-redisplay-engine): Use `point-min' instead of 1.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 25 Feb 2009 20:33:19 +0000
parents 82f3ccd013de
children 6f342a7457e8
files lisp/ChangeLog lisp/bs.el lisp/ibuffer.el
diffstat 3 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Feb 25 17:32:28 2009 +0000
+++ b/lisp/ChangeLog	Wed Feb 25 20:33:19 2009 +0000
@@ -1,3 +1,8 @@
+2009-02-25  Juanma Barranquero  <lekktu@gmail.com>
+
+	* bs.el (bs--down):
+	* ibuffer.el (ibuffer-redisplay-engine): Use `point-min' instead of 1.
+
 2009-02-25  Glenn Morris  <rgm@gnu.org>
 
 	* dired-x.el (dired-guess-shell-alist-user): Fix doc typo.
--- a/lisp/bs.el	Wed Feb 25 17:32:28 2009 +0000
+++ b/lisp/bs.el	Wed Feb 25 20:33:19 2009 +0000
@@ -1009,7 +1009,7 @@
 If at end of buffer list go to first line."
   (if (eq (line-end-position) (point-max))
       (progn
-	(goto-char 1)
+	(goto-char (point-min))
 	(forward-line bs-header-lines-length))
     (forward-line 1)))
 
--- a/lisp/ibuffer.el	Wed Feb 25 17:32:28 2009 +0000
+++ b/lisp/ibuffer.el	Wed Feb 25 20:33:19 2009 +0000
@@ -2280,7 +2280,7 @@
       (setq buffer-read-only t)
       (set-buffer-modified-p ibuffer-did-modification)
       (setq ibuffer-did-modification nil)
-      (goto-char 1)
+      (goto-char (point-min))
       (forward-line orig))))
 
 (defun ibuffer-quit ()