helm: extract helm-descbinds defuns

This commit is contained in:
Henrik Lissner 2016-03-23 11:52:55 -04:00
parent f0ce0c4718
commit 658e7731b7
3 changed files with 24 additions and 20 deletions

View file

@ -73,5 +73,24 @@ buffers."
(let ((narf-helm-force-project-buffers (and (not all-p) (narf/project-p))))
(helm-buffers-list)))
;;;###autoload
(defun narf/helm-descbinds-leader ()
(interactive)
(narf--helm-descbinds "^,\\ "))
;;;###autoload
(defun narf/helm-descbinds-localleader ()
(interactive)
(narf--helm-descbinds "^\\\\\\ "))
(defun narf--helm-descbinds (&optional input buffer)
(let ((enable-recursive-minibuffers t))
(require 'helm-descbinds)
(helm :sources (helm-descbinds-sources (or buffer (current-buffer)))
:buffer "*helm-descbinds*"
:resume 'noresume
:allow-nest t
:input input)))
(provide 'defuns-helm)
;;; defuns-helm.el ends here