# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1017442480 0
# Node ID 8bff6cc92867bd1c585d9650d49858a2e7a3900e
# Parent  31f1fc31fd45a60186db092613a49004cd713f17
(ibuffer-mark-interactive): Use `ibuffer-forward-line' instead of
`forward-line'.
(ibuffer-forward-line): Be sure to skip over special properties
before moving, too.

diff -r 31f1fc31fd45 -r 8bff6cc92867 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Fri Mar 29 22:20:15 2002 +0000
+++ b/lisp/ibuffer.el	Fri Mar 29 22:54:40 2002 +0000
@@ -823,6 +823,11 @@
   (unless arg
     (setq arg 1))
   (beginning-of-line)
+  (when (or (eobp)
+	    (get-text-property (point) 'ibuffer-summary))
+    (goto-char (point-min)))
+  (while (get-text-property (point) 'ibuffer-title)
+    (forward-line 1))
   (if (< arg 0)
       (ibuffer-backward-line (- arg))
     (while (> arg 0)
@@ -1144,20 +1149,11 @@
   (assert (eq major-mode 'ibuffer-mode))
   (unless arg
     (setq arg 1))
-  (while (and (get-text-property (line-beginning-position)
-				 'ibuffer-title)
-	      (not (eobp)))
-    (forward-line 1))
-
+  (ibuffer-forward-line 0)
   (let ((inhibit-read-only t))
     (while (> arg 0)
       (ibuffer-set-mark mark)
-      (forward-line movement)
-      (when (or (get-text-property (line-beginning-position)
-				   'ibuffer-title)
-		(eobp))
-	(forward-line (- movement))
-	(setq arg 0))
+      (ibuffer-forward-line movement)
       (setq arg (1- arg)))))
 
 (defun ibuffer-set-mark (mark)