branch: elpa/helm commit 4ccdefb7d0f71da930ffdd39c6630c53d2e672e6 Author: Thierry Volpiatto <thie...@posteo.net> Commit: Thierry Volpiatto <thie...@posteo.net>
Remove helm-bookmark-override-inheritor no more needed --- helm-bookmark.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/helm-bookmark.el b/helm-bookmark.el index 5c9a93a97e..0243fda325 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -581,11 +581,9 @@ If `browse-url-browser-function' is set to something else than (define-key map (kbd "C-x C-d") #'helm-bookmark-run-browse-project) map)) -;; Same as `helm-source-filtered-bookmarks' but override actions and keymap -;; specifically for helm-find-files bookmarks. -(defclass helm-bookmark-override-inheritor (helm-source) ()) +(defclass helm-bookmark-find-files-class (helm-source-filtered-bookmarks) ()) -(cl-defmethod helm--setup-source ((source helm-bookmark-override-inheritor)) +(cl-defmethod helm--setup-source ((source helm-bookmark-find-files-class)) ;; Ensure `helm-source-in-buffer' method is called. (cl-call-next-method) (setf (slot-value source 'action) @@ -599,10 +597,6 @@ If `browse-url-browser-function' is set to something else than '(("Browse project" . helm-bookmark-browse-project)) 1)) (setf (slot-value source 'keymap) helm-bookmark-find-files-map)) -(defclass helm-bookmark-find-files-class (helm-source-filtered-bookmarks - helm-bookmark-override-inheritor) - ()) - (defun helm-source-bookmark-helm-find-files-builder () (helm-bookmark-build-source "Bookmark helm-find-files sessions"