diff --git a/lisp/dired.el b/lisp/dired.el index 0adf06f471e..baac246dd5e 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -511,7 +511,8 @@ Possible non-nil values: * `cycle': when moving from the last/first visible line, cycle back to the first/last visible line. * `bounded': don't move up/down if the current line is the - first/last visible line." + first/last visible line. +Any other non-nil value is treated as `bounded'." :type '(choice (const :tag "Move to any line" nil) (const :tag "Cycle through non-empty lines" cycle) (const :tag "Stop on last/first non-empty line" bounded)) @@ -2886,7 +2887,7 @@ is controlled by `dired-movement-style'." (point-max)))) (setq wrapped t)) ;; `bounded': go back to the last non-empty line. - ((eq dired-movement-style 'bounded) + (dired-movement-style ; Either 'bounded or anything else non-nil. (while (and (dired-between-files) (not (zerop arg))) (funcall jumpfun (- moving-down)) ;; Point not moving means infinite loop.