diff options
author | Thierry Volpiatto <thievol@posteo.net> | 2021-03-14 20:23:38 +0100 |
---|---|---|
committer | Thierry Volpiatto <thievol@posteo.net> | 2021-03-14 20:23:38 +0100 |
commit | b2824f7550c6fda0fdddcc197c3a41a147ffaab2 (patch) | |
tree | a04f6fcfc3a9ed36436314536d20aa5ff2c562cf /helm-bookmark.el | |
parent | 35c0047c134f24686fa1209463313a4022df7461 (diff) |
Fix obsolete usage of defgeneric, defmetod etc...
Rename all defmethods to cl-defmethod, same for defgeneric, call-next-method
cl-generic-p.
Fix as well cl-type-case generic pred.
Don't use :primary keyword in cl-defmethods.
Finally use pcase-let instead of cl-multiple-value-bind as this one keep
sending warnings even with var marked as unused (_var).
Diffstat (limited to 'helm-bookmark.el')
-rw-r--r-- | helm-bookmark.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/helm-bookmark.el b/helm-bookmark.el index 4f6d2de6..aae92d22 100644 --- a/helm-bookmark.el +++ b/helm-bookmark.el @@ -464,9 +464,9 @@ If `browse-url-browser-function' is set to something else than (defclass helm-bookmark-override-inheritor (helm-source) ()) -(defmethod helm--setup-source ((source helm-bookmark-override-inheritor)) +(cl-defmethod helm--setup-source ((source helm-bookmark-override-inheritor)) ;; Ensure `helm-source-in-buffer' method is called. - (call-next-method) + (cl-call-next-method) (setf (slot-value source 'action) (helm-append-at-nth (cl-loop for (name . action) in helm-type-bookmark-actions |