[Emacs-diffs] Changes to emacs/lisp/ibuffer.el

[Colin Walters]

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)