From 12fbadf13b9c78e25002588784d905c8748bfb5b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 23 Sep 2022 23:07:47 +0300 Subject: [PATCH] sweep.el: remove outdated sweep--compile-module function --- sweep.el | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/sweep.el b/sweep.el index b2b49a9..0aa636e 100644 --- a/sweep.el +++ b/sweep.el @@ -112,9 +112,6 @@ inserted to the input history in `sweep-top-level-mode' buffers." :type 'string :group 'sweep) -(defvar sweep-install-buffer-name "*Install sweep*" - "Name of the buffer used for compiling sweep-module.") - (defcustom sweep-init-on-load t "If non-nil, initialize Prolog when `sweep' is loaded." :package-version '((sweep "0.1.0")) @@ -132,22 +129,6 @@ inserted to the input history in `sweep-top-level-mode' buffers." (defvar sweep-prolog-server-port nil) -(defun sweep--compile-module () - "Compile sweep-module." - (interactive) - (let* ((sweep-directory - (shell-quote-argument (file-name-directory load-file-name))) - (make-commands - (concat - "cd " sweep-directory "; make; cd -")) - (buffer (get-buffer-create sweep-install-buffer-name))) - (pop-to-buffer buffer) - (compilation-mode) - (if (zerop (let ((inhibit-read-only t)) - (call-process "sh" nil buffer t "-c" make-commands))) - (message "Compilation of `sweep' module succeeded") - (error "Compilation of `sweep' module failed!")))) - (declare-function sweep-initialize "sweep-module") (declare-function sweep-initialized-p "sweep-module") (declare-function sweep-open-query "sweep-module") -- 2.39.2