selectrum: don't override embark-target-finders...
rather, modify it by inserting `+selectrum-embark-target-package!` in the correct position. overriding it with `setq` is a bad idea since it might be modified by other packages beforehand, or changed upstream later on.
This commit is contained in:
parent
e5e75e8dc5
commit
c056e718a8
1 changed files with 10 additions and 10 deletions
|
@ -135,17 +135,17 @@
|
|||
(let ((pkg (match-string 1)))
|
||||
(set-text-properties 0 (length pkg) nil pkg)
|
||||
`(package . ,pkg))))))
|
||||
(setq embark-target-finders
|
||||
'(embark-target-top-minibuffer-completion
|
||||
embark-target-active-region
|
||||
embark-target-collect-candidate
|
||||
embark-target-completion-at-point
|
||||
embark-target-url-at-point
|
||||
+selectrum--embark-target-package!
|
||||
embark-target-file-at-point
|
||||
embark-target-custom-variable-at-point
|
||||
embark-target-identifier-at-point))
|
||||
:config
|
||||
;; add the package! target finder before the file target finder,
|
||||
;; so we don't get a false positive match.
|
||||
(let ((pos (or (cl-position
|
||||
'embark-target-file-at-point
|
||||
embark-target-finders)
|
||||
(length embark-target-finders))))
|
||||
(cl-callf2
|
||||
cons
|
||||
'+selectrum--embark-target-package!
|
||||
(nthcdr pos embark-target-finders)))
|
||||
(map!
|
||||
:map embark-file-map
|
||||
:desc "Open Dired on target" "j" #'ffap-dired
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue