[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ibuffer.el |
Date: |
Sat, 15 Jun 2002 14:59:03 -0400 |
Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.33 emacs/lisp/ibuffer.el:1.34
*** emacs/lisp/ibuffer.el:1.33 Wed Jun 12 00:55:05 2002
--- emacs/lisp/ibuffer.el Sat Jun 15 14:59:03 2002
***************
*** 221,226 ****
--- 221,231 ----
(defvar ibuffer-current-format nil)
+ (defcustom ibuffer-movement-cycle t
+ "If non-nil, then forward and backwards movement commands cycle."
+ :type 'boolean
+ :group 'ibuffer)
+
(defcustom ibuffer-modified-char ?*
"The character to display for modified buffers."
:type 'character
***************
*** 893,901 ****
(beginning-of-line)
(while (> arg 0)
(forward-line -1)
! (when (or (get-text-property (point) 'ibuffer-title)
! (and skip-group-names
! (get-text-property (point) 'ibuffer-filter-group-name)))
(goto-char (point-max))
(beginning-of-line))
(ibuffer-skip-properties (append '(ibuffer-summary)
--- 898,907 ----
(beginning-of-line)
(while (> arg 0)
(forward-line -1)
! (when (and ibuffer-movement-cycle
! (or (get-text-property (point) 'ibuffer-title)
! (and skip-group-names
! (get-text-property (point)
'ibuffer-filter-group-name))))
(goto-char (point-max))
(beginning-of-line))
(ibuffer-skip-properties (append '(ibuffer-summary)
***************
*** 914,921 ****
(unless arg
(setq arg 1))
(beginning-of-line)
! (when (or (eobp)
! (get-text-property (point) 'ibuffer-summary))
(goto-char (point-min)))
(when (or (get-text-property (point) 'ibuffer-title)
(and skip-group-names
--- 920,928 ----
(unless arg
(setq arg 1))
(beginning-of-line)
! (when (and ibuffer-movement-cycle
! (or (eobp)
! (get-text-property (point) 'ibuffer-summary)))
(goto-char (point-min)))
(when (or (get-text-property (point) 'ibuffer-title)
(and skip-group-names
***************
*** 930,937 ****
(ibuffer-backward-line (- arg))
(while (> arg 0)
(forward-line 1)
! (when (or (eobp)
! (get-text-property (point) 'ibuffer-summary))
(goto-char (point-min)))
(decf arg)
(ibuffer-skip-properties (append '(ibuffer-title)
--- 937,945 ----
(ibuffer-backward-line (- arg))
(while (> arg 0)
(forward-line 1)
! (when (and ibuffer-movement-cycle
! (or (eobp)
! (get-text-property (point) 'ibuffer-summary)))
(goto-char (point-min)))
(decf arg)
(ibuffer-skip-properties (append '(ibuffer-title)