[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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)