Move undef commands to cider-eval.el

to satisfy the byte compiler

Author: yuhan0

cider-eval.el

@@ -1374,6 +1374,27 @@ passing arguments."
   (kill-new
    (nrepl-dict-get (cider-nrepl-sync-request:eval "*1") "value")))
 
+(defun cider-undef ()
+  "Undefine a symbol from the current ns."
+  (interactive)
+  (cider-ensure-op-supported "undef")
+  (cider-read-symbol-name
+   "Undefine symbol: "
+   (lambda (sym)
+     (cider-nrepl-send-request
+      `("op" "undef"
+        "ns" ,(cider-current-ns)
+        "sym" ,sym)
+      (cider-interactive-eval-handler (current-buffer))))))
+
+(defun cider-undef-all (&optional ns)
+  "Undefine all symbols and aliases from the namespace NS."
+  (interactive)
+  (cider-ensure-op-supported "undef-all")
+  (cider-nrepl-send-sync-request
+   `("op" "undef-all"
+     "ns" ,(or ns (cider-current-ns)))))
+
 ;; Eval keymaps
 (defvar cider-eval-pprint-commands-map
   (let ((map (define-prefix-command 'cider-eval-pprint-commands-map)))

cider-mode.el

@@ -158,27 +158,6 @@ the related commands `cider-repl-clear-buffer' and
       (cider-repl-clear-output))
     (switch-to-buffer origin-buffer)))
 
-(defun cider-undef ()
-  "Undefine a symbol from the current ns."
-  (interactive)
-  (cider-ensure-op-supported "undef")
-  (cider-read-symbol-name
-   "Undefine symbol: "
-   (lambda (sym)
-     (cider-nrepl-send-request
-      `("op" "undef"
-        "ns" ,(cider-current-ns)
-        "sym" ,sym)
-      (cider-interactive-eval-handler (current-buffer))))))
-
-(defun cider-undef-all (&optional ns)
-  "Undefine all symbols and aliases from the namespace NS."
-  (interactive)
-  (cider-ensure-op-supported "undef-all")
-  (cider-nrepl-send-sync-request
-   `("op" "undef-all"
-     "ns" ,(or ns (cider-current-ns)))))
-
 ;;; cider-run
 (defvar cider--namespace-history nil
   "History of user input for namespace prompts.")

cider-repl.el

@@ -1575,7 +1575,7 @@ constructs."
   (puthash name handler cider-repl-shortcuts))
 
 (declare-function cider-toggle-trace-ns "cider-tracing")
-(declare-function cider-undef "cider-mode")
+(declare-function cider-undef "cider-eval")
 (declare-function cider-browse-ns "cider-browse-ns")
 (declare-function cider-classpath "cider-classpath")
 (declare-function cider-repl-history "cider-repl-history")