anchor.diff:        (set-current-buffer (buffers-get id))
         (prompt
          :prompt "Switch to buffer"
  -       :sources (list (make-instance 'buffer-source)))))
  +       :sources (list (make-instance 'buffer-source
  +                                     ;; For commodity, the current buffer shouldn't be the first one on the list.
  +                                     :constructor (buffer-initial-suggestions :current-is-last-p t))))))
   
   (define-command switch-buffer-domain (&key domain (buffer (current-buffer)))
     "Switch the active buffer in the current window from the current domain."
  
positive.code:       (prompt
         :prompt "Delete buffer(s)"
         :sources (make-instance 'buffer-source
                                 :constructor (buffer-initial-suggestions :current-is-last-p nil)
                                 :multi-selection-p t
                                 :actions (list (make-mapped-command buffer-delete))))))
  
  
negative.code: 
  (define-class buffer-source (prompter:source)
    ((prompter:name "Buffer list")
     (prompter:constructor (buffer-initial-suggestions :current-is-last-p nil))
     (prompter:actions (list (make-unmapped-command set-current-buffer)))
     (prompter:follow-p t)
     (prompter:follow-delay 0.1)
  