haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #340 from leungbk/byte-comp 

utop.el: Placate byte-compiler
This commit is contained in:
Rudi Grinberg 2021-04-03 20:13:38 -07:00 committed by GitHub
parent e5059d2e2f 71faa5fb62
commit b2f15bff67
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/top/utop.el
View File

@ -1139,6 +1139,8 @@ See https://github.com/diml/utop for configuration information."))
;; Load local file variables ;; Load local file variables
(add-hook 'hack-local-variables-hook 'utop-hack-local-variables)) (add-hook 'hack-local-variables-hook 'utop-hack-local-variables))
(defvar company-backends)
;;;###autoload ;;;###autoload
(define-derived-mode utop-mode fundamental-mode "utop" (define-derived-mode utop-mode fundamental-mode "utop"
"Set the buffer mode to utop." "Set the buffer mode to utop."
@ -1223,6 +1225,9 @@ Special keys for utop:
(with-current-buffer buf (utop-mode))))) (with-current-buffer buf (utop-mode)))))
buf)) buf))
(declare-function company-begin-backend "ext:company")
(declare-function company-grab-symbol-cons "ext:company")
(defun utop-company-backend (command &optional _arg &rest ignored) (defun utop-company-backend (command &optional _arg &rest ignored)
"company backend for utop completions" "company backend for utop completions"
(interactive (list 'interactive)) (interactive (list 'interactive))