From 146cf81e9f1e46859c05176f58c3fe4c047ff7a4 Mon Sep 17 00:00:00 2001 From: David Christiansen Date: Mon, 1 Aug 2016 09:02:30 -0400 Subject: [PATCH] Remove CL-isms from Emacs mode *foo* is Common Lisp for special variables, while foo is Emacs Lisp for the same. --- cubicaltt.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 () -- 2.34.1