(ibuffer-movement-cycle): New variable.

(ibuffer-backward-line, ibuffer-forward-line): Use it.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 9195b3a7460a7cb623c81af7f6a7e76827c34d19..c622606f31d6a4638c6dde3a65c114febac93d78 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -221,6 +221,11 @@ specialized filtering occurs before real filtering."
 
 (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,9 +898,10 @@ width and the longest string in LIST."
   (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)))
+    (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,8 +920,9 @@ width and the longest string in LIST."
   (unless arg
     (setq arg 1))
   (beginning-of-line)
-  (when (or (eobp)
-           (get-text-property (point) 'ibuffer-summary))
+  (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,8 +937,9 @@ width and the longest string in LIST."
       (ibuffer-backward-line (- arg))
     (while (> arg 0)
       (forward-line 1)
-      (when (or (eobp)
-               (get-text-property (point) 'ibuffer-summary))
+      (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)