CSLMode.el revision bc84d207c5ccce005513f71b15635731fa426bf1
25f72e2845c89a153ca9d3279d7feccbc912524ematthew;; Creating a new menu pane in the menu bar to the right of "Tools" menu
25f72e2845c89a153ca9d3279d7feccbc912524ematthew;; A keymap is suitable for menu use if it has an overall prompt string, which describes the purpose of the menu.
25f72e2845c89a153ca9d3279d7feccbc912524ematthew;; essentially: define-key map fake-key '(item command), where fake-key is of the form [menu-bar mymenu nl] and defines key nl in mymenu which must exist
25f72e2845c89a153ca9d3279d7feccbc912524ematthew(define-key-after global-map [menu-bar enclmenu match]
25f72e2845c89a153ca9d3279d7feccbc912524ematthew (cons "Match" (make-sparse-keymap "major modes")) 'kill-buffer )
25f72e2845c89a153ca9d3279d7feccbc912524ematthew(define-key global-map [menu-bar enclmenu match others] '("..." . nil))
25f72e2845c89a153ca9d3279d7feccbc912524ematthew(define-key global-map [menu-bar enclmenu match abstractflange] '("Abstract Flange" . match-abstractflange))
25f72e2845c89a153ca9d3279d7feccbc912524ematthew (message "buffer name is %s" (buffer-file-name (current-buffer)))
25f72e2845c89a153ca9d3279d7feccbc912524ematthew (call-process "/bin/ls" nil (get-buffer-create "*Match-Result*") t)