From: Ray Racine <ray.racine@gmail.com>
Date: Sat, 2 Feb 2013 18:05:44 +0000 (-0500)
Subject: Insert Greek letter lambda.
X-Git-Tag: 0.4~42
X-Git-Url: https://repo.or.cz/w/geiser.git/commitdiff_plain/43dd4894285c2b2aff6bcc17ac9b2bf8f3868702

Insert Greek letter lambda.
---

diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 06ae1d1..874c9fc 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -234,6 +234,14 @@ With prefix, asks for the symbol to edit."
                             (geiser-completion--read-module)))
     (when marker (ring-insert find-tag-marker-ring marker))))
 
+
+;; Editing key bindings
+
+(defun geiser-edit-insert-lambda ()
+  "Insert λ at point."
+  (interactive)
+  (insert-char ?λ 1))
 
 
+
 (provide 'geiser-edit)
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index fc7715a..6df82a7 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -321,6 +321,7 @@ interacting with the Geiser REPL is at your disposal.
   (custom "Customize Geiser mode" geiser-mode))
 
 (define-key geiser-mode-map [menu-bar scheme] 'undefined)
+(define-key geiser-mode-map "\C-\\" 'geiser-edit-insert-lambda)
 
 ;; (geiser-mode--triple-chord ?x ?m 'geiser-xref-generic-methods)