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-locate.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-locate.el')
-rw-r--r-- | helm-locate.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/helm-locate.el b/helm-locate.el index 7ec34fbf..3e1eddef 100644 --- a/helm-locate.el +++ b/helm-locate.el @@ -356,7 +356,7 @@ Sort is done on basename of CANDIDATES." (group :initform 'helm-locate))) ;; Override helm-type-file class keymap. -(defmethod helm--setup-source :after ((source helm-locate-override-inheritor)) +(cl-defmethod helm--setup-source :after ((source helm-locate-override-inheritor)) (setf (slot-value source 'keymap) helm-locate-map)) (defvar helm-source-locate |