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)
