diff options
| -rw-r--r-- | doc/cheat.texi | 2 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/doc/cheat.texi b/doc/cheat.texi index 4c21450..a0ac413 100644 --- a/doc/cheat.texi +++ b/doc/cheat.texi @@ -122,7 +122,7 @@ third key not modified by @key{Control}; e.g., @tab @code{geiser-edit-symbol-at-point} @tab Edit identifier at point @item TAB -@tab @code{geiser-repl--tab} +@tab @code{geiser-repl-tab-dwim} @tab Complete, indent, or go to next error @item S-TAB (backtab) @tab @code{geiser-repl--previous-error} diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 5927e3d..54da070 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -473,7 +473,7 @@ module command as a string") (geiser-repl--newline-and-indent) (insert "\n")))))) -(defun geiser-repl--tab (n) +(defun geiser-repl-tab-dwim (n) "If we're after the last prompt, complete symbol or indent (if there's no symbol at point). Otherwise, go to next error in the REPL buffer." @@ -511,7 +511,7 @@ buffer." (define-key geiser-repl-mode-map "\C-m" 'geiser-repl--maybe-send) (define-key geiser-repl-mode-map [return] 'geiser-repl--maybe-send) (define-key geiser-repl-mode-map "\C-j" 'geiser-repl--newline-and-indent) -(define-key geiser-repl-mode-map (kbd "TAB") 'geiser-repl--tab) +(define-key geiser-repl-mode-map (kbd "TAB") 'geiser-repl-tab-dwim) (define-key geiser-repl-mode-map [backtab] 'geiser-repl--previous-error) (define-key geiser-repl-mode-map "\C-a" 'geiser-repl--bol) |