Commit 478e765a authored by David Kågedal's avatar David Kågedal
Browse files

No commit message

No commit message
parent b30e8ba2
......@@ -32,6 +32,8 @@ Tue Oct 8 14:33:24 1996 Niels M
Tue Oct 8 04:44:29 1996 David Kgedal <davidk@lysator.liu.se>
* lyskom-buttons.el (lyskom-make-button-menu): Kopiera listorna.
* lyskom-rest.el: Anropa lyskom-build-menus p toppnivn.
* menus.el (lyskom-background-menu): Ny funktion.
......
......@@ -123,9 +123,11 @@ on such functions see the documentation for lyskom-add-button-action."
(defun lyskom-make-button-menu (title entries)
"Create a menu keymap from a list of button actions."
;; Use the command as the event for simplicity.
;; Use the command as the event for simplicity. Note that the menu
;; function alters the menu, so we copy the entries to prevent it
;; from fiddling with lyskom-button-actions.
(append (list 'keymap title)
(mapcar '(lambda (entry) (cons (cdr entry) entry))
(mapcar '(lambda (entry) (cons (cdr entry) (copy-tree entry)))
entries)))
(defun lyskom-button-menu (pos event)
......
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