File tree Expand file tree Collapse file tree 1 file changed +3
-0
lines changed Expand file tree Collapse file tree 1 file changed +3
-0
lines changed Original file line number Diff line number Diff line change @@ -2187,6 +2187,7 @@ to a non-existent file (for an example of such a case, try
2187
2187
(concat (match-string-no-properties 2 output) " .v" ))))
2188
2188
(and fallback-spec (expand-file-name (concat mod-name " .v" ) (cdr fallback-spec)))))
2189
2189
(stripped (replace-regexp-in-string " _build/default" " " path nil 'literal )))
2190
+ (message " orig %s striped %s " path stripped)
2190
2191
(if (file-exists-p stripped)
2191
2192
stripped
2192
2193
path
@@ -2264,6 +2265,8 @@ Returns a cons as specified by `company-coq--locate-name'."
2264
2265
; ; FIXME this doesn't find modules other than file-level ones.
2265
2266
; ; Try using Locate Module.
2266
2267
(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))
2267
2270
(cl-loop for candidate in candidates
2268
2271
when (string= module candidate)
2269
2272
thereis (cons (company-coq-get-prop 'location candidate) nil ))))
You can’t perform that action at this time.
0 commit comments