[Emacs-diffs] Changes to emacs/lisp/ibuffer.el

[Colin Walters]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.14 emacs/lisp/ibuffer.el:1.15
*** emacs/lisp/ibuffer.el:1.14  Wed Mar 27 17:19:24 2002
--- emacs/lisp/ibuffer.el       Fri Mar 29 17:54:40 2002
***************
*** 823,828 ****
--- 823,833 ----
    (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,1163 ****
    (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))
! 
    (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))
        (setq arg (1- arg)))))
  
  (defun ibuffer-set-mark (mark)
--- 1149,1159 ----
    (assert (eq major-mode 'ibuffer-mode))
    (unless arg
      (setq arg 1))
!   (ibuffer-forward-line 0)
    (let ((inhibit-read-only t))
      (while (> arg 0)
        (ibuffer-set-mark mark)
!       (ibuffer-forward-line movement)
        (setq arg (1- arg)))))
  
  (defun ibuffer-set-mark (mark)