branch: elpa/helm
commit 969f80fa663e94273f780cdfc63df06eb3eb3e33
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Remove helm-locate-override-inheritor (#2710)
This was needed in all previous Emacs versions, seems it is no more
needed on emacs-29, thus it confuse eieio, OTOH emacs-31 is perfectly
understanding this.
---
helm-locate.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/helm-locate.el b/helm-locate.el
index 20142758a3..970a7ded15 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -377,9 +377,7 @@ See also `helm-locate'."
Sort is done on basename of CANDIDATES."
(helm-fuzzy-matching-default-sort-fn-1 candidates nil t))
-(defclass helm-locate-override-inheritor (helm-type-file) ())
-
-(defclass helm-locate-source (helm-source-async helm-locate-override-inheritor)
+(defclass helm-locate-source (helm-source-async helm-type-file)
((init :initform 'helm-locate-initial-setup)
(candidates-process :initform 'helm-locate-init)
(requires-pattern :initform 3)
@@ -389,7 +387,7 @@ Sort is done on basename of CANDIDATES."
(redisplay :initform (progn helm-locate-fuzzy-sort-fn))))
;; Override helm-type-file class keymap.
-(cl-defmethod helm--setup-source :after ((source
helm-locate-override-inheritor))
+(cl-defmethod helm--setup-source :after ((source helm-locate-source))
(setf (slot-value source 'keymap) helm-locate-map)
(setf (slot-value source 'group) 'helm-locate))
