From 4fdff3cdcd5980530640bd564f2086d0d57a0c14 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 28 Jun 2010 02:01:02 +0200 Subject: REPL: fix for M-. binding --- elisp/geiser-repl.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'elisp') 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) -- cgit v1.2.3