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