diff --git a/clients/lsp-cobol.el b/clients/lsp-cobol.el index e8cf5f91dc..2482c2bf59 100644 --- 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 index 1b14f6a97c..ddf9d7b7bd 100644 --- 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