From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 23 Sep 2022 20:07:47 +0000 (+0300)
Subject: sweep.el: remove outdated sweep--compile-module function
X-Git-Tag: v0.3.3~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12fbadf13b9c78e25002588784d905c8748bfb5b;p=dict.git

sweep.el: remove outdated sweep--compile-module function
---

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")