Mercurial > emacs
comparison lisp/progmodes/ada-xref.el @ 47745:36d9421bf776
(ada-xref-update-project-menu,ada-add-ada-menu): Handle the menu
pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Thu, 03 Oct 2002 18:21:02 +0000 |
| parents | dd1d952f59c2 |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 47744:1b89f0ef4d72 | 47745:36d9421bf776 |
|---|---|
| 473 ;; Parses all the known project files, and insert at least the default | 473 ;; Parses all the known project files, and insert at least the default |
| 474 ;; one (in case ada-xref-project-files is nil) | 474 ;; one (in case ada-xref-project-files is nil) |
| 475 (or ada-xref-project-files '(nil))) | 475 (or ada-xref-project-files '(nil))) |
| 476 | 476 |
| 477 (if (not ada-xemacs) | 477 (if (not ada-xemacs) |
| 478 (if (lookup-key ada-mode-map [menu-bar Ada Project]) | 478 (if (and (lookup-key ada-mode-map [menu-bar Ada]) |
| 479 (setcdr (lookup-key ada-mode-map [menu-bar Ada Project]) | 479 (lookup-key ada-mode-map [menu-bar Ada Project])) |
| 480 submenu))) | 480 (setcdr (lookup-key ada-mode-map [menu-bar Ada Project]) |
| 481 )) | 481 submenu) |
| 482 (if (lookup-key ada-mode-map [menu-bar ada Project]) | |
| 483 (setcdr (lookup-key ada-mode-map [menu-bar ada Project]) | |
| 484 submenu)))) | |
| 485 )) | |
| 482 | 486 |
| 483 | 487 |
| 484 ;;------------------------------------------------------------- | 488 ;;------------------------------------------------------------- |
| 485 ;;-- Searching a file anywhere on the source path. | 489 ;;-- Searching a file anywhere on the source path. |
| 486 ;;-- | 490 ;;-- |
| 723 (lambda()(interactive) | 727 (lambda()(interactive) |
| 724 (setq ada-tight-gvd-integration | 728 (setq ada-tight-gvd-integration |
| 725 (not ada-tight-gvd-integration))) | 729 (not ada-tight-gvd-integration))) |
| 726 :button (:toggle . ada-tight-gvd-integration)) t)) | 730 :button (:toggle . ada-tight-gvd-integration)) t)) |
| 727 | 731 |
| 728 (define-key ada-mode-map [menu-bar Ada Edit rem3] '("------------" . nil)) | 732 (define-key edit-menu [rem3] '("------------" . nil)) |
| 729 (define-key ada-mode-map [menu-bar Ada Edit open-file-from-src-path] | 733 (define-key edit-menu [open-file-from-src-path] |
| 730 '("Search File on source path..." . ada-find-file)) | 734 '("Search File on source path..." . ada-find-file)) |
| 731 ) | 735 ) |
| 732 ) | 736 ) |
| 733 (ada-xref-update-project-menu) | 737 (ada-xref-update-project-menu) |
| 734 ) | 738 ) |