From c56a0eeee6cb0ab4d13b8691aa80e1536a916a49 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 23 Mar 2023 08:14:48 -0700 Subject: have C-c g h ignore a symbol at point --- .emacs.d/init.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 54d86c55..7cf41aec 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -4448,7 +4448,12 @@ mutt's review view, after exiting EDITOR." (when (boundp 'browse-url-handlers) ; Emacs 27 (add-to-list 'browse-url-handlers '("/local/clhs/HyperSpec/" . eww))))) -(global-set-key "\C-cgh" #'hyperspec-lookup) +;; `hyperspec-lookup' unconditionally uses a symbol at point, but we have +;; SLIME's C-c C-d h for that. +(defun spw/hyperspec-lookup () + (interactive) + (with-temp-buffer (call-interactively #'hyperspec-lookup))) +(global-set-key "\C-cgh" #'spw/hyperspec-lookup) ;; `inf-lisp' says this is a defcustom and `slime' says it is a defvar, so ;; `custom-save-variables' will print the NOW field in the corresponding -- cgit v1.2.3