No commit message

No commit message

src/ChangeLog

@@ -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.

src/lyskom-buttons.el

@@ -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)