diff options
author | Aaron Marks <nymacro@gmail.com> | 2019-11-26 19:30:36 +1000 |
---|---|---|
committer | Aaron Marks <nymacro@gmail.com> | 2019-11-26 19:33:47 +1000 |
commit | 4622b4361a9da53cde53cd041abdfa5f2bd25adb (patch) | |
tree | f0bebc9fdeeb0e69b20856fc029012cd3e092b28 | |
parent | 957d4757e48a415c369010011860a71302e5eba5 (diff) | |
download | geiser-guile-4622b4361a9da53cde53cd041abdfa5f2bd25adb.tar.gz geiser-guile-4622b4361a9da53cde53cd041abdfa5f2bd25adb.tar.bz2 |
Rename multiline expression option
* Renames geiser-repl-context-sensitive-send to
geiser-repl-send-on-return-p. This option's value is now inverted.
* Update documentation accordingly.
-rw-r--r-- | elisp/geiser-repl.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 89226d2..9f400a3 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -114,17 +114,19 @@ change that." :type 'boolean :group 'geiser-repl) -(geiser-custom--defcustom geiser-repl-context-sensitive-send nil - "Don't send input to REPL without the cursor being placed at the -end of prompt. - -When on, pressing \\[enter] when the cursor is placed inside a -balanced S-expression will introduce a new line without sending -input to the inferior Scheme process. - -When off (the default), pressing \\[enter] when the cursor is -placed inside a balanced S-expression will send the input to -the inferior Scheme process." +(geiser-custom--defcustom geiser-repl-send-on-return-p t + "Sends input to REPL when ENTER is pressed in a balanced S-expression, +regardless of cursor positioning. + +When off, pressing ENTER inside a balance S-expression will +introduce a new line without sending input to the inferior +Scheme process. This option is useful when using minor modes +which might do parentheses balancing, or when entering additional +arguments inside an existing expression. + +When on (the default), pressing ENTER inside a balanced S-expression +will send the input to the inferior Scheme process regardless of the +cursor placement." :type 'boolean :group 'geiser-repl) @@ -749,7 +751,7 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history." (geiser-repl--grab-input) (ignore-errors (compile-goto-error)))) ((let ((inhibit-field-text-motion t)) - (unless geiser-repl-context-sensitive-send + (when geiser-repl-send-on-return-p (end-of-line)) (<= (geiser-repl--nesting-level) 0)) (geiser-repl--send-input)) |