Remove CL-isms from Emacs mode
authorDavid Christiansen <david@davidchristiansen.dk>
Mon, 1 Aug 2016 13:02:30 +0000 (09:02 -0400)
committerDavid Christiansen <david@davidchristiansen.dk>
Mon, 1 Aug 2016 13:02:30 +0000 (09:02 -0400)
*foo* is Common Lisp for special variables, while foo is Emacs Lisp for
 the same.

cubicaltt.el

index 3d4786e38816efda2ddf9db5805eb4239e822315..83778d7db6bee67f84f62b6d4e1d5302f850a4be 100644 (file)
@@ -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 ()