summaryrefslogtreecommitdiff
path: root/elisp/geiser-menu.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 23:54:51 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-14 23:54:51 +0200
commit8b399bd98609c275ccf961c2761ba1f33012353c (patch)
treee8f997a56cf7c32cbc77d54dc4777f0d2071d4d6 /elisp/geiser-menu.el
parent3114e4208dd63bde3f978cae581503a70217db63 (diff)
downloadgeiser-guile-8b399bd98609c275ccf961c2761ba1f33012353c.tar.gz
geiser-guile-8b399bd98609c275ccf961c2761ba1f33012353c.tar.bz2
Menus for geiser-mode.
Diffstat (limited to 'elisp/geiser-menu.el')
-rw-r--r--elisp/geiser-menu.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/elisp/geiser-menu.el b/elisp/geiser-menu.el
index a298092..f1aa5d8 100644
--- a/elisp/geiser-menu.el
+++ b/elisp/geiser-menu.el
@@ -89,7 +89,8 @@
(defmacro geiser-menu--mode-toggle (title bindings mode keymap map)
`(geiser-menu--add-item ,keymap ,map
- (,title ,bindings ,mode :button (:toggle . (and (boundp ',mode) ,mode)))))
+ (,title ,bindings ,mode
+ :button (:toggle . (and (boundp ',mode) ,mode)))))
(defmacro geiser-menu--defmenu (name keymap &rest keys)
(let ((mmap (make-symbol "mmap")))
@@ -102,7 +103,8 @@
(cons "Switch to" geiser-menu--custom-switch))
(define-key ,mmap [Run] (cons "Run" geiser-menu--custom-run))
(geiser-menu--add-line ,mmap)
- (geiser-menu--add-items ,keymap ,mmap ,keys)))))
+ (geiser-menu--add-items ,keymap ,mmap ,keys)
+ ,mmap))))
(put 'geiser-menu--defmenu 'lisp-indent-function 2)