diff options
| author | Martin Stjernholm | 2003-07-05 19:53:33 +0000 |
|---|---|---|
| committer | Martin Stjernholm | 2003-07-05 19:53:33 +0000 |
| commit | 50fdde0e7e1720e80c54ade7708e6e6af4e4c8b7 (patch) | |
| tree | 6d4bae28cad14db94de055f07db169f078ab70be | |
| parent | 392cb21b2f3b9ad212225e05a715553e18b1c160 (diff) | |
| download | emacs-50fdde0e7e1720e80c54ade7708e6e6af4e4c8b7.tar.gz emacs-50fdde0e7e1720e80c54ade7708e6e6af4e4c8b7.zip | |
Fixed some autoload problems: Try to ensure that the entry for ".c"
extension comes before the one for ".C" on auto-mode-alist', to behave
better on case insensitive OS:es. Fixed incorrect entries that were added
to interpreter-mode-alist'. Moved the autoload directives for AWK to the
top level since they aren't recognized anywhere else. Do not use the new
AWK mode doc in the autoload form for the old AWK mode.
| -rw-r--r-- | lisp/progmodes/cc-mode.el | 52 |
1 files changed, 27 insertions, 25 deletions
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 6194092533a..69bf72b258e 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el | |||
| @@ -596,6 +596,17 @@ Note that the style variables are always made local to the buffer." | |||
| 596 | ;; doing this on load. That since `add-to-list' prepends the value | 596 | ;; doing this on load. That since `add-to-list' prepends the value |
| 597 | ;; which could cause it to clobber user settings. Later emacsen have | 597 | ;; which could cause it to clobber user settings. Later emacsen have |
| 598 | ;; an append option, but it's not safe to use. | 598 | ;; an append option, but it's not safe to use. |
| 599 | |||
| 600 | ;; The the extension ".C" is associated to C++ while the lowercase | ||
| 601 | ;; variant goes to C. On case insensitive file systems, this means | ||
| 602 | ;; that ".c" files also might open C++ mode if the C++ entry comes | ||
| 603 | ;; first on `auto-mode-alist'. Thus we try to ensure that ".C" comes | ||
| 604 | ;; after ".c", and since `add-to-list' adds the entry first we have to | ||
| 605 | ;; add the ".C" entry first. | ||
| 606 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(cc\\|hh\\)\\'" . c++-mode)) | ||
| 607 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode)) | ||
| 608 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(CC?\\|HH?\\)\\'" . c++-mode)) | ||
| 609 | |||
| 599 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.[ch]\\'" . c-mode)) | 610 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.[ch]\\'" . c-mode)) |
| 600 | 611 | ||
| 601 | ;; NB: The following two associate yacc and lex files to C Mode, which | 612 | ;; NB: The following two associate yacc and lex files to C Mode, which |
| @@ -613,7 +624,7 @@ Note that the style variables are always made local to the buffer." | |||
| 613 | To submit a problem report, enter `\\[c-submit-bug-report]' from a | 624 | To submit a problem report, enter `\\[c-submit-bug-report]' from a |
| 614 | c-mode buffer. This automatically sets up a mail buffer with version | 625 | c-mode buffer. This automatically sets up a mail buffer with version |
| 615 | information already added. You just need to add a description of the | 626 | information already added. You just need to add a description of the |
| 616 | problem, including a reproducible test case and send the message. | 627 | problem, including a reproducible test case, and send the message. |
| 617 | 628 | ||
| 618 | To see what version of CC Mode you are running, enter `\\[c-version]'. | 629 | To see what version of CC Mode you are running, enter `\\[c-version]'. |
| 619 | 630 | ||
| @@ -670,10 +681,6 @@ Key bindings: | |||
| 670 | (easy-menu-define c-c++-menu c++-mode-map "C++ Mode Commands" | 681 | (easy-menu-define c-c++-menu c++-mode-map "C++ Mode Commands" |
| 671 | (cons "C++" (c-lang-const c-mode-menu c++))) | 682 | (cons "C++" (c-lang-const c-mode-menu c++))) |
| 672 | 683 | ||
| 673 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(cc\\|hh\\)\\'" . c++-mode)) | ||
| 674 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode)) | ||
| 675 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(CC?\\|HH?\\)\\'" . c++-mode)) | ||
| 676 | |||
| 677 | ;;;###autoload | 684 | ;;;###autoload |
| 678 | (defun c++-mode () | 685 | (defun c++-mode () |
| 679 | "Major mode for editing C++ code. | 686 | "Major mode for editing C++ code. |
| @@ -816,7 +823,7 @@ Key bindings: | |||
| 816 | To submit a problem report, enter `\\[c-submit-bug-report]' from a | 823 | To submit a problem report, enter `\\[c-submit-bug-report]' from a |
| 817 | java-mode buffer. This automatically sets up a mail buffer with | 824 | java-mode buffer. This automatically sets up a mail buffer with |
| 818 | version information already added. You just need to add a description | 825 | version information already added. You just need to add a description |
| 819 | of the problem, including a reproducible test case and send the | 826 | of the problem, including a reproducible test case, and send the |
| 820 | message. | 827 | message. |
| 821 | 828 | ||
| 822 | To see what version of CC Mode you are running, enter `\\[c-version]'. | 829 | To see what version of CC Mode you are running, enter `\\[c-version]'. |
| @@ -929,8 +936,8 @@ Key bindings: | |||
| 929 | (easy-menu-define c-pike-menu pike-mode-map "Pike Mode Commands" | 936 | (easy-menu-define c-pike-menu pike-mode-map "Pike Mode Commands" |
| 930 | (cons "Pike" (c-lang-const c-mode-menu pike))) | 937 | (cons "Pike" (c-lang-const c-mode-menu pike))) |
| 931 | 938 | ||
| 932 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(pike\\|pmod\\(.in\\)?\\)\\'" . pike-mode)) | 939 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(u?lpc\\|pike\\|pmod\\(.in\\)?\\)\\'" . pike-mode)) |
| 933 | ;;;###autoload (add-to-list 'interpreter-mode-alist '(("pike" . pike-mode))) | 940 | ;;;###autoload (add-to-list 'interpreter-mode-alist '("pike" . pike-mode)) |
| 934 | 941 | ||
| 935 | ;;;###autoload | 942 | ;;;###autoload |
| 936 | (defun pike-mode () | 943 | (defun pike-mode () |
| @@ -969,18 +976,19 @@ Key bindings: | |||
| 969 | ;; Support for awk. This is purposely disabled for older (X)Emacsen which | 976 | ;; Support for awk. This is purposely disabled for older (X)Emacsen which |
| 970 | ;; don't support syntax-table properties. | 977 | ;; don't support syntax-table properties. |
| 971 | 978 | ||
| 972 | (if (not (memq 'syntax-properties c-emacs-features)) | 979 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.awk\\'" . awk-mode)) |
| 973 | (autoload 'awk-mode "awk-mode.el" "Major mode for editing AWK code. | 980 | ;;;###autoload (add-to-list 'interpreter-mode-alist '("awk" . awk-mode)) |
| 974 | To submit a problem report, enter `\\[c-submit-bug-report]' from an | 981 | ;;;###autoload (add-to-list 'interpreter-mode-alist '("mawk" . awk-mode)) |
| 975 | awk-mode buffer. This automatically sets up a mail buffer with version | 982 | ;;;###autoload (add-to-list 'interpreter-mode-alist '("nawk" . awk-mode)) |
| 976 | information already added. You just need to add a description of the | 983 | ;;;###autoload (add-to-list 'interpreter-mode-alist '("gawk" . awk-mode)) |
| 977 | problem, including a reproducible test case and send the message. | ||
| 978 | 984 | ||
| 979 | To see what version of CC Mode you are running, enter `\\[c-version]'. | 985 | ;;; Autoload directives must be on the top level, so we construct an |
| 986 | ;;; autoload form instead. | ||
| 987 | ;;;###autoload (autoload 'awk-mode "cc-mode" "Major mode for editing AWK code.") | ||
| 988 | |||
| 989 | (if (not (memq 'syntax-properties c-emacs-features)) | ||
| 990 | (autoload 'awk-mode "awk-mode" "Major mode for editing AWK code." t) | ||
| 980 | 991 | ||
| 981 | The hook `c-mode-common-hook' is run with no args at mode | ||
| 982 | initialization, then `awk-mode-hook'. | ||
| 983 | " t) | ||
| 984 | (defvar awk-mode-abbrev-table nil | 992 | (defvar awk-mode-abbrev-table nil |
| 985 | "Abbreviation table used in awk-mode buffers.") | 993 | "Abbreviation table used in awk-mode buffers.") |
| 986 | (c-define-abbrev-table 'awk-mode-abbrev-table | 994 | (c-define-abbrev-table 'awk-mode-abbrev-table |
| @@ -1007,18 +1015,12 @@ initialization, then `awk-mode-hook'. | |||
| 1007 | (easy-menu-define c-awk-menu awk-mode-map "AWK Mode Commands" | 1015 | (easy-menu-define c-awk-menu awk-mode-map "AWK Mode Commands" |
| 1008 | (cons "AWK" (c-lang-const c-mode-menu awk))) | 1016 | (cons "AWK" (c-lang-const c-mode-menu awk))) |
| 1009 | 1017 | ||
| 1010 | ;; In XEmacs >= 21.5 modes should add their own entries to | ||
| 1011 | ;; `auto-mode-alist' and `interpreter-mode-alist'. | ||
| 1012 | ;;;###autoload (add-to-list 'auto-mode-alist '("\\.awk\\'" . awk-mode)) | ||
| 1013 | ;;;###autoload (add-to-list 'interpreter-mode-alist '(("awk" . awk-mode) ("mawk" . awk-mode) ("nawk" . awk-mode) ("gawk" . awk-mode))) | ||
| 1014 | |||
| 1015 | ;;;###autoload | ||
| 1016 | (defun awk-mode () | 1018 | (defun awk-mode () |
| 1017 | "Major mode for editing AWK code. | 1019 | "Major mode for editing AWK code. |
| 1018 | To submit a problem report, enter `\\[c-submit-bug-report]' from an | 1020 | To submit a problem report, enter `\\[c-submit-bug-report]' from an |
| 1019 | awk-mode buffer. This automatically sets up a mail buffer with version | 1021 | awk-mode buffer. This automatically sets up a mail buffer with version |
| 1020 | information already added. You just need to add a description of the | 1022 | information already added. You just need to add a description of the |
| 1021 | problem, including a reproducible test case and send the message. | 1023 | problem, including a reproducible test case, and send the message. |
| 1022 | 1024 | ||
| 1023 | To see what version of CC Mode you are running, enter `\\[c-version]'. | 1025 | To see what version of CC Mode you are running, enter `\\[c-version]'. |
| 1024 | 1026 | ||