CSLMode.el revision a46759a60a40e273585c54c971213d5cd6dc7d00
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay;; Creating a new menu pane in the menu bar to the right of "Tools" menu
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay;; A keymap is suitable for menu use if it has an overall prompt string, which describes the purpose of the menu.
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay;; 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
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay(define-key-after global-map [menu-bar enclmenu match]
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay (cons "Match" (make-sparse-keymap "major modes")) 'kill-buffer )
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay(define-key global-map [menu-bar enclmenu match others] '("..." . nil))
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay(define-key global-map [menu-bar enclmenu match abstractflange] '("Abstract Flange" . match-abstractflange))
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay (message (concatenate 'string "asd" (buffer-file-name (current-buffer))))
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay (call-process "/bin/ls" nil (get-buffer-create "*Match-Result*") t)
f58c87ece2202b8f85310d8885c7e39a7f435c09Jason Lemay (switch-to-buffer (get-buffer "*Match-Result*"))