diff --git a/.emacs.d/lisp/patch-helm.el b/.emacs.d/lisp/patch-helm.el
index c7dedcdf..150098ba 100644
--- a/.emacs.d/lisp/patch-helm.el
+++ b/.emacs.d/lisp/patch-helm.el
@@ -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.