diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-14 23:54:51 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-14 23:54:51 +0200 |
| commit | 8b399bd98609c275ccf961c2761ba1f33012353c (patch) | |
| tree | e8f997a56cf7c32cbc77d54dc4777f0d2071d4d6 /elisp/geiser-menu.el | |
| parent | 3114e4208dd63bde3f978cae581503a70217db63 (diff) | |
| download | geiser-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.el | 6 |
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) |