Skip to content

Commit

Permalink
Remove helm-locate-override-inheritor (#2710)
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
thierryvolpiatto committed Feb 22, 2025
1 parent fba5f96 commit 969f80f
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions helm-locate.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand All @@ -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))

Expand Down

0 comments on commit 969f80f

Please sign in to comment.