Mercurial > emacs
comparison lisp/ibuffer.el @ 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.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Fri, 29 Mar 2002 22:54:40 +0000 |
| parents | c4de5a5d6ecb |
| children | 510e978b6292 |
comparison
equal
deleted
inserted
replaced
| 44244:31f1fc31fd45 | 44245:8bff6cc92867 |
|---|---|
| 821 "Move forward ARG lines, wrapping around the list if necessary." | 821 "Move forward ARG lines, wrapping around the list if necessary." |
| 822 (interactive "P") | 822 (interactive "P") |
| 823 (unless arg | 823 (unless arg |
| 824 (setq arg 1)) | 824 (setq arg 1)) |
| 825 (beginning-of-line) | 825 (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)) | |
| 826 (if (< arg 0) | 831 (if (< arg 0) |
| 827 (ibuffer-backward-line (- arg)) | 832 (ibuffer-backward-line (- arg)) |
| 828 (while (> arg 0) | 833 (while (> arg 0) |
| 829 (forward-line 1) | 834 (forward-line 1) |
| 830 (when (or (eobp) | 835 (when (or (eobp) |
| 1142 | 1147 |
| 1143 (defun ibuffer-mark-interactive (arg mark movement) | 1148 (defun ibuffer-mark-interactive (arg mark movement) |
| 1144 (assert (eq major-mode 'ibuffer-mode)) | 1149 (assert (eq major-mode 'ibuffer-mode)) |
| 1145 (unless arg | 1150 (unless arg |
| 1146 (setq arg 1)) | 1151 (setq arg 1)) |
| 1147 (while (and (get-text-property (line-beginning-position) | 1152 (ibuffer-forward-line 0) |
| 1148 'ibuffer-title) | |
| 1149 (not (eobp))) | |
| 1150 (forward-line 1)) | |
| 1151 | |
| 1152 (let ((inhibit-read-only t)) | 1153 (let ((inhibit-read-only t)) |
| 1153 (while (> arg 0) | 1154 (while (> arg 0) |
| 1154 (ibuffer-set-mark mark) | 1155 (ibuffer-set-mark mark) |
| 1155 (forward-line movement) | 1156 (ibuffer-forward-line movement) |
| 1156 (when (or (get-text-property (line-beginning-position) | |
| 1157 'ibuffer-title) | |
| 1158 (eobp)) | |
| 1159 (forward-line (- movement)) | |
| 1160 (setq arg 0)) | |
| 1161 (setq arg (1- arg))))) | 1157 (setq arg (1- arg))))) |
| 1162 | 1158 |
| 1163 (defun ibuffer-set-mark (mark) | 1159 (defun ibuffer-set-mark (mark) |
| 1164 (assert (eq major-mode 'ibuffer-mode)) | 1160 (assert (eq major-mode 'ibuffer-mode)) |
| 1165 (let ((inhibit-read-only t)) | 1161 (let ((inhibit-read-only t)) |