Skip to content

Commit 94d7ecc

Browse files
committed
found the elisp code location for require imports. need to map candidates to strip
1 parent 02a6ea8 commit 94d7ecc

File tree

1 file changed

+3
-0
lines changed

1 file changed

+3
-0
lines changed

company-coq.el

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2187,6 +2187,7 @@ to a non-existent file (for an example of such a case, try
21872187
(concat (match-string-no-properties 2 output) ".v"))))
21882188
(and fallback-spec (expand-file-name (concat mod-name ".v") (cdr fallback-spec)))))
21892189
(stripped (replace-regexp-in-string "_build/default" "" path nil 'literal)))
2190+
(message "orig %s striped %s" path stripped)
21902191
(if (file-exists-p stripped)
21912192
stripped
21922193
path
@@ -2264,6 +2265,8 @@ Returns a cons as specified by `company-coq--locate-name'."
22642265
;; FIXME this doesn't find modules other than file-level ones.
22652266
;; Try using Locate Module.
22662267
(let ((candidates (company-coq-candidates-modules module)))
2268+
(message "candidates %s" candidates)
2269+
(message "candidatesm %s" (mapcar (lambda (x) (company-coq-get-prop 'location x)) candidates))
22672270
(cl-loop for candidate in candidates
22682271
when (string= module candidate)
22692272
thereis (cons (company-coq-get-prop 'location candidate) nil))))

0 commit comments

Comments
 (0)