Mercurial > emacs
comparison lisp/progmodes/make-mode.el @ 92703:0905c6be13b6
(makefile-mode-abbrev-table): Add menu
entries and add :help to the existing ones.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 10 Mar 2008 05:02:55 +0000 |
| parents | a1342e6e097a |
| children | ca9efc5939fc |
comparison
equal
deleted
inserted
replaced
| 92702:61bc109c3133 | 92703:0905c6be13b6 |
|---|---|
| 580 (if makefile-mode-abbrev-table | 580 (if makefile-mode-abbrev-table |
| 581 () | 581 () |
| 582 (define-abbrev-table 'makefile-mode-abbrev-table ())) | 582 (define-abbrev-table 'makefile-mode-abbrev-table ())) |
| 583 | 583 |
| 584 (defvar makefile-mode-map | 584 (defvar makefile-mode-map |
| 585 (let ((map (make-sparse-keymap))) | 585 (let ((map (make-sparse-keymap)) |
| 586 (opt-map (make-sparse-keymap))) | |
| 586 ;; set up the keymap | 587 ;; set up the keymap |
| 587 (define-key map "\C-c:" 'makefile-insert-target-ref) | 588 (define-key map "\C-c:" 'makefile-insert-target-ref) |
| 588 (if makefile-electric-keys | 589 (if makefile-electric-keys |
| 589 (progn | 590 (progn |
| 590 (define-key map "$" 'makefile-insert-macro-ref) | 591 (define-key map "$" 'makefile-insert-macro-ref) |
| 610 | 611 |
| 611 ;; Make menus. | 612 ;; Make menus. |
| 612 (define-key map [menu-bar makefile-mode] | 613 (define-key map [menu-bar makefile-mode] |
| 613 (cons "Makefile" (make-sparse-keymap "Makefile"))) | 614 (cons "Makefile" (make-sparse-keymap "Makefile"))) |
| 614 | 615 |
| 616 (define-key map [menu-bar makefile-mode makefile-type] | |
| 617 (cons "Switch Makefile Type" opt-map)) | |
| 618 (define-key opt-map [makefile-makepp-mode] | |
| 619 '(menu-item "Makepp" makefile-makepp-mode | |
| 620 :help "An adapted `makefile-mode' that knows about makepp" | |
| 621 :button (:radio . (eq major-mode 'makefile-makepp-mode)))) | |
| 622 (define-key opt-map [makefile-imake-mode] | |
| 623 '(menu-item "Imake" makefile-imake-mode | |
| 624 :help "An adapted `makefile-mode' that knows about imake" | |
| 625 :button (:radio . (eq major-mode 'makefile-imake-mode)))) | |
| 626 (define-key opt-map [makefile-mode] | |
| 627 '(menu-item "Classic" makefile-mode | |
| 628 :help "`makefile-mode' with no special functionality" | |
| 629 :button (:radio . (eq major-mode 'makefile-mode)))) | |
| 630 (define-key opt-map [makefile-bsdmake-mode] | |
| 631 '(menu-item "BSD" makefile-bsdmake-mode | |
| 632 :help "An adapted `makefile-mode' that knows about BSD make" | |
| 633 :button (:radio . (eq major-mode 'makefile-bsdmake-mode)))) | |
| 634 (define-key opt-map [makefile-automake-mode] | |
| 635 '(menu-item "Automake" makefile-automake-mode | |
| 636 :help "An adapted `makefile-mode' that knows about automake" | |
| 637 :button (:radio . (eq major-mode 'makefile-automake-mode)))) | |
| 638 (define-key opt-map [makefile-gmake-mode] | |
| 639 '(menu-item "GNU make" makefile-gmake-mode | |
| 640 :help "An adapted `makefile-mode' that knows about GNU make" | |
| 641 :button (:radio . (eq major-mode 'makefile-gmake-mode)))) | |
| 615 (define-key map [menu-bar makefile-mode browse] | 642 (define-key map [menu-bar makefile-mode browse] |
| 616 '("Pop up Makefile Browser" . makefile-switch-to-browser)) | 643 '(menu-item "Pop up Makefile Browser" makefile-switch-to-browser |
| 644 ;; XXX: this needs a better string, the function is not documented... | |
| 645 :help "Pop up Makefile Browser")) | |
| 646 (define-key map [menu-bar makefile-mode overview] | |
| 647 '(menu-item "Up To Date Overview" makefile-create-up-to-date-overview | |
| 648 :help "Create a buffer containing an overview of the state of all known targets")) | |
| 649 ;; Target related | |
| 650 (define-key map [menu-bar makefile-mode separator1] '("----")) | |
| 651 (define-key map [menu-bar makefile-mode pickup-file] | |
| 652 '(menu-item "Pick File Name as Target" makefile-pickup-filenames-as-targets | |
| 653 :help "Scan the current directory for filenames to use as targets")) | |
| 654 (define-key map [menu-bar makefile-mode function] | |
| 655 '(menu-item "Insert GNU make function" makefile-insert-gmake-function | |
| 656 :help "Insert a GNU make function call")) | |
| 657 (define-key map [menu-bar makefile-mode pickup] | |
| 658 '(menu-item "Find Targets and Macros" makefile-pickup-everything | |
| 659 :help "Notice names of all macros and targets in Makefile")) | |
| 617 (define-key map [menu-bar makefile-mode complete] | 660 (define-key map [menu-bar makefile-mode complete] |
| 618 '("Complete Target or Macro" . makefile-complete)) | 661 '(menu-item "Complete Target or Macro" makefile-complete |
| 619 (define-key map [menu-bar makefile-mode pickup] | 662 :help "Perform completion on Makefile construct preceding point")) |
| 620 '("Find Targets and Macros" . makefile-pickup-everything)) | 663 (define-key map [menu-bar makefile-mode backslash] |
| 621 | 664 '(menu-item "Backslash Region" makefile-backslash-region |
| 665 :help "Insert, align, or delete end-of-line backslashes on the lines in the region")) | |
| 666 ;; Motion | |
| 667 (define-key map [menu-bar makefile-mode separator] '("----")) | |
| 622 (define-key map [menu-bar makefile-mode prev] | 668 (define-key map [menu-bar makefile-mode prev] |
| 623 '("Move to Previous Dependency" . makefile-previous-dependency)) | 669 '(menu-item "Move to Previous Dependency" makefile-previous-dependency |
| 670 :help "Move point to the beginning of the previous dependency line")) | |
| 624 (define-key map [menu-bar makefile-mode next] | 671 (define-key map [menu-bar makefile-mode next] |
| 625 '("Move to Next Dependency" . makefile-next-dependency)) | 672 '(menu-item "Move to Next Dependency" makefile-next-dependency |
| 673 :help "Move point to the beginning of the next dependency line")) | |
| 626 map) | 674 map) |
| 627 "The keymap that is used in Makefile mode.") | 675 "The keymap that is used in Makefile mode.") |
| 628 | 676 |
| 629 | 677 |
| 630 (defvar makefile-browser-map | 678 (defvar makefile-browser-map |