 Otherwise, just move to the buffer limit."
   (interactive "p")
   (let* ((line-move-visual  nil)
-         (goal-column       nil)
+         ;; (goal-column       nil)
+
          ;; Use `condition-case' and `(progn... t)' because Emacs < 22 `line-move' has no
          ;; NO-ERROR arg and it always returns nil.
          (no-more           (or (not (condition-case nil (progn (line-move arg) t) (error nil)))

  (define-key diredp-menu-bar-operate-search-menu [isearch]
    '(menu-item "Isearch Files..." dired-do-isearch
      :help "Incrementally search marked files for string")))
(define-key diredp-menu-bar-operate-search-menu [query-replace]
  (if (< emacs-major-version 21)
      '(menu-item "Query Replace..." dired-do-query-replace)
    '(menu-item "Query Replace..." dired-do-query-replace-regexp
      :help "Replace regexp in marked files")))
(define-key diredp-menu-bar-operate-search-menu [search]
  '(menu-item "Search Files..." dired-do-search :help "Search marked files for regexp"))
(define-key diredp-menu-bar-operate-search-menu [grep]

Otherwise, just move to the buffer limit."
  (interactive "p")
  (diredp-next-line (- (or arg  1))))

;;;###autoload
(defun diredp-next-dirline (arg &optional opoint) ; Bound to `>'
  "Goto ARGth next directory file line.
