Helm: Add support for extra sources in deflister
parent
7d2586dda5
commit
b03cc68bb7
|
@ -20,7 +20,7 @@
|
|||
(switch-to-buffer buffer))
|
||||
(switch-to-buffer (funcall ,new-fn candidate))))))))
|
||||
|
||||
(defmacro helm-deflister (name predicate new-fn &rest extra-sources)
|
||||
(defmacro helm-deflister (name predicate new-fn &optional extra-sources)
|
||||
(let ((buffer-source-name (format "%s buffers" name)))
|
||||
(add-to-list 'helm-source-names-using-follow buffer-source-name)
|
||||
`(defun ,(intern (format "helm-%s-buffers" (downcase name))) ()
|
||||
|
@ -36,8 +36,9 @@
|
|||
(when (fboundp mode)
|
||||
`((ambrevar/helm-source-buffer-not-found
|
||||
',mode
|
||||
,new-fn)))))
|
||||
:buffer ,(format "*helm-%s-buffers*" name)))))
|
||||
,new-fn))))
|
||||
,@extra-sources)
|
||||
:buffer ,(format "*helm-%s-buffers*" name)))))
|
||||
|
||||
(defmacro helm-defswitcher (name predicate new-fn &optional helm-lister &rest extra-sources)
|
||||
"Create an interactive buffer switcher for NAME.
|
||||
|
|
Loading…
Reference in New Issue