diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-23 08:14:48 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-23 08:18:00 -0700 |
commit | c56a0eeee6cb0ab4d13b8691aa80e1536a916a49 (patch) | |
tree | edf569c3fc3d5a4156443b9714b17da8744a419a | |
parent | 9a47b630b82dbd02f9164260d0dda26a5ab69182 (diff) | |
download | dotfiles-c56a0eeee6cb0ab4d13b8691aa80e1536a916a49.tar.gz |
have C-c g h ignore a symbol at point
-rw-r--r-- | .emacs.d/init.el | 7 |
1 files changed, 6 insertions, 1 deletions
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 |