From ef8004dabfa54eb569797fe8b17a9baaa882bd2b Mon Sep 17 00:00:00 2001 From: gganley Date: Fri, 2 Mar 2018 15:05:07 -0500 Subject: Declare functions to resolve warnings --- cider-client.el | 2 ++ cider-doc.el | 5 +++++ cider-interaction.el | 2 ++ cider-mode.el | 3 +++ cider-repl.el | 4 ++++ cider.el | 3 ++- 6 files changed, 18 insertions(+), 1 deletion(-) diff --git a/cider-client.el b/cider-client.el index 1850d3df..be281e9d 100644 --- a/cider-client.el +++ b/cider-client.el @@ -1182,6 +1182,8 @@ default connection." (message "Default nREPL connection: %s" (cider--connection-info (car cider-connections))))) + +(declare-function cider-connect "cider") (defun cider-replicate-connection (&optional conn) "Establish a new connection based on an existing connection. The new connection will use the same host and port. diff --git a/cider-doc.el b/cider-doc.el index 7f7c2e97..3c867ea0 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -47,6 +47,11 @@ :group 'cider) +(declare-function cider-apropos "cider-apropos") +(declare-function cider-apropos-select "cider-apropos") +(declare-function cider-apropos-documentation "cider-apropos") +(declare-function cider-apropos-documentation-select "cider-apropos") + (defvar cider-doc-map (let (cider-doc-map) (define-prefix-command 'cider-doc-map) diff --git a/cider-interaction.el b/cider-interaction.el index dd07b716..d9f2a758 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -2066,6 +2066,8 @@ and all ancillary CIDER buffers." (unless (cider-connected-p) (cider-close-ancillary-buffers))) +(declare-function cider-connect "cider") +(declare-function cider-jack-in "cider") (defun cider--restart-connection (conn) "Restart the connection CONN." (let ((project-dir (with-current-buffer conn nrepl-project-dir)) diff --git a/cider-mode.el b/cider-mode.el index e45ffd65..78d00b31 100644 --- a/cider-mode.el +++ b/cider-mode.el @@ -307,6 +307,9 @@ Configure `cider-cljs-*-repl' to change the ClojureScript REPL to use for your b ["Flush completion cache" cider-completion-flush-caches])) "Menu for CIDER interactions.") +(declare-function cider-macroexpand-1 "cider-macroexpansion") +(declare-function cider-macroexpand-all "cider-macroexpansion") +(declare-function cider-selector "cider-selector") (defconst cider-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "C-c C-d") 'cider-doc-map) diff --git a/cider-repl.el b/cider-repl.el index 549ffbae..d2f3a9bc 100644 --- a/cider-repl.el +++ b/cider-repl.el @@ -1398,6 +1398,7 @@ constructs." (declare-function cider-repl-history "cider-repl-history") (declare-function cider-run "cider-interaction") (declare-function cider-refresh "cider-interaction") +(declare-function cider-version "cider") (cider-repl-add-shortcut "clear-output" #'cider-repl-clear-output) (cider-repl-add-shortcut "clear" #'cider-repl-clear-buffer) (cider-repl-add-shortcut "clear-banners" #'cider-repl-clear-banners) @@ -1479,6 +1480,9 @@ constructs." (declare-function cider-find-ns "cider-interaction") (declare-function cider-find-keyword "cider-interaction") (declare-function cider-switch-to-last-clojure-buffer "cider-mode") +(declare-function cider-macroexpand-1 "cider-macroexpansion") +(declare-function cider-macroexpand-all "cider-macroexpansion") +(declare-function cider-selector "cider-selector") (defvar cider-repl-mode-map (let ((map (make-sparse-keymap))) diff --git a/cider.el b/cider.el index d6c96627..f469ed08 100644 --- a/cider.el +++ b/cider.el @@ -742,7 +742,8 @@ the appropriate REPL type in the end." (defun cider-current-host () "Retrieve the current host." (if (and (stringp buffer-file-name) - (file-remote-p buffer-file-name)) + (file-remote-p buffer-file-name) + (boundp 'tramp-current-host)) tramp-current-host "localhost")) -- cgit v1.2.3