anchor.diff:  
   (defun history-all-suggestion-filter (&optional (buffer (current-buffer)))
     "Suggestion function over all history URLs."
  -  (let ((urls (remove-if #'(lambda (node)
  -                             (and (conservative-history-movement buffer)
  -                                  (string/= (id (htree:data node)) (id buffer))))
  -                         (htree:all-nodes (get-data (history-path buffer))))))
  +  (let ((urls (conservative-history-filter
  +               buffer (htree:all-nodes (get-data (history-path buffer))))))
       (lambda (minibuffer)
         (if urls
             (fuzzy-match (input-buffer minibuffer) urls)
  
positive.code: 
  (defun history-forwards-suggestion-filter (&optional (buffer (current-buffer)))
    "Suggestion function over forward-children URL."
    (let ((children (remove-if #'(lambda (node)
                                   (and (conservative-history-movement buffer)
                                        (string/= (id (htree:data node)) (id buffer))))
                               (htree:forward-children-nodes (get-data (history-path buffer))))))
      (lambda (minibuffer)
        (if children
            (fuzzy-match (input-buffer minibuffer) children)
  
negative.code: 
  (defun history-forwards-all-suggestion-filter (&optional (buffer (current-buffer)))
    "Suggestion function over children URL from all branches."
    (let ((children (conservative-history-filter
                     buffer (htree:children-nodes (get-data (history-path buffer))))))
      (lambda (minibuffer)
        (if children
            (fuzzy-match (input-buffer minibuffer) children)
  