[climacs-cvs] CVS update: climacs/gui.lisp

[Christophe Rhodes]

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))