Mercurial > emacs
annotate lisp/progmodes/cc-mode.el @ 66324:3ef412c92565
*** empty log message ***
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Sun, 23 Oct 2005 09:45:44 +0000 |
parents | 2d888e7b750c |
children | 04d2abb755d9 aa89c814f853 |
rev | line source |
---|---|
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1 ;;; cc-mode.el --- major mode for editing C and similar languages |
18720 | 2 |
64699
629afbe74e61
Update copyright for release of 22.1 for progmodes directory.
Nick Roberts <nickrob@snap.net.nz>
parents:
62641
diff
changeset
|
3 ;; Copyright (C) 1985,1987,1992-2003, 2004, 2005 Free Software Foundation, Inc. |
18720 | 4 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
5 ;; Authors: 2003- Alan Mackenzie |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
6 ;; 1998- Martin Stjernholm |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
7 ;; 1992-1999 Barry A. Warsaw |
18720 | 8 ;; 1987 Dave Detlefs and Stewart Clamen |
9 ;; 1985 Richard M. Stallman | |
24282 | 10 ;; Maintainer: bug-cc-mode@gnu.org |
18720 | 11 ;; Created: a long, long, time ago. adapted from the original c-mode.el |
12 ;; Keywords: c languages oop | |
13 | |
14 ;; This file is part of GNU Emacs. | |
15 | |
16 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
17 ;; it under the terms of the GNU General Public License as published by | |
18 ;; the Free Software Foundation; either version 2, or (at your option) | |
19 ;; any later version. | |
20 | |
21 ;; GNU Emacs is distributed in the hope that it will be useful, | |
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
24 ;; GNU General Public License for more details. | |
25 | |
26 ;; You should have received a copy of the GNU General Public License | |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
27 ;; along with this program; see the file COPYING. If not, write to |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
28 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
29 ;; Boston, MA 02110-1301, USA. |
18720 | 30 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
31 ;;; Commentary: |
36920 | 32 |
33 ;; NOTE: Read the commentary below for the right way to submit bug reports! | |
34 ;; NOTE: See the accompanying texinfo manual for details on using this mode! | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
35 ;; Note: The version string is in cc-defs. |
18720 | 36 |
37 ;; This package provides GNU Emacs major modes for editing C, C++, | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
38 ;; Objective-C, Java, CORBA's IDL, Pike and AWK code. As of the |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
39 ;; latest Emacs and XEmacs releases, it is the default package for |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
40 ;; editing these languages. This package is called "CC Mode", and |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
41 ;; should be spelled exactly this way. |
24282 | 42 |
43 ;; CC Mode supports K&R and ANSI C, ANSI C++, Objective-C, Java, | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
44 ;; CORBA's IDL, Pike and AWK with a consistent indentation model |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
45 ;; across all modes. This indentation model is intuitive and very |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
46 ;; flexible, so that almost any desired style of indentation can be |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
47 ;; supported. Installation, usage, and programming details are |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
48 ;; contained in an accompanying texinfo manual. |
18720 | 49 |
50 ;; CC Mode's immediate ancestors were, c++-mode.el, cplus-md.el, and | |
51 ;; cplus-md1.el.. | |
52 | |
53 ;; To submit bug reports, type "C-c C-b". These will be sent to | |
24282 | 54 ;; bug-gnu-emacs@gnu.org (mirrored as the Usenet newsgroup |
55 ;; gnu.emacs.bug) as well as bug-cc-mode@gnu.org, which directly | |
56 ;; contacts the CC Mode maintainers. Questions can sent to | |
57 ;; help-gnu-emacs@gnu.org (mirrored as gnu.emacs.help) and/or | |
36920 | 58 ;; bug-cc-mode@gnu.org. Please do not send bugs or questions to our |
59 ;; personal accounts; we reserve the right to ignore such email! | |
18720 | 60 |
61 ;; Many, many thanks go out to all the folks on the beta test list. | |
62 ;; Without their patience, testing, insight, code contributions, and | |
63 ;; encouragement CC Mode would be a far inferior package. | |
64 | |
65 ;; You can get the latest version of CC Mode, including PostScript | |
66 ;; documentation and separate individual files from: | |
67 ;; | |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
68 ;; http://cc-mode.sourceforge.net/ |
18720 | 69 ;; |
24282 | 70 ;; You can join a moderated CC Mode announcement-only mailing list by |
71 ;; visiting | |
72 ;; | |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
73 ;; http://lists.sourceforge.net/mailman/listinfo/cc-mode-announce |
18720 | 74 |
75 ;;; Code: | |
76 | |
26817 | 77 (eval-when-compile |
78 (let ((load-path | |
36920 | 79 (if (and (boundp 'byte-compile-dest-file) |
80 (stringp byte-compile-dest-file)) | |
81 (cons (file-name-directory byte-compile-dest-file) load-path) | |
26817 | 82 load-path))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
83 (load "cc-bytecomp" nil t))) |
21109
a0eda86dd0be
(c-initialize-cc-mode): Moved require's to top level.
Richard M. Stallman <rms@gnu.org>
parents:
20917
diff
changeset
|
84 |
36920 | 85 (cc-require 'cc-defs) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
86 (cc-require-when-compile 'cc-langs) |
36920 | 87 (cc-require 'cc-vars) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
88 (cc-require 'cc-engine) |
36920 | 89 (cc-require 'cc-styles) |
90 (cc-require 'cc-cmds) | |
91 (cc-require 'cc-align) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
92 (cc-require 'cc-menus) |
36920 | 93 |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
94 ;; Silence the compiler. |
36920 | 95 (cc-bytecomp-defvar comment-line-break-function) ; (X)Emacs 20+ |
96 (cc-bytecomp-defvar adaptive-fill-first-line-regexp) ; Emacs 20+ | |
97 (cc-bytecomp-defun set-keymap-parents) ; XEmacs | |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
98 (cc-bytecomp-defun run-mode-hooks) ; Emacs 21.1+ |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
99 (cc-bytecomp-obsolete-fun make-local-hook) ; Marked obsolete in Emacs 21.1. |
36920 | 100 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
101 ;; We set these variables during mode init, yet we don't require |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
102 ;; font-lock. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
103 (cc-bytecomp-defvar font-lock-defaults) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
104 (cc-bytecomp-defvar font-lock-syntactic-keywords) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
105 |
36920 | 106 ;; Menu support for both XEmacs and Emacs. If you don't have easymenu |
107 ;; with your version of Emacs, you are incompatible! | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
108 (cc-external-require 'easymenu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
109 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
110 ;; Load cc-fonts first after font-lock is loaded, since it isn't |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
111 ;; necessary until font locking is requested. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
112 (eval-after-load "font-lock" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
113 '(require 'cc-fonts)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
114 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
115 ;; cc-langs isn't loaded when we're byte compiled, so add autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
116 ;; directives for the interface functions. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
117 (autoload 'c-make-init-lang-vars-fun "cc-langs") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
118 (autoload 'c-init-language-vars "cc-langs" nil nil 'macro) |
18720 | 119 |
120 | |
18847
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
121 ;; Other modes and packages which depend on CC Mode should do the |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
122 ;; following to make sure everything is loaded and available for their |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
123 ;; use: |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
124 ;; |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
125 ;; (require 'cc-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
126 ;; |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
127 ;; And in the major mode function: |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
128 ;; |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
129 ;; (c-initialize-cc-mode t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
130 ;; (c-init-language-vars some-mode) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
131 ;; (c-common-init 'some-mode) ; Or perhaps (c-basic-common-init 'some-mode) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
132 ;; |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
133 ;; If you're not writing a derived mode using the language variable |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
134 ;; system, then some-mode is one of the language modes directly |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
135 ;; supported by CC Mode. You can then use (c-init-language-vars-for |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
136 ;; 'some-mode) instead of `c-init-language-vars'. |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
137 ;; `c-init-language-vars-for' is a function that avoids the rather |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
138 ;; large expansion of `c-init-language-vars'. |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
139 ;; |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
140 ;; If you use `c-basic-common-init' then you might want to call |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
141 ;; `c-font-lock-init' too to set up CC Mode's font lock support. |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
142 ;; |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
143 ;; See cc-langs.el for further info. A small example of a derived mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
144 ;; is also available at <http://cc-mode.sourceforge.net/ |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
145 ;; derived-mode-ex.el>. |
18847
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
146 |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
147 (defun c-leave-cc-mode-mode () |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
148 (setq c-buffer-is-cc-mode nil)) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
149 |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
150 (defun c-init-language-vars-for (mode) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
151 "Initialize the language variables for one of the language modes |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
152 directly supported by CC Mode. This can be used instead of the |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
153 `c-init-language-vars' macro if the language you want to use is one of |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
154 those, rather than a derived language defined through the language |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
155 variable system (see \"cc-langs.el\")." |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
156 ;; This function does not do any hidden buffer changes. |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
157 (cond ((eq mode 'c-mode) (c-init-language-vars c-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
158 ((eq mode 'c++-mode) (c-init-language-vars c++-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
159 ((eq mode 'objc-mode) (c-init-language-vars objc-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
160 ((eq mode 'java-mode) (c-init-language-vars java-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
161 ((eq mode 'idl-mode) (c-init-language-vars idl-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
162 ((eq mode 'pike-mode) (c-init-language-vars pike-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
163 ((eq mode 'awk-mode) (c-init-language-vars awk-mode)) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
164 (t (error "Unsupported mode %s" mode)))) |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
165 |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
166 ;;;###autoload |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
167 (defun c-initialize-cc-mode (&optional new-style-init) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
168 "Initialize CC Mode for use in the current buffer. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
169 If the optional NEW-STYLE-INIT is nil or left out then all necessary |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
170 initialization to run CC Mode for the C language is done. Otherwise |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
171 only some basic setup is done, and a call to `c-init-language-vars' or |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
172 `c-init-language-vars-for' is necessary too (which gives more |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
173 control). See \"cc-mode.el\" for more info." |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
174 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
175 ;; This function does not do any hidden buffer changes. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
176 |
19299
7cd7373cc021
(c-initialize-cc-mode): Set c-buffer-is-cc-mode to t.
Richard M. Stallman <rms@gnu.org>
parents:
19253
diff
changeset
|
177 (setq c-buffer-is-cc-mode t) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
178 |
24282 | 179 (let ((initprop 'cc-mode-is-initialized) |
180 c-initialization-ok) | |
181 (unless (get 'c-initialize-cc-mode initprop) | |
182 (unwind-protect | |
183 (progn | |
26817 | 184 (put 'c-initialize-cc-mode initprop t) |
185 (c-initialize-builtin-style) | |
24282 | 186 (run-hooks 'c-initialization-hook) |
26817 | 187 ;; Fix obsolete variables. |
188 (if (boundp 'c-comment-continuation-stars) | |
189 (setq c-block-comment-prefix c-comment-continuation-stars)) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
190 (add-hook 'change-major-mode-hook 'c-leave-cc-mode-mode) |
24282 | 191 (setq c-initialization-ok t)) |
192 ;; Will try initialization hooks again if they failed. | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
193 (put 'c-initialize-cc-mode initprop c-initialization-ok)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
194 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
195 (unless new-style-init |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
196 (c-init-language-vars-for 'c-mode))) |
18847
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
197 |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
198 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
199 ;;; Common routines. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
200 |
36920 | 201 (defvar c-mode-base-map () |
202 "Keymap shared by all CC Mode related modes.") | |
203 | |
204 (defun c-make-inherited-keymap () | |
205 (let ((map (make-sparse-keymap))) | |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
206 ;; Necessary to use `cc-bytecomp-fboundp' below since this |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
207 ;; function is called from top-level forms that are evaluated |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
208 ;; while cc-bytecomp is active when one does M-x eval-buffer. |
36920 | 209 (cond |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
210 ;; XEmacs |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
211 ((cc-bytecomp-fboundp 'set-keymap-parents) |
36920 | 212 (set-keymap-parents map c-mode-base-map)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
213 ;; Emacs |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
214 ((cc-bytecomp-fboundp 'set-keymap-parent) |
36920 | 215 (set-keymap-parent map c-mode-base-map)) |
216 ;; incompatible | |
217 (t (error "CC Mode is incompatible with this version of Emacs"))) | |
218 map)) | |
219 | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
220 (defun c-define-abbrev-table (name defs) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
221 ;; Compatibility wrapper for `define-abbrev' which passes a non-nil |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
222 ;; sixth argument for SYSTEM-FLAG in emacsen that support it |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
223 ;; (currently only Emacs 21.2). |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
224 (let ((table (or (symbol-value name) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
225 (progn (define-abbrev-table name nil) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
226 (symbol-value name))))) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
227 (while defs |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
228 (condition-case nil |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
229 (apply 'define-abbrev table (append (car defs) '(t))) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
230 (wrong-number-of-arguments |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
231 (apply 'define-abbrev table (car defs)))) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
232 (setq defs (cdr defs))))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
233 (put 'c-define-abbrev-table 'lisp-indent-function 1) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
234 |
36920 | 235 (if c-mode-base-map |
236 nil | |
237 ;; TBD: should we even worry about naming this keymap. My vote: no, | |
238 ;; because Emacs and XEmacs do it differently. | |
239 (setq c-mode-base-map (make-sparse-keymap)) | |
240 ;; put standard keybindings into MAP | |
241 ;; the following mappings correspond more or less directly to BOCM | |
242 (define-key c-mode-base-map "{" 'c-electric-brace) | |
243 (define-key c-mode-base-map "}" 'c-electric-brace) | |
244 (define-key c-mode-base-map ";" 'c-electric-semi&comma) | |
245 (define-key c-mode-base-map "#" 'c-electric-pound) | |
246 (define-key c-mode-base-map ":" 'c-electric-colon) | |
247 (define-key c-mode-base-map "(" 'c-electric-paren) | |
248 (define-key c-mode-base-map ")" 'c-electric-paren) | |
249 ;; Separate M-BS from C-M-h. The former should remain | |
250 ;; backward-kill-word. | |
251 (define-key c-mode-base-map [(control meta h)] 'c-mark-function) | |
252 (define-key c-mode-base-map "\e\C-q" 'c-indent-exp) | |
253 (substitute-key-definition 'backward-sentence | |
254 'c-beginning-of-statement | |
255 c-mode-base-map global-map) | |
256 (substitute-key-definition 'forward-sentence | |
257 'c-end-of-statement | |
258 c-mode-base-map global-map) | |
259 (substitute-key-definition 'indent-new-comment-line | |
260 'c-indent-new-comment-line | |
261 c-mode-base-map global-map) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
262 (when (fboundp 'comment-indent-new-line) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
263 ;; indent-new-comment-line has changed name to |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
264 ;; comment-indent-new-line in Emacs 21. |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
265 (substitute-key-definition 'comment-indent-new-line |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
266 'c-indent-new-comment-line |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
267 c-mode-base-map global-map)) |
36920 | 268 ;; RMS says don't make these the default. |
269 ;; (define-key c-mode-base-map "\e\C-a" 'c-beginning-of-defun) | |
270 ;; (define-key c-mode-base-map "\e\C-e" 'c-end-of-defun) | |
271 (define-key c-mode-base-map "\C-c\C-n" 'c-forward-conditional) | |
272 (define-key c-mode-base-map "\C-c\C-p" 'c-backward-conditional) | |
273 (define-key c-mode-base-map "\C-c\C-u" 'c-up-conditional) | |
274 (substitute-key-definition 'indent-for-tab-command | |
275 'c-indent-command | |
276 c-mode-base-map global-map) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
277 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
278 ;; It doesn't suffice to put `c-fill-paragraph' on |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
279 ;; `fill-paragraph-function' since `c-fill-paragraph' must be called |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
280 ;; before any fill prefix adaption is done. E.g. `filladapt-mode' |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
281 ;; replaces `fill-paragraph' and does the adaption before calling |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
282 ;; `fill-paragraph-function', and we have to mask comments etc |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
283 ;; before that. Also, `c-fill-paragraph' chains on to |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
284 ;; `fill-paragraph' and the value on `fill-parapgraph-function' to |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
285 ;; do the actual filling work. |
36920 | 286 (substitute-key-definition 'fill-paragraph 'c-fill-paragraph |
287 c-mode-base-map global-map) | |
288 ;; In XEmacs the default fill function is called | |
289 ;; fill-paragraph-or-region. | |
290 (substitute-key-definition 'fill-paragraph-or-region 'c-fill-paragraph | |
291 c-mode-base-map global-map) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
292 |
37563
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
293 ;; Bind the electric deletion functions to C-d and DEL. Emacs 21 |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
294 ;; automatically maps the [delete] and [backspace] keys to these two |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
295 ;; depending on window system and user preferences. (In earlier |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
296 ;; versions it's possible to do the same by using `function-key-map'.) |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
297 (define-key c-mode-base-map "\C-d" 'c-electric-delete-forward) |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
298 (define-key c-mode-base-map "\177" 'c-electric-backspace) |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
299 (when (boundp 'delete-key-deletes-forward) |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
300 ;; In XEmacs 20 and later we fix the forward and backward deletion |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
301 ;; behavior by binding the keysyms for the [delete] and |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
302 ;; [backspace] keys directly, and use `delete-forward-p' or |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
303 ;; `delete-key-deletes-forward' to decide what [delete] should do. |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
304 (define-key c-mode-base-map [delete] 'c-electric-delete) |
79039a33283a
Bind c-electric-delete-forward to C-d and c-electric-backspace to DEL.
Eli Zaretskii <eliz@gnu.org>
parents:
36920
diff
changeset
|
305 (define-key c-mode-base-map [backspace] 'c-electric-backspace)) |
36920 | 306 (define-key c-mode-base-map "," 'c-electric-semi&comma) |
307 (define-key c-mode-base-map "*" 'c-electric-star) | |
308 (define-key c-mode-base-map "/" 'c-electric-slash) | |
309 (define-key c-mode-base-map "\C-c\C-q" 'c-indent-defun) | |
310 (define-key c-mode-base-map "\C-c\C-\\" 'c-backslash-region) | |
311 (define-key c-mode-base-map "\C-c\C-a" 'c-toggle-auto-state) | |
312 (define-key c-mode-base-map "\C-c\C-b" 'c-submit-bug-report) | |
313 (define-key c-mode-base-map "\C-c\C-c" 'comment-region) | |
314 (define-key c-mode-base-map "\C-c\C-d" 'c-toggle-hungry-state) | |
315 (define-key c-mode-base-map "\C-c\C-o" 'c-set-offset) | |
316 (define-key c-mode-base-map "\C-c\C-s" 'c-show-syntactic-information) | |
317 (define-key c-mode-base-map "\C-c\C-t" 'c-toggle-auto-hungry-state) | |
318 (define-key c-mode-base-map "\C-c." 'c-set-style) | |
319 ;; conflicts with OOBR | |
320 ;;(define-key c-mode-base-map "\C-c\C-v" 'c-version) | |
321 ) | |
322 | |
323 ;; We don't require the outline package, but we configure it a bit anyway. | |
324 (cc-bytecomp-defvar outline-level) | |
325 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
326 (defun c-mode-menu (modestr) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
327 "Return a menu spec suitable for `easy-menu-define' that is exactly |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
328 like the C mode menu except that the menu bar item name is MODESTR |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
329 instead of \"C\". |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
330 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
331 This function is provided for compatibility only; derived modes should |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
332 preferably use the `c-mode-menu' language constant directly." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
333 (cons modestr (c-lang-const c-mode-menu c))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
334 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
335 ;; Ugly hack to pull in the definition of `c-populate-syntax-table' |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
336 ;; from cc-langs to make it available at runtime. It's either this or |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
337 ;; moving the definition for it to cc-defs, but that would mean to |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
338 ;; break up the syntax table setup over two files. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
339 (defalias 'c-populate-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
340 (cc-eval-when-compile |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
341 (let ((f (symbol-function 'c-populate-syntax-table))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
342 (if (byte-code-function-p f) f (byte-compile f))))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
343 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
344 (defun c-after-change (beg end len) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
345 ;; Function put on `after-change-functions' to adjust various |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
346 ;; caches. Prefer speed to finesse here, since there will be an |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
347 ;; order of magnitude more calls to this function than any of the |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
348 ;; functions that use the caches. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
349 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
350 ;; Note that care must be taken so that this is called before any |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
351 ;; font-lock callbacks since we might get calls to functions using |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
352 ;; these caches from inside them, and we must thus be sure that this |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
353 ;; has already been executed. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
354 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
355 ;; This function does not do any hidden buffer changes. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
356 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
357 (c-save-buffer-state () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
358 (when (> end (point-max)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
359 ;; Some emacsen might return positions past the end. This has been |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
360 ;; observed in Emacs 20.7 when rereading a buffer changed on disk |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
361 ;; (haven't been able to minimize it, but Emacs 21.3 appears to |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
362 ;; work). |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
363 (setq end (point-max)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
364 (when (> beg end) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
365 (setq beg end))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
366 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
367 (c-invalidate-sws-region-after beg end) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
368 (c-invalidate-state-cache beg) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
369 (c-invalidate-find-decl-cache beg))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
370 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
371 (defun c-basic-common-init (mode default-style) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
372 "Do the necessary initialization for the syntax handling routines |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
373 and the line breaking/filling code. Intended to be used by other |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
374 packages that embed CC Mode. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
375 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
376 MODE is the CC Mode flavor to set up, e.g. 'c-mode or 'java-mode. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
377 DEFAULT-STYLE tells which indentation style to install. It has the |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
378 same format as `c-default-style'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
379 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
380 Note that `c-init-language-vars' must be called before this function. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
381 This function cannot do that since `c-init-language-vars' is a macro |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
382 that requires a literal mode spec at compile time." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
383 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
384 ;; This function does not do any hidden buffer changes. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
385 |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
386 (setq c-buffer-is-cc-mode mode) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
387 |
36920 | 388 ;; these variables should always be buffer local; they do not affect |
389 ;; indentation style. | |
390 (make-local-variable 'parse-sexp-ignore-comments) | |
391 (make-local-variable 'indent-line-function) | |
392 (make-local-variable 'indent-region-function) | |
393 (make-local-variable 'normal-auto-fill-function) | |
394 (make-local-variable 'comment-start) | |
395 (make-local-variable 'comment-end) | |
396 (make-local-variable 'comment-start-skip) | |
397 (make-local-variable 'comment-multi-line) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
398 |
36920 | 399 ;; now set their values |
49496
2c05c557df6c
(c-require-final-newline): Made this variable an alist to specify a value
Martin Stjernholm <mast@lysator.liu.se>
parents:
49470
diff
changeset
|
400 (setq parse-sexp-ignore-comments t |
36920 | 401 indent-line-function 'c-indent-line |
402 indent-region-function 'c-indent-region | |
403 normal-auto-fill-function 'c-do-auto-fill | |
404 comment-multi-line t) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
405 |
49654
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
406 ;; Install `c-fill-paragraph' on `fill-paragraph-function' so that a |
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
407 ;; direct call to `fill-paragraph' behaves better. This still |
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
408 ;; doesn't work with filladapt but it's better than nothing. |
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
409 (make-local-variable 'fill-paragraph-function) |
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
410 (setq fill-paragraph-function 'c-fill-paragraph) |
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
411 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
412 ;; (X)Emacs 20 and later. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
413 (when (boundp 'comment-line-break-function) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
414 (make-local-variable 'comment-line-break-function) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
415 (setq comment-line-break-function |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
416 'c-indent-new-comment-line)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
417 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
418 ;; Emacs 20 and later. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
419 (when (boundp 'parse-sexp-lookup-properties) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
420 (make-local-variable 'parse-sexp-lookup-properties) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
421 (setq parse-sexp-lookup-properties t)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
422 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
423 ;; Same as above for XEmacs 21 (although currently undocumented). |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
424 (when (boundp 'lookup-syntax-properties) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
425 (make-local-variable 'lookup-syntax-properties) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
426 (setq lookup-syntax-properties t)) |
49496
2c05c557df6c
(c-require-final-newline): Made this variable an alist to specify a value
Martin Stjernholm <mast@lysator.liu.se>
parents:
49470
diff
changeset
|
427 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
428 ;; Use this in Emacs 21 to avoid meddling with the rear-nonsticky |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
429 ;; property on each character. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
430 (when (boundp 'text-property-default-nonsticky) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
431 (make-local-variable 'text-property-default-nonsticky) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
432 (let ((elem (assq 'syntax-table text-property-default-nonsticky))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
433 (if elem |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
434 (setcdr elem t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
435 (setq text-property-default-nonsticky |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
436 (cons '(syntax-table . t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
437 text-property-default-nonsticky)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
438 (setq text-property-default-nonsticky |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
439 (cons '(c-type . t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
440 text-property-default-nonsticky))) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
441 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
442 ;; In Emacs 21 and later it's possible to turn off the ad-hoc |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
443 ;; heuristic that open parens in column 0 are defun starters. Since |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
444 ;; we have c-state-cache that isn't useful and only causes trouble |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
445 ;; so turn it off. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
446 (when (memq 'col-0-paren c-emacs-features) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
447 (make-local-variable 'open-paren-in-column-0-is-defun-start) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
448 (setq open-paren-in-column-0-is-defun-start nil)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
449 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
450 ;; The `c-type' text property with `c-decl-end' is used to mark the |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
451 ;; ends of access keys to make interactive refontification work |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
452 ;; better. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
453 (when c-opt-access-key |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
454 (setq c-type-decl-end-used t)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
455 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
456 (c-clear-found-types) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
457 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
458 ;; now set the mode style based on default-style |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
459 (let ((style (if (stringp default-style) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
460 default-style |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
461 (or (cdr (assq mode default-style)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
462 (cdr (assq 'other default-style)) |
36920 | 463 "gnu")))) |
464 ;; Override style variables if `c-old-style-variable-behavior' is | |
465 ;; set. Also override if we are using global style variables, | |
466 ;; have already initialized a style once, and are switching to a | |
467 ;; different style. (It's doubtful whether this is desirable, but | |
468 ;; the whole situation with nonlocal style variables is a bit | |
469 ;; awkward. It's at least the most compatible way with the old | |
470 ;; style init procedure.) | |
471 (c-set-style style (not (or c-old-style-variable-behavior | |
472 (and (not c-style-variables-are-local-p) | |
473 c-indentation-style | |
474 (not (string-equal c-indentation-style | |
475 style))))))) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
476 (c-setup-paragraph-variables) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
477 |
36920 | 478 ;; we have to do something special for c-offsets-alist so that the |
479 ;; buffer local value has its own alist structure. | |
480 (setq c-offsets-alist (copy-alist c-offsets-alist)) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
481 |
36920 | 482 ;; setup the comment indent variable in a Emacs version portable way |
483 (make-local-variable 'comment-indent-function) | |
484 (setq comment-indent-function 'c-comment-indent) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
485 |
36920 | 486 ;; put auto-hungry designators onto minor-mode-alist, but only once |
487 (or (assq 'c-auto-hungry-string minor-mode-alist) | |
488 (setq minor-mode-alist | |
489 (cons '(c-auto-hungry-string c-auto-hungry-string) | |
490 minor-mode-alist))) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
491 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
492 ;; Install the functions that ensure that various internal caches |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
493 ;; don't become invalid due to buffer changes. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
494 (add-hook 'after-change-functions 'c-after-change nil t)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
495 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
496 (defun c-after-font-lock-init () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
497 ;; Put on `font-lock-mode-hook'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
498 (remove-hook 'after-change-functions 'c-after-change t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
499 (add-hook 'after-change-functions 'c-after-change nil t)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
500 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
501 (defun c-font-lock-init () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
502 "Set up the font-lock variables for using the font-lock support in CC Mode. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
503 This does not load the font-lock package. Use after |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
504 `c-basic-common-init' and after cc-fonts has been loaded." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
505 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
506 (make-local-variable 'font-lock-defaults) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
507 (setq font-lock-defaults |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
508 `(,(if (c-mode-is-new-awk-p) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
509 ;; awk-mode currently has only one font lock level. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
510 'awk-font-lock-keywords |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
511 (mapcar 'c-mode-symbol |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
512 '("font-lock-keywords" "font-lock-keywords-1" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
513 "font-lock-keywords-2" "font-lock-keywords-3"))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
514 nil nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
515 ,c-identifier-syntax-modifications |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
516 c-beginning-of-syntax |
65661
1da971deed7b
(c-font-lock-init): Specify font-lock-lines-before.
Richard M. Stallman <rms@gnu.org>
parents:
64699
diff
changeset
|
517 (font-lock-lines-before . 1) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
518 (font-lock-mark-block-function |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
519 . c-mark-function))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
520 (add-hook 'font-lock-mode-hook 'c-after-font-lock-init nil t)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
521 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
522 (defun c-setup-doc-comment-style () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
523 "Initialize the variables that depend on the value of `c-doc-comment-style'." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
524 (when (and (featurep 'font-lock) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
525 (symbol-value 'font-lock-mode)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
526 ;; Force font lock mode to reinitialize itself. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
527 (font-lock-mode 0) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
528 (font-lock-mode 1))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
529 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
530 (defun c-common-init (&optional mode) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
531 "Common initialization for all CC Mode modes. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
532 In addition to the work done by `c-basic-common-init' and |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
533 `c-font-lock-init', this function sets up various other things as |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
534 customary in CC Mode modes but which aren't strictly necessary for CC |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
535 Mode to operate correctly. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
536 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
537 MODE is the symbol for the mode to initialize, like 'c-mode. See |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
538 `c-basic-common-init' for details. It's only optional to be |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
539 compatible with old code; callers should always specify it. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
540 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
541 This function does not do any hidden buffer changes." |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
542 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
543 (unless mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
544 ;; Called from an old third party package. The fallback is to |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
545 ;; initialize for C. |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
546 (c-init-language-vars-for 'c-mode)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
547 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
548 (c-basic-common-init mode c-default-style) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
549 (when mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
550 ;; Only initialize font locking if we aren't called from an old package. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
551 (c-font-lock-init)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
552 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
553 (make-local-variable 'outline-regexp) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
554 (make-local-variable 'outline-level) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
555 (setq outline-regexp "[^#\n\^M]" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
556 outline-level 'c-outline-level) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
557 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
558 (let ((rfn (assq mode c-require-final-newline))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
559 (when rfn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
560 (make-local-variable 'require-final-newline) |
59239
a88429b12685
(c-common-init): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
58747
diff
changeset
|
561 (and (cdr rfn) |
a88429b12685
(c-common-init): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
58747
diff
changeset
|
562 (setq require-final-newline mode-require-final-newline))))) |
36920 | 563 |
564 (defun c-postprocess-file-styles () | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
565 "Function that post processes relevant file local variables in CC Mode. |
36920 | 566 Currently, this function simply applies any style and offset settings |
567 found in the file's Local Variable list. It first applies any style | |
568 setting found in `c-file-style', then it applies any offset settings | |
569 it finds in `c-file-offsets'. | |
570 | |
571 Note that the style variables are always made local to the buffer." | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
572 ;; |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
573 ;; This function does not do any hidden buffer changes. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
574 |
36920 | 575 ;; apply file styles and offsets |
45632
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
576 (when c-buffer-is-cc-mode |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
577 (if (or c-file-style c-file-offsets) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
578 (c-make-styles-buffer-local t)) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
579 (and c-file-style |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
580 (c-set-style c-file-style)) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
581 (and c-file-offsets |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
582 (mapcar |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
583 (lambda (langentry) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
584 (let ((langelem (car langentry)) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
585 (offset (cdr langentry))) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
586 (c-set-offset langelem offset))) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
587 c-file-offsets)))) |
36920 | 588 |
589 (add-hook 'hack-local-variables-hook 'c-postprocess-file-styles) | |
590 | |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
591 (defmacro c-run-mode-hooks (&rest hooks) |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
592 ;; Emacs 21.1 has introduced a system with delayed mode hooks that |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
593 ;; require the use of the new function `run-mode-hooks'. |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
594 (if (cc-bytecomp-fboundp 'run-mode-hooks) |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
595 `(run-mode-hooks ,@hooks) |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
596 `(progn ,@(mapcar (lambda (hook) `(run-hooks ,hook)) hooks)))) |
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
597 |
36920 | 598 |
599 ;; Support for C | |
600 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
601 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
602 (defvar c-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
603 "Syntax table used in c-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
604 (or c-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
605 (setq c-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
606 (funcall (c-lang-const c-make-mode-syntax-table c)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
607 |
36920 | 608 (defvar c-mode-abbrev-table nil |
609 "Abbreviation table used in c-mode buffers.") | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
610 (c-define-abbrev-table 'c-mode-abbrev-table |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
611 '(("else" "else" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
612 ("while" "while" c-electric-continued-statement 0))) |
36920 | 613 |
614 (defvar c-mode-map () | |
615 "Keymap used in c-mode buffers.") | |
616 (if c-mode-map | |
617 nil | |
618 (setq c-mode-map (c-make-inherited-keymap)) | |
619 ;; add bindings which are only useful for C | |
620 (define-key c-mode-map "\C-c\C-e" 'c-macro-expand) | |
621 ) | |
622 | |
623 (easy-menu-define c-c-menu c-mode-map "C Mode Commands" | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
624 (cons "C" (c-lang-const c-mode-menu c))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
625 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
626 ;; In XEmacs >= 21.5 modes should add their own entries to |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
627 ;; `auto-mode-alist'. The comment form of autoload is used to avoid |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
628 ;; doing this on load. That since `add-to-list' prepends the value |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
629 ;; which could cause it to clobber user settings. Later emacsen have |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
630 ;; an append option, but it's not safe to use. |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
631 |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
632 ;; The the extension ".C" is associated to C++ while the lowercase |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
633 ;; variant goes to C. On case insensitive file systems, this means |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
634 ;; that ".c" files also might open C++ mode if the C++ entry comes |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
635 ;; first on `auto-mode-alist'. Thus we try to ensure that ".C" comes |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
636 ;; after ".c", and since `add-to-list' adds the entry first we have to |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
637 ;; add the ".C" entry first. |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
638 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(cc\\|hh\\)\\'" . c++-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
639 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.[ch]\\(pp\\|xx\\|\\+\\+\\)\\'" . c++-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
640 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(CC?\\|HH?\\)\\'" . c++-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
641 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
642 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.[ch]\\'" . c-mode)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
643 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
644 ;; NB: The following two associate yacc and lex files to C Mode, which |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
645 ;; is not really suitable for those formats. Anyway, afaik there's |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
646 ;; currently no better mode for them, and besides this is legacy. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
647 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.y\\(acc\\)?\\'" . c-mode)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
648 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.lex\\'" . c-mode)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
649 |
18720 | 650 ;;;###autoload |
651 (defun c-mode () | |
652 "Major mode for editing K&R and ANSI C code. | |
653 To submit a problem report, enter `\\[c-submit-bug-report]' from a | |
654 c-mode buffer. This automatically sets up a mail buffer with version | |
655 information already added. You just need to add a description of the | |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
656 problem, including a reproducible test case, and send the message. |
18720 | 657 |
658 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
659 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
660 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
661 initialization, then `c-mode-hook'. |
18720 | 662 |
663 Key bindings: | |
664 \\{c-mode-map}" | |
665 (interactive) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
666 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
667 (c-initialize-cc-mode t) |
18720 | 668 (set-syntax-table c-mode-syntax-table) |
669 (setq major-mode 'c-mode | |
670 mode-name "C" | |
36920 | 671 local-abbrev-table c-mode-abbrev-table |
672 abbrev-mode t) | |
18720 | 673 (use-local-map c-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
674 (c-init-language-vars-for 'c-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
675 (c-common-init 'c-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
676 (easy-menu-add c-c-menu) |
26817 | 677 (cc-imenu-init cc-imenu-c-generic-expression) |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
678 (c-run-mode-hooks 'c-mode-common-hook 'c-mode-hook) |
18720 | 679 (c-update-modeline)) |
680 | |
681 | |
36920 | 682 ;; Support for C++ |
683 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
684 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
685 (defvar c++-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
686 "Syntax table used in c++-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
687 (or c++-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
688 (setq c++-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
689 (funcall (c-lang-const c-make-mode-syntax-table c++)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
690 |
36920 | 691 (defvar c++-mode-abbrev-table nil |
692 "Abbreviation table used in c++-mode buffers.") | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
693 (c-define-abbrev-table 'c++-mode-abbrev-table |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
694 '(("else" "else" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
695 ("while" "while" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
696 ("catch" "catch" c-electric-continued-statement 0))) |
36920 | 697 |
698 (defvar c++-mode-map () | |
699 "Keymap used in c++-mode buffers.") | |
700 (if c++-mode-map | |
701 nil | |
702 (setq c++-mode-map (c-make-inherited-keymap)) | |
703 ;; add bindings which are only useful for C++ | |
704 (define-key c++-mode-map "\C-c\C-e" 'c-macro-expand) | |
705 (define-key c++-mode-map "\C-c:" 'c-scope-operator) | |
706 (define-key c++-mode-map "<" 'c-electric-lt-gt) | |
707 (define-key c++-mode-map ">" 'c-electric-lt-gt)) | |
708 | |
709 (easy-menu-define c-c++-menu c++-mode-map "C++ Mode Commands" | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
710 (cons "C++" (c-lang-const c-mode-menu c++))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
711 |
18720 | 712 ;;;###autoload |
713 (defun c++-mode () | |
714 "Major mode for editing C++ code. | |
715 To submit a problem report, enter `\\[c-submit-bug-report]' from a | |
716 c++-mode buffer. This automatically sets up a mail buffer with | |
717 version information already added. You just need to add a description | |
718 of the problem, including a reproducible test case, and send the | |
719 message. | |
720 | |
721 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
722 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
723 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
724 initialization, then `c++-mode-hook'. |
18720 | 725 |
726 Key bindings: | |
727 \\{c++-mode-map}" | |
728 (interactive) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
729 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
730 (c-initialize-cc-mode t) |
18720 | 731 (set-syntax-table c++-mode-syntax-table) |
732 (setq major-mode 'c++-mode | |
733 mode-name "C++" | |
36920 | 734 local-abbrev-table c++-mode-abbrev-table |
735 abbrev-mode t) | |
18720 | 736 (use-local-map c++-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
737 (c-init-language-vars-for 'c++-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
738 (c-common-init 'c++-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
739 (easy-menu-add c-c++-menu) |
26817 | 740 (cc-imenu-init cc-imenu-c++-generic-expression) |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
741 (c-run-mode-hooks 'c-mode-common-hook 'c++-mode-hook) |
18720 | 742 (c-update-modeline)) |
743 | |
744 | |
36920 | 745 ;; Support for Objective-C |
746 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
747 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
748 (defvar objc-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
749 "Syntax table used in objc-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
750 (or objc-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
751 (setq objc-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
752 (funcall (c-lang-const c-make-mode-syntax-table objc)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
753 |
36920 | 754 (defvar objc-mode-abbrev-table nil |
755 "Abbreviation table used in objc-mode buffers.") | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
756 (c-define-abbrev-table 'objc-mode-abbrev-table |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
757 '(("else" "else" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
758 ("while" "while" c-electric-continued-statement 0))) |
36920 | 759 |
760 (defvar objc-mode-map () | |
761 "Keymap used in objc-mode buffers.") | |
762 (if objc-mode-map | |
763 nil | |
764 (setq objc-mode-map (c-make-inherited-keymap)) | |
765 ;; add bindings which are only useful for Objective-C | |
766 (define-key objc-mode-map "\C-c\C-e" 'c-macro-expand)) | |
767 | |
768 (easy-menu-define c-objc-menu objc-mode-map "ObjC Mode Commands" | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
769 (cons "ObjC" (c-lang-const c-mode-menu objc))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
770 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
771 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.m\\'" . objc-mode)) |
36920 | 772 |
18720 | 773 ;;;###autoload |
774 (defun objc-mode () | |
775 "Major mode for editing Objective C code. | |
776 To submit a problem report, enter `\\[c-submit-bug-report]' from an | |
777 objc-mode buffer. This automatically sets up a mail buffer with | |
778 version information already added. You just need to add a description | |
779 of the problem, including a reproducible test case, and send the | |
780 message. | |
781 | |
782 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
783 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
784 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
785 initialization, then `objc-mode-hook'. |
18720 | 786 |
787 Key bindings: | |
788 \\{objc-mode-map}" | |
789 (interactive) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
790 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
791 (c-initialize-cc-mode t) |
18720 | 792 (set-syntax-table objc-mode-syntax-table) |
793 (setq major-mode 'objc-mode | |
794 mode-name "ObjC" | |
36920 | 795 local-abbrev-table objc-mode-abbrev-table |
796 abbrev-mode t) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
797 ;; The `c-type' text property with `c-decl-end' is used to mark the |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
798 ;; end of the @-style directives. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
799 (setq c-type-decl-end-used t) |
18720 | 800 (use-local-map objc-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
801 (c-init-language-vars-for 'objc-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
802 (c-common-init 'objc-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
803 (easy-menu-add c-objc-menu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
804 (cc-imenu-init nil 'cc-imenu-objc-function) |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
805 (c-run-mode-hooks 'c-mode-common-hook 'objc-mode-hook) |
18720 | 806 (c-update-modeline)) |
807 | |
808 | |
36920 | 809 ;; Support for Java |
810 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
811 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
812 (defvar java-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
813 "Syntax table used in java-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
814 (or java-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
815 (setq java-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
816 (funcall (c-lang-const c-make-mode-syntax-table java)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
817 |
36920 | 818 (defvar java-mode-abbrev-table nil |
819 "Abbreviation table used in java-mode buffers.") | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
820 (c-define-abbrev-table 'java-mode-abbrev-table |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
821 '(("else" "else" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
822 ("while" "while" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
823 ("catch" "catch" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
824 ("finally" "finally" c-electric-continued-statement 0))) |
36920 | 825 |
826 (defvar java-mode-map () | |
827 "Keymap used in java-mode buffers.") | |
828 (if java-mode-map | |
829 nil | |
830 (setq java-mode-map (c-make-inherited-keymap)) | |
831 ;; add bindings which are only useful for Java | |
832 ) | |
833 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
834 ;; Regexp trying to describe the beginning of a Java top-level |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
835 ;; definition. This is not used by CC Mode, nor is it maintained |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
836 ;; since it's practically impossible to write a regexp that reliably |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
837 ;; matches such a construct. Other tools are necessary. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
838 (defconst c-Java-defun-prompt-regexp |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
839 "^[ \t]*\\(\\(\\(public\\|protected\\|private\\|const\\|abstract\\|synchronized\\|final\\|static\\|threadsafe\\|transient\\|native\\|volatile\\)\\s-+\\)*\\(\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*[][_$.a-zA-Z0-9]+\\|[[a-zA-Z]\\)\\s-*\\)\\s-+\\)\\)?\\(\\([[a-zA-Z][][_$.a-zA-Z0-9]*\\s-+\\)\\s-*\\)?\\([_a-zA-Z][^][ \t:;.,{}()=]*\\|\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)\\)\\s-*\\(([^);{}]*)\\)?\\([] \t]*\\)\\(\\s-*\\<throws\\>\\s-*\\(\\([_$a-zA-Z][_$.a-zA-Z0-9]*\\)[, \t\n\r\f\v]*\\)+\\)?\\s-*") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
840 |
36920 | 841 (easy-menu-define c-java-menu java-mode-map "Java Mode Commands" |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
842 (cons "Java" (c-lang-const c-mode-menu java))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
843 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
844 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.java\\'" . java-mode)) |
36920 | 845 |
18720 | 846 ;;;###autoload |
847 (defun java-mode () | |
848 "Major mode for editing Java code. | |
20135
ecb78a6ccd8d
(objc-mode): Bind imenu-create-index-function
Karl Heuer <kwzh@gnu.org>
parents:
19808
diff
changeset
|
849 To submit a problem report, enter `\\[c-submit-bug-report]' from a |
18720 | 850 java-mode buffer. This automatically sets up a mail buffer with |
851 version information already added. You just need to add a description | |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
852 of the problem, including a reproducible test case, and send the |
18720 | 853 message. |
854 | |
855 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
856 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
857 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
858 initialization, then `java-mode-hook'. |
18720 | 859 |
860 Key bindings: | |
861 \\{java-mode-map}" | |
862 (interactive) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
863 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
864 (c-initialize-cc-mode t) |
18720 | 865 (set-syntax-table java-mode-syntax-table) |
866 (setq major-mode 'java-mode | |
867 mode-name "Java" | |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
868 local-abbrev-table java-mode-abbrev-table |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
869 abbrev-mode t) |
18720 | 870 (use-local-map java-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
871 (c-init-language-vars-for 'java-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
872 (c-common-init 'java-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
873 (easy-menu-add c-java-menu) |
26817 | 874 (cc-imenu-init cc-imenu-java-generic-expression) |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
875 (c-run-mode-hooks 'c-mode-common-hook 'java-mode-hook) |
18720 | 876 (c-update-modeline)) |
877 | |
878 | |
36920 | 879 ;; Support for CORBA's IDL language |
880 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
881 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
882 (defvar idl-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
883 "Syntax table used in idl-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
884 (or idl-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
885 (setq idl-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
886 (funcall (c-lang-const c-make-mode-syntax-table idl)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
887 |
36920 | 888 (defvar idl-mode-abbrev-table nil |
889 "Abbreviation table used in idl-mode buffers.") | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
890 (c-define-abbrev-table 'idl-mode-abbrev-table nil) |
36920 | 891 |
892 (defvar idl-mode-map () | |
893 "Keymap used in idl-mode buffers.") | |
894 (if idl-mode-map | |
895 nil | |
896 (setq idl-mode-map (c-make-inherited-keymap)) | |
897 ;; add bindings which are only useful for IDL | |
898 ) | |
899 | |
900 (easy-menu-define c-idl-menu idl-mode-map "IDL Mode Commands" | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
901 (cons "IDL" (c-lang-const c-mode-menu idl))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
902 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
903 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.idl\\'" . idl-mode)) |
36920 | 904 |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
905 ;;;###autoload |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
906 (defun idl-mode () |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
907 "Major mode for editing CORBA's IDL, PSDL and CIDL code. |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
908 To submit a problem report, enter `\\[c-submit-bug-report]' from an |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
909 idl-mode buffer. This automatically sets up a mail buffer with |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
910 version information already added. You just need to add a description |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
911 of the problem, including a reproducible test case, and send the |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
912 message. |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
913 |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
914 To see what version of CC Mode you are running, enter `\\[c-version]'. |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
915 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
916 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
917 initialization, then `idl-mode-hook'. |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
918 |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
919 Key bindings: |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
920 \\{idl-mode-map}" |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
921 (interactive) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
922 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
923 (c-initialize-cc-mode t) |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
924 (set-syntax-table idl-mode-syntax-table) |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
925 (setq major-mode 'idl-mode |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
926 mode-name "IDL" |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
927 local-abbrev-table idl-mode-abbrev-table) |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
928 (use-local-map idl-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
929 (c-init-language-vars-for 'idl-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
930 (c-common-init 'idl-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
931 (easy-menu-add c-idl-menu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
932 ;;(cc-imenu-init cc-imenu-idl-generic-expression) ;TODO |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
933 (c-run-mode-hooks 'c-mode-common-hook 'idl-mode-hook) |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
934 (c-update-modeline)) |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
935 |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
936 |
36920 | 937 ;; Support for Pike |
938 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
939 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
940 (defvar pike-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
941 "Syntax table used in pike-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
942 (or pike-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
943 (setq pike-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
944 (funcall (c-lang-const c-make-mode-syntax-table pike)))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
945 |
36920 | 946 (defvar pike-mode-abbrev-table nil |
947 "Abbreviation table used in pike-mode buffers.") | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
948 (c-define-abbrev-table 'pike-mode-abbrev-table |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
949 '(("else" "else" c-electric-continued-statement 0) |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
950 ("while" "while" c-electric-continued-statement 0))) |
36920 | 951 |
952 (defvar pike-mode-map () | |
953 "Keymap used in pike-mode buffers.") | |
954 (if pike-mode-map | |
955 nil | |
956 (setq pike-mode-map (c-make-inherited-keymap)) | |
957 ;; additional bindings | |
958 (define-key pike-mode-map "\C-c\C-e" 'c-macro-expand)) | |
959 | |
960 (easy-menu-define c-pike-menu pike-mode-map "Pike Mode Commands" | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
961 (cons "Pike" (c-lang-const c-mode-menu pike))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
962 |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
963 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.\\(u?lpc\\|pike\\|pmod\\(.in\\)?\\)\\'" . pike-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
964 ;;;###autoload (add-to-list 'interpreter-mode-alist '("pike" . pike-mode)) |
36920 | 965 |
24282 | 966 ;;;###autoload |
967 (defun pike-mode () | |
968 "Major mode for editing Pike code. | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
969 To submit a problem report, enter `\\[c-submit-bug-report]' from a |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
970 pike-mode buffer. This automatically sets up a mail buffer with |
24282 | 971 version information already added. You just need to add a description |
972 of the problem, including a reproducible test case, and send the | |
973 message. | |
974 | |
975 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
976 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
977 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
978 initialization, then `pike-mode-hook'. |
24282 | 979 |
980 Key bindings: | |
981 \\{pike-mode-map}" | |
982 (interactive) | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
983 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
984 (c-initialize-cc-mode t) |
24282 | 985 (set-syntax-table pike-mode-syntax-table) |
986 (setq major-mode 'pike-mode | |
987 mode-name "Pike" | |
36920 | 988 local-abbrev-table pike-mode-abbrev-table |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
989 abbrev-mode t) |
24282 | 990 (use-local-map pike-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
991 (c-init-language-vars-for 'pike-mode) |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
992 (c-common-init 'pike-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
993 (easy-menu-add c-pike-menu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
994 ;;(cc-imenu-init cc-imenu-pike-generic-expression) ;TODO |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
995 (c-run-mode-hooks 'c-mode-common-hook 'pike-mode-hook) |
24282 | 996 (c-update-modeline)) |
997 | |
998 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
999 ;; Support for awk. This is purposely disabled for older (X)Emacsen which |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1000 ;; don't support syntax-table properties. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1001 |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1002 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.awk\\'" . awk-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1003 ;;;###autoload (add-to-list 'interpreter-mode-alist '("awk" . awk-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1004 ;;;###autoload (add-to-list 'interpreter-mode-alist '("mawk" . awk-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1005 ;;;###autoload (add-to-list 'interpreter-mode-alist '("nawk" . awk-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1006 ;;;###autoload (add-to-list 'interpreter-mode-alist '("gawk" . awk-mode)) |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1007 |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1008 ;;; Autoload directives must be on the top level, so we construct an |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1009 ;;; autoload form instead. |
58747
e3dfd80003ea
(awk-mode autoload): Supply t meaning interactive function.
Richard M. Stallman <rms@gnu.org>
parents:
58198
diff
changeset
|
1010 ;;;###autoload (autoload 'awk-mode "cc-mode" "Major mode for editing AWK code." t) |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1011 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1012 (if (not (memq 'syntax-properties c-emacs-features)) |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1013 (autoload 'awk-mode "awk-mode" "Major mode for editing AWK code." t) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1014 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1015 (defvar awk-mode-abbrev-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1016 "Abbreviation table used in awk-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1017 (c-define-abbrev-table 'awk-mode-abbrev-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1018 '(("else" "else" c-electric-continued-statement 0) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1019 ("while" "while" c-electric-continued-statement 0))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1020 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1021 (defvar awk-mode-map () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1022 "Keymap used in awk-mode buffers.") |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1023 (if awk-mode-map |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1024 nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1025 (setq awk-mode-map (c-make-inherited-keymap)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1026 ;; add bindings which are only useful for awk. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1027 (define-key awk-mode-map "#" 'self-insert-command) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1028 (define-key awk-mode-map "/" 'self-insert-command) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1029 (define-key awk-mode-map "*" 'self-insert-command) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1030 (define-key awk-mode-map "\C-c\C-n" 'undefined) ; #if doesn't exist in awk. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1031 (define-key awk-mode-map "\C-c\C-p" 'undefined) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1032 (define-key awk-mode-map "\C-c\C-u" 'undefined) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1033 (define-key awk-mode-map "\M-a" 'undefined) ; c-awk-beginning-of-statement isn't yet implemented. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1034 (define-key awk-mode-map "\M-e" 'undefined) ; c-awk-end-of-statement isn't yet implemented. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1035 (define-key awk-mode-map "\C-\M-a" 'c-awk-beginning-of-defun) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1036 (define-key awk-mode-map "\C-\M-e" 'c-awk-end-of-defun)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1037 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1038 (easy-menu-define c-awk-menu awk-mode-map "AWK Mode Commands" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1039 (cons "AWK" (c-lang-const c-mode-menu awk))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1040 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1041 (defun awk-mode () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1042 "Major mode for editing AWK code. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1043 To submit a problem report, enter `\\[c-submit-bug-report]' from an |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1044 awk-mode buffer. This automatically sets up a mail buffer with version |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1045 information already added. You just need to add a description of the |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1046 problem, including a reproducible test case, and send the message. |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1047 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1048 To see what version of CC Mode you are running, enter `\\[c-version]'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1049 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1050 The hook `c-mode-common-hook' is run with no args at mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1051 initialization, then `awk-mode-hook'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1052 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1053 Key bindings: |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1054 \\{awk-mode-map}" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1055 (interactive) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1056 (require 'cc-awk) ; Added 2003/6/10. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1057 (kill-all-local-variables) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1058 (c-initialize-cc-mode t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1059 (set-syntax-table awk-mode-syntax-table) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1060 (setq major-mode 'awk-mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1061 mode-name "AWK" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1062 local-abbrev-table awk-mode-abbrev-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1063 abbrev-mode t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1064 (use-local-map awk-mode-map) |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
1065 (c-init-language-vars-for 'awk-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1066 (c-common-init 'awk-mode) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1067 ;; The rest of CC Mode does not (yet) use `font-lock-syntactic-keywords', |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1068 ;; so it's not set by `c-font-lock-init'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1069 (make-local-variable 'font-lock-syntactic-keywords) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1070 (setq font-lock-syntactic-keywords |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1071 '((c-awk-set-syntax-table-properties |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1072 0 (0) ; Everything on this line is a dummy. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1073 nil t))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1074 (c-awk-unstick-NL-prop) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1075 (add-hook 'before-change-functions 'c-awk-before-change nil t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1076 (add-hook 'after-change-functions 'c-awk-after-change nil t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1077 (c-save-buffer-state nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1078 (save-restriction |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1079 (widen) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1080 (c-awk-clear-NL-props (point-min) (point-max)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1081 (c-awk-after-change (point-min) (point-max) 0))) ; Set syntax-table props. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1082 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1083 ;; Prevent Xemacs's buffer-syntactic-context being used. See the comment |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1084 ;; in cc-engine.el, just before (defun c-fast-in-literal ... |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1085 (defalias 'c-in-literal 'c-slow-in-literal) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1086 |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
1087 (c-run-mode-hooks 'c-mode-common-hook 'awk-mode-hook) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1088 (c-update-modeline)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1089 ) ;; closes the (if (not (memq 'syntax-properties c-emacs-features)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1090 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1091 |
20146 | 1092 ;; bug reporting |
18720 | 1093 |
1094 (defconst c-mode-help-address | |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
1095 "bug-cc-mode@gnu.org" |
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
1096 "Address(es) for CC Mode bug reports.") |
18720 | 1097 |
1098 (defun c-version () | |
1099 "Echo the current version of CC Mode in the minibuffer." | |
1100 (interactive) | |
1101 (message "Using CC Mode version %s" c-version) | |
1102 (c-keep-region-active)) | |
1103 | |
36920 | 1104 (defvar c-prepare-bug-report-hooks nil) |
1105 | |
1106 ;; Dynamic variables used by reporter. | |
1107 (defvar reporter-prompt-for-summary-p) | |
1108 (defvar reporter-dont-compact-list) | |
1109 | |
18720 | 1110 (defun c-submit-bug-report () |
1111 "Submit via mail a bug report on CC Mode." | |
1112 (interactive) | |
20917
c6e2c4d9a305
(c-mode, c++-mode, objc-mode, java-mode): Set
Richard M. Stallman <rms@gnu.org>
parents:
20459
diff
changeset
|
1113 (require 'reporter) |
18720 | 1114 ;; load in reporter |
1115 (let ((reporter-prompt-for-summary-p t) | |
1116 (reporter-dont-compact-list '(c-offsets-alist)) | |
1117 (style c-indentation-style) | |
1118 (c-features c-emacs-features)) | |
1119 (and | |
1120 (if (y-or-n-p "Do you want to submit a report on CC Mode? ") | |
1121 t (message "") nil) | |
1122 (reporter-submit-bug-report | |
1123 c-mode-help-address | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1124 (concat "CC Mode " c-version " (" mode-name ")") |
26817 | 1125 (let ((vars (append |
1126 c-style-variables | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1127 '(c-buffer-is-cc-mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1128 c-tab-always-indent |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1129 c-syntactic-indentation |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1130 c-syntactic-indentation-in-macros |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1131 c-ignore-auto-fill |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1132 c-auto-align-backslashes |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1133 c-backspace-function |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1134 c-delete-function |
26817 | 1135 c-electric-pound-behavior |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1136 c-default-style |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1137 c-enable-xemacs-performance-kludge-p |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1138 c-old-style-variable-behavior |
26817 | 1139 defun-prompt-regexp |
1140 tab-width | |
1141 comment-column | |
1142 parse-sexp-ignore-comments | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1143 parse-sexp-lookup-properties |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1144 lookup-syntax-properties |
26817 | 1145 ;; A brain-damaged XEmacs only variable that, if |
1146 ;; set to nil can cause all kinds of chaos. | |
1147 signal-error-on-buffer-boundary | |
1148 ;; Variables that affect line breaking and comments. | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1149 auto-fill-mode |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
1150 auto-fill-function |
26817 | 1151 filladapt-mode |
1152 comment-multi-line | |
1153 comment-start-skip | |
1154 fill-prefix | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1155 fill-column |
26817 | 1156 paragraph-start |
1157 adaptive-fill-mode | |
1158 adaptive-fill-regexp) | |
1159 nil))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1160 (mapcar (lambda (var) (unless (boundp var) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1161 (setq vars (delq var vars)))) |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
1162 '(signal-error-on-buffer-boundary |
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
1163 filladapt-mode |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1164 defun-prompt-regexp |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1165 font-lock-mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1166 font-lock-maximum-decoration |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1167 parse-sexp-lookup-properties |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1168 lookup-syntax-properties)) |
26817 | 1169 vars) |
41592
b89d0c514129
(c-submit-bug-report): Make sure that the arguments to `insert' are strings.
Sam Steingold <sds@gnu.org>
parents:
37563
diff
changeset
|
1170 (lambda () |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
1171 (run-hooks 'c-prepare-bug-report-hooks) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1172 (insert (format "Buffer Style: %s\nc-emacs-features: %s\n" |
44728
7a3ac6c387fe
CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents:
42390
diff
changeset
|
1173 style c-features))))))) |
18720 | 1174 |
1175 | |
36920 | 1176 (cc-provide 'cc-mode) |
52401 | 1177 |
65812
2d888e7b750c
(c-basic-common-init): Remove calls to
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65661
diff
changeset
|
1178 ;; arch-tag: 7825e5c4-fd09-439f-a04d-4c13208ba3d7 |
18720 | 1179 ;;; cc-mode.el ends here |