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 | 792466ea51fcd25192dea9b1b28a4d4cd9faf6c2 (patch) | |
| tree | 952ec7f20941999e0b85dba9737210e55495fa50 /elisp/geiser-menu.el | |
| parent | c9d76d4770ffc21aae81692a213b48b9e86315a1 (diff) | |
| download | geiser-792466ea51fcd25192dea9b1b28a4d4cd9faf6c2.tar.gz geiser-792466ea51fcd25192dea9b1b28a4d4cd9faf6c2.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) |