summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-28 02:01:02 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-28 02:01:02 +0200
commit4fdff3cdcd5980530640bd564f2086d0d57a0c14 (patch)
tree68a32efa4ea9f6eb867749769f93d3c5505201cf /elisp/geiser-repl.el
parentdfabe981cf46eac0e207c90af18e283fa29a03d5 (diff)
downloadgeiser-4fdff3cdcd5980530640bd564f2086d0d57a0c14.tar.gz
geiser-4fdff3cdcd5980530640bd564f2086d0d57a0c14.tar.bz2
REPL: fix for M-. binding
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index d10d84a..fd86de8 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -54,6 +54,11 @@ implementation name gets appended to it."
:type 'integer
:group 'geiser-repl)
+(geiser-custom--defcustom geiser-repl-history-no-dups-p t
+ "Whether to skip duplicates when recording history."
+ :type 'boolean
+ :group 'geiser-repl)
+
(geiser-custom--defcustom geiser-repl-autodoc-p t
"Whether to enable `geiser-autodoc-mode' in the REPL by default."
:type 'boolean
@@ -393,6 +398,8 @@ module command as a string")
geiser-repl-read-only-prompt-p)
(set (make-local-variable 'beginning-of-defun-function)
'geiser-repl--beginning-of-defun)
+ (set (make-local-variable 'comint-input-ignoredups)
+ 'geiser-repl-history-no-dups-p)
(setq geiser-eval--get-module-function 'geiser-repl--module-function)
(when geiser-repl-autodoc-p (geiser-autodoc-mode 1))
(setq geiser-autodoc--inhibit-function 'geiser-con--is-debugging)
@@ -414,7 +421,7 @@ module command as a string")
geiser-completion--complete-symbol :enable (symbol-at-point))
("Complete module name" ((kbd "C-.") (kbd "M-`"))
geiser-completion--complete-module :enable (symbol-at-point))
- ("Edit symbol" "\M-." geiser-edit--symbol-at-point
+ ("Edit symbol" "\M-." geiser-edit-symbol-at-point
:enable (symbol-at-point))
--
("Switch to module..." ("\C-cm" "\C-c\C-m") switch-to-geiser-module)