diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-03-12 03:18:47 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-03-12 03:18:47 +0100 |
| commit | 666a28f1ff0914916b7a46bc30846c629235a5af (patch) | |
| tree | 1c14f398657890c1c6d9e61f88b8c92dfdda9fac | |
| parent | b695e11602abf10b9a4b1cf8b234f87ee1e915f2 (diff) | |
| download | geiser-chez-666a28f1ff0914916b7a46bc30846c629235a5af.tar.gz geiser-chez-666a28f1ff0914916b7a46bc30846c629235a5af.tar.bz2 | |
Fix for RET with point at the beginning of line after M-p
| -rw-r--r-- | elisp/geiser-repl.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index c5c0490..71385eb 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -607,7 +607,9 @@ module command as a string") (if (geiser-repl--is-history-input) (geiser-repl--grab-input) (ignore-errors (compile-goto-error)))) - ((progn (end-of-line) (<= (geiser-repl--nesting-level) 0)) + ((let ((inhibit-field-text-motion t)) + (end-of-line) + (<= (geiser-repl--nesting-level) 0)) (geiser-repl--send-input)) (t (goto-char p) (if geiser-repl-auto-indent-p |