[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv10360

Modified Files:
	climacs.lisp 
Log Message:
Only execute a command when we actually have a command.


--- /project/climacs/cvsroot/climacs/climacs.lisp	2008/01/23 18:17:05	1.5
+++ /project/climacs/cvsroot/climacs/climacs.lisp	2008/01/26 11:28:53	1.6
@@ -77,7 +77,8 @@
            (t (error 'type-error :datum thing
                      :expected-type '(or null string pathname symbol))))))
     (if climacs-frame
-        (execute-frame-command climacs-frame command)
+        (when command
+          (execute-frame-command climacs-frame command))
         (apply #'climacs-common command :new-process t args)))
   t)