Commit a6290a12 authored by Niels Möller's avatar Niels Möller
Browse files

lyskom-commands är en riktig alista

zappa editmenyn
parent 17a6339d
......@@ -40,6 +40,8 @@
(defun lyskom-build-menus ()
(define-key lyskom-mode-map [menu-bar]
lyskom-menu-map)
(define-key lyskom-mode-map [menu-bar edit]
'undefined)
(lyskom-define-menu lyskom-menu-map lyskom-menus))
(defun lyskom-define-menu (map menus)
......@@ -58,7 +60,7 @@
(lyskom-define-menu submap submenu)))
((eq 'item (car (car menus)))
(let* ((symbol (car (cdr (car menus))))
(name (car (lyskom-get-string symbol lyskom-commands))))
(name (lyskom-get-string symbol lyskom-commands)))
(define-key map (vector symbol)
(cons name symbol))))
(t (error "Menu description invalid in lyskom-define-menu")))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment