823 |
(unless arg |
(unless arg |
824 |
(setq arg 1)) |
(setq arg 1)) |
825 |
(beginning-of-line) |
(beginning-of-line) |
826 |
|
(when (or (eobp) |
827 |
|
(get-text-property (point) 'ibuffer-summary)) |
828 |
|
(goto-char (point-min))) |
829 |
|
(while (get-text-property (point) 'ibuffer-title) |
830 |
|
(forward-line 1)) |
831 |
(if (< arg 0) |
(if (< arg 0) |
832 |
(ibuffer-backward-line (- arg)) |
(ibuffer-backward-line (- arg)) |
833 |
(while (> arg 0) |
(while (> arg 0) |
1149 |
(assert (eq major-mode 'ibuffer-mode)) |
(assert (eq major-mode 'ibuffer-mode)) |
1150 |
(unless arg |
(unless arg |
1151 |
(setq arg 1)) |
(setq arg 1)) |
1152 |
(while (and (get-text-property (line-beginning-position) |
(ibuffer-forward-line 0) |
|
'ibuffer-title) |
|
|
(not (eobp))) |
|
|
(forward-line 1)) |
|
|
|
|
1153 |
(let ((inhibit-read-only t)) |
(let ((inhibit-read-only t)) |
1154 |
(while (> arg 0) |
(while (> arg 0) |
1155 |
(ibuffer-set-mark mark) |
(ibuffer-set-mark mark) |
1156 |
(forward-line movement) |
(ibuffer-forward-line movement) |
|
(when (or (get-text-property (line-beginning-position) |
|
|
'ibuffer-title) |
|
|
(eobp)) |
|
|
(forward-line (- movement)) |
|
|
(setq arg 0)) |
|
1157 |
(setq arg (1- arg))))) |
(setq arg (1- arg))))) |
1158 |
|
|
1159 |
(defun ibuffer-set-mark (mark) |
(defun ibuffer-set-mark (mark) |