From 8b399bd98609c275ccf961c2761ba1f33012353c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 14 Jun 2010 23:54:51 +0200 Subject: Menus for geiser-mode. --- elisp/geiser-menu.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-menu.el') 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) -- cgit v1.2.3