From: David Christiansen 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 ()