button.el

Recent CEDET versions need button.el from Emacs. I'm attaching my first attempt at a port. The most basic functionality seems to work. Try this: (defun test-button-push (button) "Print a message when BUTTON is pushed." (message "%s pushed!" (button-label button))) (defun test-mouse-button-push (button) "Print a message when BUTTON is pushed." (message "%s pushed with the mouse!" (button-label button))) (find-file "/tmp/test.txt") (insert-button "Button 1" 'face 'blue 'keymap button-map 'action #'test-button-push 'mouse-action #'test-mouse-button-push) (insert "\n") (insert-text-button "Button 2" 'face 'red 'keymap button-map 'action #'test-button-push 'mouse-action #'test-mouse-button-push) (insert "\n") (insert-button "Button 3" 'face 'green 'keymap button-map 'action #'test-button-push 'mouse-action #'test-mouose-button-push) (insert "\n") Then click on the 3 buttons with the middle mouse button, or press Ctrl-m while point is on a button. Suggestions for improvements are welcome, as is a suggestion for where this file should go (xemacs-base?). Regards, -- Jerry James http://www.jamezone.org/ _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta