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)