From: David Christiansen <david@davidchristiansen.dk>
Date: Mon, 1 Aug 2016 13:02:30 +0000 (-0400)
Subject: Remove CL-isms from Emacs mode
X-Git-Url: https://git.ak3n.com/?a=commitdiff_plain;h=146cf81e9f1e46859c05176f58c3fe4c047ff7a4;p=cubicaltt.git

Remove CL-isms from Emacs mode

*foo* is Common Lisp for special variables, while foo is Emacs Lisp for
 the same.
---

diff --git a/cubicaltt.el b/cubicaltt.el
index 3d4786e..83778d7 100644
--- a/cubicaltt.el
+++ b/cubicaltt.el
@@ -104,20 +104,20 @@ For details, see `comment-dwim'."
 
 ;;;; The interactive toplevel
 
-(defvar *cubicaltt-cubical-process* nil
+(defvar cubicaltt-cubical-process nil
   "The subprocess buffer for cubical.")
 
-(defvar *cubicaltt-loaded-buffer* nil
+(defvar cubicaltt-loaded-buffer nil
   "The currently-loaded buffer for cubical.
 
 If no buffer is loaded, then this variable is nil.")
 
 (defun cubicaltt-ensure-process ()
   "Ensure that a process is running for cubical and return the process buffer."
-  (if (and *cubicaltt-cubical-process* (get-buffer-process *cubicaltt-cubical-process*))
-      *cubicaltt-cubical-process*
+  (if (and cubicaltt-cubical-process (get-buffer-process cubicaltt-cubical-process))
+      cubicaltt-cubical-process
     (let ((process (make-comint "cubical" cubicaltt-command)))
-      (setq *cubicaltt-cubical-process* process)
+      (setq cubicaltt-cubical-process process)
       process)))
 
 (defun cubicaltt-load ()