chore: Remove unused functions

emacs-lsp · Mar 24, 2024 · ec7b2fe · ec7b2fe
1 parent 6de1cc7
commit ec7b2fe
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 38 deletions.
diff --git a/clients/lsp-cobol.el b/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
 

diff --git a/clients/lsp-zig.el b/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