anchor.diff:  When called over many or all buffers, it may free many history entries which
   then become available for deletion with `delete-history-entry'."
     (let ((buffers (or (alex:ensure-list buffer)
  -                     (prompt-minibuffer
  -                      :input-prompt "Reset histories of buffer(s)"
  -                      :multi-selection-p t
  -                      :suggestion-function (buffer-suggestion-filter)))))
  +                     (prompt
  +                      :prompt "Reset histories of buffer(s)"
  +                      :sources (list (make-instance 'buffer-source
  +                                                    :actions '()))))))
       (with-data-access (history (history-path (current-buffer)))
         (dolist (buffer buffers)
           (htree:reset-owner history (id buffer))))))
  
positive.code:                                           all-history-entries)))
        all-history-entries)))
  
  (defun history-disowned-suggestion-filter ()
    "All disowned history entries (without nodes)."
    (with-data-unsafe (hist (history-path (current-buffer)))
      (let ((owner-less-history-entries
             (when hist
               (mapcar #'htree:data
                       (sort
                        (delete-if (lambda (entry) (htree:nodes entry))
                                   (alex:hash-table-keys (htree:entries hist)))
                        (lambda (x y)
                          (> (score-history-entry x)
                             (score-history-entry y))))))))
        (lambda (minibuffer)
          (fuzzy-match (input-buffer minibuffer) owner-less-history-entries)))))
  
  (defun history-html-list (&key (limit 100) ; Export?
                              (separator " → "))
  
negative.code:                         (* 60 60)))))
             0))))
  
  (defun history-initial-suggestions (&key prefix-urls) ; TODO: Rename?  Make this a preprocessor so that it runs in the background?
    "TODO: Complete me!"
    (with-data-unsafe (hist (history-path (current-buffer)))
  