From 41b09dceb28acb9d57f9a24effd07d5e238d52cf Mon Sep 17 00:00:00 2001 From: Robert Burnett Date: Fri, 26 Jun 2026 10:23:48 -0500 Subject: [PATCH 1/2] add hyperspec lookup bindings --- extensions/lisp-mode/ext/hyperspec.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extensions/lisp-mode/ext/hyperspec.lisp b/extensions/lisp-mode/ext/hyperspec.lisp index 0b1724d4a..b3e3dcadc 100644 --- a/extensions/lisp-mode/ext/hyperspec.lisp +++ b/extensions/lisp-mode/ext/hyperspec.lisp @@ -992,6 +992,9 @@ It can also be a path to load it locally: (defparameter *symbols* (make-hash-table :test 'equal) "Maps symbol names to relative urls in the hyperspec.") +(define-key lem-lisp-mode:*lisp-mode-keymap* "C-c C-d h" 'lisp-hyperspec-at-point) +(define-key lem-lisp-mode:*lisp-repl-mode-keymap* "C-c C-d h" 'lisp-hyperspec-at-point) + (defun hlookup (symbol) (unless (> (hash-table-count *symbols*) 0) (hload-symbols)) From 090d80c8ec84175b146017979fd7609ad4e608ed Mon Sep 17 00:00:00 2001 From: Robert Burnett Date: Fri, 26 Jun 2026 10:27:30 -0500 Subject: [PATCH 2/2] fix compile error --- extensions/lisp-mode/ext/hyperspec.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/extensions/lisp-mode/ext/hyperspec.lisp b/extensions/lisp-mode/ext/hyperspec.lisp index b3e3dcadc..f1d3de301 100644 --- a/extensions/lisp-mode/ext/hyperspec.lisp +++ b/extensions/lisp-mode/ext/hyperspec.lisp @@ -992,8 +992,10 @@ It can also be a path to load it locally: (defparameter *symbols* (make-hash-table :test 'equal) "Maps symbol names to relative urls in the hyperspec.") -(define-key lem-lisp-mode:*lisp-mode-keymap* "C-c C-d h" 'lisp-hyperspec-at-point) -(define-key lem-lisp-mode:*lisp-repl-mode-keymap* "C-c C-d h" 'lisp-hyperspec-at-point) +(define-key lem-lisp-mode/internal:*lisp-mode-keymap* + "C-c C-d h" 'lisp-hyperspec-at-point) +(define-key lem-lisp-mode/internal:*lisp-repl-mode-keymap* + "C-c C-d h" 'lisp-hyperspec-at-point) (defun hlookup (symbol) (unless (> (hash-table-count *symbols*) 0)