Mercurial > emacs
comparison lisp/ibuffer.el @ 45839:a3da6ddded28
(ibuffer-movement-cycle): New variable.
(ibuffer-backward-line, ibuffer-forward-line): Use it.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sat, 15 Jun 2002 18:59:03 +0000 |
| parents | a758b446a4d9 |
| children | 7a836df2d686 |
comparison
equal
deleted
inserted
replaced
| 45838:431d068148c7 | 45839:a3da6ddded28 |
|---|---|
| 218 specialized filtering occurs before real filtering." | 218 specialized filtering occurs before real filtering." |
| 219 :type '(repeat (choice regexp function)) | 219 :type '(repeat (choice regexp function)) |
| 220 :group 'ibuffer) | 220 :group 'ibuffer) |
| 221 | 221 |
| 222 (defvar ibuffer-current-format nil) | 222 (defvar ibuffer-current-format nil) |
| 223 | |
| 224 (defcustom ibuffer-movement-cycle t | |
| 225 "If non-nil, then forward and backwards movement commands cycle." | |
| 226 :type 'boolean | |
| 227 :group 'ibuffer) | |
| 223 | 228 |
| 224 (defcustom ibuffer-modified-char ?* | 229 (defcustom ibuffer-modified-char ?* |
| 225 "The character to display for modified buffers." | 230 "The character to display for modified buffers." |
| 226 :type 'character | 231 :type 'character |
| 227 :group 'ibuffer) | 232 :group 'ibuffer) |
| 891 (unless arg | 896 (unless arg |
| 892 (setq arg 1)) | 897 (setq arg 1)) |
| 893 (beginning-of-line) | 898 (beginning-of-line) |
| 894 (while (> arg 0) | 899 (while (> arg 0) |
| 895 (forward-line -1) | 900 (forward-line -1) |
| 896 (when (or (get-text-property (point) 'ibuffer-title) | 901 (when (and ibuffer-movement-cycle |
| 897 (and skip-group-names | 902 (or (get-text-property (point) 'ibuffer-title) |
| 898 (get-text-property (point) 'ibuffer-filter-group-name))) | 903 (and skip-group-names |
| 904 (get-text-property (point) 'ibuffer-filter-group-name)))) | |
| 899 (goto-char (point-max)) | 905 (goto-char (point-max)) |
| 900 (beginning-of-line)) | 906 (beginning-of-line)) |
| 901 (ibuffer-skip-properties (append '(ibuffer-summary) | 907 (ibuffer-skip-properties (append '(ibuffer-summary) |
| 902 (when skip-group-names | 908 (when skip-group-names |
| 903 '(ibuffer-filter-group-name))) | 909 '(ibuffer-filter-group-name))) |
| 912 "Move forward ARG lines, wrapping around the list if necessary." | 918 "Move forward ARG lines, wrapping around the list if necessary." |
| 913 (interactive "P") | 919 (interactive "P") |
| 914 (unless arg | 920 (unless arg |
| 915 (setq arg 1)) | 921 (setq arg 1)) |
| 916 (beginning-of-line) | 922 (beginning-of-line) |
| 917 (when (or (eobp) | 923 (when (and ibuffer-movement-cycle |
| 918 (get-text-property (point) 'ibuffer-summary)) | 924 (or (eobp) |
| 925 (get-text-property (point) 'ibuffer-summary))) | |
| 919 (goto-char (point-min))) | 926 (goto-char (point-min))) |
| 920 (when (or (get-text-property (point) 'ibuffer-title) | 927 (when (or (get-text-property (point) 'ibuffer-title) |
| 921 (and skip-group-names | 928 (and skip-group-names |
| 922 (get-text-property (point) 'ibuffer-filter-group-name))) | 929 (get-text-property (point) 'ibuffer-filter-group-name))) |
| 923 (when (> arg 0) | 930 (when (> arg 0) |
| 928 1)) | 935 1)) |
| 929 (if (< arg 0) | 936 (if (< arg 0) |
| 930 (ibuffer-backward-line (- arg)) | 937 (ibuffer-backward-line (- arg)) |
| 931 (while (> arg 0) | 938 (while (> arg 0) |
| 932 (forward-line 1) | 939 (forward-line 1) |
| 933 (when (or (eobp) | 940 (when (and ibuffer-movement-cycle |
| 934 (get-text-property (point) 'ibuffer-summary)) | 941 (or (eobp) |
| 942 (get-text-property (point) 'ibuffer-summary))) | |
| 935 (goto-char (point-min))) | 943 (goto-char (point-min))) |
| 936 (decf arg) | 944 (decf arg) |
| 937 (ibuffer-skip-properties (append '(ibuffer-title) | 945 (ibuffer-skip-properties (append '(ibuffer-title) |
| 938 (when skip-group-names | 946 (when skip-group-names |
| 939 '(ibuffer-filter-group-name))) | 947 '(ibuffer-filter-group-name))) |