(ppp-list
 (async-get
  (async-start
   (lambda ()
     (let (res)
       (mapatoms (lambda (elm)
                   (when (and
                          (symbolp elm)
                          (string-suffix-p "-history" (symbol-name elm)))
                     (push elm res))))
       (sort res (lambda (a b) (string< (symbol-name a) (symbol-name b)))))))))

Slackのemacs-jpで、@conao3さんに教えていただいた