changeset 44245:8bff6cc92867

(ibuffer-mark-interactive): Use `ibuffer-forward-line' instead of `forward-line'. (ibuffer-forward-line): Be sure to skip over special properties before moving, too.

--- 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)