gistfile1.txt

(let ((anything-samewindow t)
        (anything-display-function 'anything-default-display-buffer))
    (azh/set-command
     (anything-other-buffer
      `((name . "History")
        (action
         ("Paste" . identity)
         ("Edit" . azh/edit-command))
        ,@anything-c-source-complete-shell-history)
      "*anything zsh history*")))

;;=>
Debugger entered--Lisp error: (wrong-type-argument listp "History")
  assoc-default(default-value (name . "History"))
  (let ((it ...)) (if it (append source ...) source))
  (anything-aif (assoc-default (quote default-value) source) (append source (\` ...)) source)
  anything-compile-source--default-value((name . "History"))
  #[(source) "<ƒ