From thenriksen at common-lisp.net Mon Feb 19 16:23:49 2007 From: thenriksen at common-lisp.net (thenriksen) Date: Mon, 19 Feb 2007 11:23:49 -0500 (EST) Subject: [climacs-cvs] CVS climacs Message-ID: <20070219162349.E185B1B000@common-lisp.net> Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv1646 Modified Files: climacs-lisp-syntax-commands.lisp Log Message: Keep up with changes in Drei's Lisp syntax. --- /project/climacs/cvsroot/climacs/climacs-lisp-syntax-commands.lisp 2006/12/10 19:44:56 1.3 +++ /project/climacs/cvsroot/climacs/climacs-lisp-syntax-commands.lisp 2007/02/19 16:23:49 1.4 @@ -116,7 +116,7 @@ () "Edit definition of the symbol at point. If there is no symbol at point, this is a no-op." - (let* ((token (this-form *current-point* *current-syntax*)) + (let* ((token (this-form *current-syntax* *current-point*)) (this-symbol (form-to-object *current-syntax* token))) (when (and this-symbol (symbolp this-symbol)) (edit-definition this-symbol)))) From thenriksen at common-lisp.net Mon Feb 19 22:06:18 2007 From: thenriksen at common-lisp.net (thenriksen) Date: Mon, 19 Feb 2007 17:06:18 -0500 (EST) Subject: [climacs-cvs] CVS climacs Message-ID: <20070219220618.57ECB2B122@common-lisp.net> Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv10024 Modified Files: gui.lisp Log Message: Made Climacs more happy about having commands fed to it by other threads. --- /project/climacs/cvsroot/climacs/gui.lisp 2007/01/14 19:48:18 1.235 +++ /project/climacs/cvsroot/climacs/gui.lisp 2007/02/19 22:06:18 1.236 @@ -300,12 +300,15 @@ (display-drei drei)) (defmethod execute-frame-command :around ((frame climacs) command) - (handling-drei-conditions - (with-undo ((buffers frame)) + (if (eq frame *application-frame*) + (progn + (handling-drei-conditions + (with-undo ((buffers frame)) + (call-next-method))) + (loop for buffer in (buffers frame) + do (when (modified-p buffer) + (clear-modify buffer)))) (call-next-method))) - (loop for buffer in (buffers frame) - do (when (modified-p buffer) - (clear-modify buffer)))) (defmethod execute-frame-command :after ((frame climacs) command) (when (eq frame *application-frame*)