chore: Remove unused functions (#4393)

Author: jcs090218

clients/lsp-cobol.el

@@ -44,25 +44,6 @@ This is only for development use."
   :type 'integer
   :group 'lsp-cobol)
 
-;;
-;;; Util
-
-(defmacro lsp-cobol--mute-apply (&rest body)
-  "Execute BODY without message."
-  (declare (indent 0) (debug t))
-  `(let (message-log-max)
-     (with-temp-message (or (current-message) nil)
-       (let ((inhibit-message t)) ,@body))))
-
-(defun lsp-cobol--execute (cmd &rest args)
-  "Return non-nil if CMD executed succesfully with ARGS."
-  (save-window-excursion
-    (lsp-cobol--mute-apply
-      (= 0 (shell-command (concat cmd " "
-                                  (mapconcat #'shell-quote-argument
-                                             (cl-remove-if #'null args)
-                                             " ")))))))
-
 ;;
 ;;; Installation
 

clients/lsp-zig.el

@@ -205,25 +205,6 @@ If `true', replace the text after the cursor."
   :group 'lsp-zig
   :type 'boolean)
 
-;;
-;;; Util
-
-(defmacro lsp-zig--mute-apply (&rest body)
-  "Execute BODY without message."
-  (declare (indent 0) (debug t))
-  `(let (message-log-max)
-     (with-temp-message (or (current-message) nil)
-       (let ((inhibit-message t)) ,@body))))
-
-(defun lsp-zig--execute (cmd &rest args)
-  "Return non-nil if CMD executed succesfully with ARGS."
-  (save-window-excursion
-    (lsp-zig--mute-apply
-      (= 0 (shell-command (concat cmd " "
-                                  (mapconcat #'shell-quote-argument
-                                             (cl-remove-if #'null args)
-                                             " ")))))))
-
 ;;
 ;;; Installation