Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv18876
Modified Files: gui.lisp Log Message: delete a couple of stray extra parens
Date: Mon Aug 8 20:32:02 2005 Author: crhodes
Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.173 climacs/gui.lisp:1.174 --- climacs/gui.lisp:1.173 Mon Aug 8 16:48:21 2005 +++ climacs/gui.lisp Mon Aug 8 20:32:02 2005 @@ -806,7 +806,7 @@ (define-named-command com-browse-url () (let ((url (accept 'url :prompt "Browse URL"))) #+ (and sbcl darwin) - (sb-ext:run-program "/usr/bin/open" `(,url) :wait nil)))) + (sb-ext:run-program "/usr/bin/open" `(,url) :wait nil)))
(define-named-command com-set-mark () (let ((pane (current-window))) @@ -1304,7 +1304,7 @@ (loop repeat count do (forward-sentence point syntax)) (loop repeat (- count) do (backward-sentence point syntax))) (kill-ring-standard-push *kill-ring* (region-to-sequence point mark)) - (delete-region point mark)))) + (delete-region point mark)))
(define-named-command com-backward-kill-sentence ((count 'integer :prompt "Number of sentences")) (let* ((pane (current-window))