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