Re: Minibuffer default values list

[Richard Stallman]

        (interactive "p")
    +   (run-hooks 'goto-history-element-pre-hook)
        (let ((minimum (if minibuffer-default
                         (- (if (listp minibuffer-default)

How about running this hook only when moving
into the "future"?

    !     (goto-history-element-pre-hook
    !      (cons (lambda ()
    !              (when (and (null minibuffer-default-set) (< nabs -1))
    !                (setq minibuffer-default
    !                      (cons filename (dired-read-shell-command-default
    !                                      (list filename))))
    !                (setq minibuffer-default-set t)))
    !            goto-history-element-pre-hook)))

Why preserve any ambient binding?  I think it should bbe completely
superseded.

For that reason, maybe it should be `goto-history-element-pre-function'
and its value should be just one function.

A better name would be `goto-history-defaults-function'.