From thenriksen at common-lisp.net  Mon Jan 15 22:46:46 2007
From: thenriksen at common-lisp.net (thenriksen)
Date: Mon, 15 Jan 2007 17:46:46 -0500 (EST)
Subject: [clim-desktop-cvs] CVS clim-desktop
Message-ID: <20070115224646.C5F6868241@common-lisp.net>

Update of /project/clim-desktop/cvsroot/clim-desktop
In directory clnet:/tmp/cvs-serv13310

Modified Files:
	clim-desktop.asd clim-launcher.lisp 
Log Message:
Taking over the system debugger is probably A Bad Thing. Instead, use
it when starting stuff via CLIM Launcher.


--- /project/clim-desktop/cvsroot/clim-desktop/clim-desktop.asd	2006/07/10 22:26:12	1.7
+++ /project/clim-desktop/cvsroot/clim-desktop/clim-desktop.asd	2007/01/15 22:46:46	1.8
@@ -27,6 +27,6 @@
 	       (:file "beirc" :depends-on ("clim-launcher"))
                (:file "closure" :depends-on ("beirc" "clim-launcher" "clhs-lookup"))
 	       (:file "climacs" :depends-on ("EDITME"))
-	       (:file "debugger" :depends-on ("EDITME"))
+	       #+nil (:file "debugger" :depends-on ("EDITME"))
 	       (:file "listener")
 	       (:file "clim-launcher" :depends-on ("EDITME"))))
--- /project/clim-desktop/cvsroot/clim-desktop/clim-launcher.lisp	2006/07/28 08:10:40	1.7
+++ /project/clim-desktop/cvsroot/clim-desktop/clim-launcher.lisp	2007/01/15 22:46:46	1.8
@@ -37,10 +37,10 @@
   ;; when invoking a new thread, so we'll have to create the threads
   ;; and the bindings ourselves.
   (flet ((run ()
-           (let #+sbcl ((sb-ext:*invoke-debugger-hook* #'clim-debugger:debugger)
-                        (*debugger-hook* #'clim-debugger:debugger))
+           (let #+sbcl ((sb-ext:*invoke-debugger-hook* 'clim-debugger:debugger)
+                        (*debugger-hook* 'clim-debugger:debugger))
                 #-sbcl nil
-             (funcall (entry appl)))))
+                (funcall (entry appl)))))
     (clim-sys:make-process #'run :name (name appl))))
 
 (define-launcher-command (com-remove-app)



From thenriksen at common-lisp.net  Wed Jan 17 21:17:49 2007
From: thenriksen at common-lisp.net (thenriksen)
Date: Wed, 17 Jan 2007 16:17:49 -0500 (EST)
Subject: [clim-desktop-cvs] CVS clim-desktop
Message-ID: <20070117211749.600B31900B@common-lisp.net>

Update of /project/clim-desktop/cvsroot/clim-desktop
In directory clnet:/tmp/cvs-serv22213

Modified Files:
	closure.lisp 
Log Message:
Restore workingness of CLHS-browsing-command.


--- /project/clim-desktop/cvsroot/clim-desktop/closure.lisp	2006/11/24 15:01:01	1.4
+++ /project/clim-desktop/cvsroot/clim-desktop/closure.lisp	2007/01/17 21:17:49	1.5
@@ -13,7 +13,7 @@
 ;;; This library is distributed in the hope that it will be useful,
 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;; Library General Public License for more details.
+n;;; Library General Public License for more details.
 ;;;
 ;;; You should have received a copy of the GNU Library General Public
 ;;; License along with this library; if not, write to the
@@ -37,9 +37,9 @@
 (define-command (com-lookup-symbol-documentation :name t :command-table lisp-table)
     ()
   "Look up a symbol in the Common Lisp HyperSpec or CLIM spec."
-  (let* ((syntax (syntax (buffer (current-window))))
-         (symbol (or (token-to-object syntax (symbol-at-mark (point (current-window))
-                                                             syntax))
+  (let* ((symbol (or (form-to-object *current-syntax*
+                                     (symbol-at-mark *current-point*
+                                                     *current-syntax*))
                      (accept 'symbol :prompt "Lookup documentation for symbol")))
          (name (symbol-name symbol))
          (*standard-output* *debug-io*)
@@ -54,9 +54,10 @@
         (esa:display-message "Symbol not found.")
         (closure:visit url))))
 
+;; We want it to work in the Listener, where C-c is an abort gesture.
 (esa:set-key 'com-lookup-symbol-documentation
              'lisp-table
-             '((#\c :control) (#\d :control) (#\h)))
+             '((#\c :control :meta) (#\d :control) (#\h)))
 
 (in-package :beirc)