Mercurial > emacs
annotate lisp/progmodes/cc-mode.el @ 107500:107889467c87
* Makefile.in (ELCFILES): Add cedet/semantic/imenu.el.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 13 Mar 2010 11:57:29 -0800 |
parents | a83491958b95 |
children | 10f6e25f2e26 5f43377338a0 |
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 |
74372 | 3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, |
106815 | 4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
75347 | 5 ;; Free Software Foundation, Inc. |
18720 | 6 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
7 ;; Authors: 2003- Alan Mackenzie |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
8 ;; 1998- Martin Stjernholm |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
9 ;; 1992-1999 Barry A. Warsaw |
101112
0685234e527d
Comment (minor header format fixes).
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
10 ;; 1987 Dave Detlefs |
0685234e527d
Comment (minor header format fixes).
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
11 ;; 1987 Stewart Clamen |
18720 | 12 ;; 1985 Richard M. Stallman |
24282 | 13 ;; Maintainer: bug-cc-mode@gnu.org |
18720 | 14 ;; Created: a long, long, time ago. adapted from the original c-mode.el |
15 ;; Keywords: c languages oop | |
16 | |
17 ;; This file is part of GNU Emacs. | |
18 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
19 ;; GNU Emacs is free software: you can redistribute it and/or modify |
18720 | 20 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
21 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
22 ;; (at your option) any later version. |
18720 | 23 |
24 ;; GNU Emacs is distributed in the hope that it will be useful, | |
25 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
26 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
27 ;; GNU General Public License for more details. | |
28 | |
29 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94293
diff
changeset
|
30 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
18720 | 31 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
32 ;;; Commentary: |
36920 | 33 |
34 ;; NOTE: Read the commentary below for the right way to submit bug reports! | |
35 ;; 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
|
36 ;; Note: The version string is in cc-defs. |
18720 | 37 |
38 ;; 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
|
39 ;; 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
|
40 ;; 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
|
41 ;; 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
|
42 ;; should be spelled exactly this way. |
24282 | 43 |
44 ;; 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
|
45 ;; 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
|
46 ;; 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
|
47 ;; 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
|
48 ;; 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
|
49 ;; contained in an accompanying texinfo manual. |
18720 | 50 |
51 ;; CC Mode's immediate ancestors were, c++-mode.el, cplus-md.el, and | |
52 ;; cplus-md1.el.. | |
53 | |
54 ;; To submit bug reports, type "C-c C-b". These will be sent to | |
24282 | 55 ;; bug-gnu-emacs@gnu.org (mirrored as the Usenet newsgroup |
56 ;; gnu.emacs.bug) as well as bug-cc-mode@gnu.org, which directly | |
57 ;; contacts the CC Mode maintainers. Questions can sent to | |
58 ;; help-gnu-emacs@gnu.org (mirrored as gnu.emacs.help) and/or | |
36920 | 59 ;; bug-cc-mode@gnu.org. Please do not send bugs or questions to our |
60 ;; personal accounts; we reserve the right to ignore such email! | |
18720 | 61 |
62 ;; Many, many thanks go out to all the folks on the beta test list. | |
63 ;; Without their patience, testing, insight, code contributions, and | |
64 ;; encouragement CC Mode would be a far inferior package. | |
65 | |
66 ;; You can get the latest version of CC Mode, including PostScript | |
67 ;; documentation and separate individual files from: | |
68 ;; | |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
69 ;; http://cc-mode.sourceforge.net/ |
18720 | 70 ;; |
24282 | 71 ;; You can join a moderated CC Mode announcement-only mailing list by |
72 ;; visiting | |
73 ;; | |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
74 ;; http://lists.sourceforge.net/mailman/listinfo/cc-mode-announce |
18720 | 75 |
76 ;;; Code: | |
77 | |
94998
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
78 ;; For Emacs < 22.2. |
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
79 (eval-and-compile |
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
80 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) |
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
81 |
26817 | 82 (eval-when-compile |
83 (let ((load-path | |
36920 | 84 (if (and (boundp 'byte-compile-dest-file) |
85 (stringp byte-compile-dest-file)) | |
86 (cons (file-name-directory byte-compile-dest-file) load-path) | |
26817 | 87 load-path))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
88 (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
|
89 |
36920 | 90 (cc-require 'cc-defs) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
91 (cc-require-when-compile 'cc-langs) |
36920 | 92 (cc-require 'cc-vars) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
93 (cc-require 'cc-engine) |
36920 | 94 (cc-require 'cc-styles) |
95 (cc-require 'cc-cmds) | |
96 (cc-require 'cc-align) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
97 (cc-require 'cc-menus) |
36920 | 98 |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
99 ;; Silence the compiler. |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
100 (cc-bytecomp-defvar adaptive-fill-first-line-regexp) ; Emacs |
36920 | 101 (cc-bytecomp-defun set-keymap-parents) ; XEmacs |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
102 (cc-bytecomp-defun run-mode-hooks) ; Emacs 21.1 |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
103 (cc-bytecomp-obsolete-fun make-local-hook) ; Marked obsolete in Emacs 21.1. |
36920 | 104 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
105 ;; 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
|
106 ;; font-lock. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
107 (cc-bytecomp-defvar font-lock-defaults) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
108 (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
|
109 |
36920 | 110 ;; Menu support for both XEmacs and Emacs. If you don't have easymenu |
111 ;; 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
|
112 (cc-external-require 'easymenu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
113 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
114 ;; Autoload directive for emacsen that doesn't have an older CC Mode |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
115 ;; version in the dist. |
106160
b27aeda9c1fd
2009-11-20 Tassilo Horn <tassilo@member.fsf.org>
Tassilo Horn <tassilo@member.fsf.org>
parents:
103966
diff
changeset
|
116 (autoload 'subword-mode "subword" |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
117 "Mode enabling subword movement and editing keys." t) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
118 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
119 ;; 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
|
120 ;; necessary until font locking is requested. |
71754
60304f6ae360
* progmodes/cc-awk.el, cc-defs.el, cc-fonts.el, cc-langs.el,
Alan Mackenzie <acm@muc.de>
parents:
69140
diff
changeset
|
121 ; (eval-after-load "font-lock" ; 2006-07-09: font-lock is now preloaded. |
60304f6ae360
* progmodes/cc-awk.el, cc-defs.el, cc-fonts.el, cc-langs.el,
Alan Mackenzie <acm@muc.de>
parents:
69140
diff
changeset
|
122 ; ' |
60304f6ae360
* progmodes/cc-awk.el, cc-defs.el, cc-fonts.el, cc-langs.el,
Alan Mackenzie <acm@muc.de>
parents:
69140
diff
changeset
|
123 (require 'cc-fonts) ;) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
124 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
125 ;; 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
|
126 ;; directives for the interface functions. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
127 (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
|
128 (autoload 'c-init-language-vars "cc-langs" nil nil 'macro) |
18720 | 129 |
130 | |
18847
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
131 ;; 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
|
132 ;; 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
|
133 ;; use: |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
134 ;; |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
135 ;; (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
|
136 ;; |
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
|
137 ;; 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
|
138 ;; |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
139 ;; (c-initialize-cc-mode t) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
140 ;; (c-init-language-vars some-mode) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
141 ;; (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
|
142 ;; |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
143 ;; 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
|
144 ;; 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
|
145 ;; 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
|
146 ;; '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
|
147 ;; `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
|
148 ;; 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
|
149 ;; |
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
150 ;; 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
|
151 ;; `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
|
152 ;; |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
153 ;; 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
|
154 ;; 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
|
155 ;; derived-mode-ex.el>. |
18847
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
156 |
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
|
157 (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
|
158 (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
|
159 |
52108
5a4fdabed57e
2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
51747
diff
changeset
|
160 (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
|
161 "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
|
162 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
|
163 `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
|
164 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
|
165 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
|
166 (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
|
167 ((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
|
168 ((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
|
169 ((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
|
170 ((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
|
171 ((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
|
172 ((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
|
173 (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
|
174 |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
175 ;;;###autoload |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
176 (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
|
177 "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
|
178 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
|
179 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
|
180 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
|
181 `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
|
182 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
|
183 |
19299
7cd7373cc021
(c-initialize-cc-mode): Set c-buffer-is-cc-mode to t.
Richard M. Stallman <rms@gnu.org>
parents:
19253
diff
changeset
|
184 (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
|
185 |
24282 | 186 (let ((initprop 'cc-mode-is-initialized) |
187 c-initialization-ok) | |
188 (unless (get 'c-initialize-cc-mode initprop) | |
189 (unwind-protect | |
190 (progn | |
26817 | 191 (put 'c-initialize-cc-mode initprop t) |
192 (c-initialize-builtin-style) | |
24282 | 193 (run-hooks 'c-initialization-hook) |
26817 | 194 ;; Fix obsolete variables. |
195 (if (boundp 'c-comment-continuation-stars) | |
87320
80e1a8076c36
* progmodes/cc-vars.el (defcustom-c-stylevar): Eval VAL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
85185
diff
changeset
|
196 (setq c-block-comment-prefix |
80e1a8076c36
* progmodes/cc-vars.el (defcustom-c-stylevar): Eval VAL.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
85185
diff
changeset
|
197 (symbol-value '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
|
198 (add-hook 'change-major-mode-hook 'c-leave-cc-mode-mode) |
24282 | 199 (setq c-initialization-ok t)) |
200 ;; 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
|
201 (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
|
202 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
203 (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
|
204 (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
|
205 |
dd7615d21a97
(c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18720
diff
changeset
|
206 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
207 ;;; Common routines. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
208 |
36920 | 209 (defvar c-mode-base-map () |
210 "Keymap shared by all CC Mode related modes.") | |
211 | |
212 (defun c-make-inherited-keymap () | |
213 (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
|
214 ;; 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
|
215 ;; 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
|
216 ;; while cc-bytecomp is active when one does M-x eval-buffer. |
36920 | 217 (cond |
96131
7ee547824da5
(c-make-inherited-keymap): Only use set-keymap-parents if set-keymap-parent
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95305
diff
changeset
|
218 ;; Emacs |
7ee547824da5
(c-make-inherited-keymap): Only use set-keymap-parents if set-keymap-parent
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95305
diff
changeset
|
219 ((cc-bytecomp-fboundp 'set-keymap-parent) |
7ee547824da5
(c-make-inherited-keymap): Only use set-keymap-parents if set-keymap-parent
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
95305
diff
changeset
|
220 (set-keymap-parent map c-mode-base-map)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
221 ;; XEmacs |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
222 ((cc-bytecomp-fboundp 'set-keymap-parents) |
36920 | 223 (set-keymap-parents map c-mode-base-map)) |
224 ;; incompatible | |
225 (t (error "CC Mode is incompatible with this version of Emacs"))) | |
226 map)) | |
227 | |
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
|
228 (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
|
229 ;; 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
|
230 ;; sixth argument for SYSTEM-FLAG in emacsen that support it |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
231 ;; (currently only Emacs >= 21.2). |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
232 (let ((table (or (symbol-value name) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
233 (progn (define-abbrev-table name nil) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
234 (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
|
235 (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
|
236 (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
|
237 (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
|
238 (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
|
239 (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
|
240 (setq defs (cdr defs))))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
241 (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
|
242 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
243 (defun c-bind-special-erase-keys () |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
244 ;; Only used in Emacs to bind C-c C-<delete> and C-c C-<backspace> |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
245 ;; to the proper keys depending on `normal-erase-is-backspace'. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
246 (if normal-erase-is-backspace |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
247 (progn |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
248 (define-key c-mode-base-map (kbd "C-c C-<delete>") |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
249 'c-hungry-delete-forward) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
250 (define-key c-mode-base-map (kbd "C-c C-<backspace>") |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
251 'c-hungry-delete-backwards)) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
252 (define-key c-mode-base-map (kbd "C-c C-<delete>") |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
253 'c-hungry-delete-backwards) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
254 (define-key c-mode-base-map (kbd "C-c C-<backspace>") |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
255 'c-hungry-delete-forward))) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
256 |
36920 | 257 (if c-mode-base-map |
258 nil | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
259 |
36920 | 260 (setq c-mode-base-map (make-sparse-keymap)) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
261 |
36920 | 262 ;; Separate M-BS from C-M-h. The former should remain |
263 ;; backward-kill-word. | |
264 (define-key c-mode-base-map [(control meta h)] 'c-mark-function) | |
265 (define-key c-mode-base-map "\e\C-q" 'c-indent-exp) | |
266 (substitute-key-definition 'backward-sentence | |
267 'c-beginning-of-statement | |
268 c-mode-base-map global-map) | |
269 (substitute-key-definition 'forward-sentence | |
270 'c-end-of-statement | |
271 c-mode-base-map global-map) | |
272 (substitute-key-definition 'indent-new-comment-line | |
273 'c-indent-new-comment-line | |
274 c-mode-base-map global-map) | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
275 (substitute-key-definition 'indent-for-tab-command |
84840
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78354
diff
changeset
|
276 ;; XXX Is this the right thing to do |
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78354
diff
changeset
|
277 ;; here? |
f4b3c97a692f
* progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78354
diff
changeset
|
278 'c-indent-line-or-region |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
279 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
|
280 (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
|
281 ;; 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
|
282 ;; 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
|
283 (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
|
284 '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
|
285 c-mode-base-map global-map)) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
286 |
36920 | 287 ;; RMS says don't make these the default. |
75027
9f636bd65206
Update CC Mode to version 5.31.4. The detailed changes are those
Alan Mackenzie <acm@muc.de>
parents:
74702
diff
changeset
|
288 ;; (April 2006): RMS has now approved these commands as defaults. |
96384
59d141ae8c74
cc-mode.el (c-mode-base-map): Don't bind C-M-[ae] to the CC Mode specific
Alan Mackenzie <acm@muc.de>
parents:
96131
diff
changeset
|
289 (unless (memq 'argumentative-bod-function c-emacs-features) |
59d141ae8c74
cc-mode.el (c-mode-base-map): Don't bind C-M-[ae] to the CC Mode specific
Alan Mackenzie <acm@muc.de>
parents:
96131
diff
changeset
|
290 (define-key c-mode-base-map "\e\C-a" 'c-beginning-of-defun) |
59d141ae8c74
cc-mode.el (c-mode-base-map): Don't bind C-M-[ae] to the CC Mode specific
Alan Mackenzie <acm@muc.de>
parents:
96131
diff
changeset
|
291 (define-key c-mode-base-map "\e\C-e" 'c-end-of-defun)) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
292 |
36920 | 293 (define-key c-mode-base-map "\C-c\C-n" 'c-forward-conditional) |
294 (define-key c-mode-base-map "\C-c\C-p" 'c-backward-conditional) | |
295 (define-key c-mode-base-map "\C-c\C-u" 'c-up-conditional) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
296 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
297 ;; 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
|
298 ;; `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
|
299 ;; 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
|
300 ;; 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
|
301 ;; `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
|
302 ;; 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
|
303 ;; `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
|
304 ;; do the actual filling work. |
36920 | 305 (substitute-key-definition 'fill-paragraph 'c-fill-paragraph |
306 c-mode-base-map global-map) | |
307 ;; In XEmacs the default fill function is called | |
308 ;; fill-paragraph-or-region. | |
309 (substitute-key-definition 'fill-paragraph-or-region 'c-fill-paragraph | |
310 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
|
311 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
312 ;; We bind the forward deletion key and (implicitly) C-d to |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
313 ;; `c-electric-delete-forward', and the backward deletion key to |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
314 ;; `c-electric-backspace'. The hungry variants are bound to the |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
315 ;; same keys but prefixed with C-c. This implies that C-c C-d is |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
316 ;; `c-hungry-delete-forward'. For consistency, we bind not only C-c |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
317 ;; <backspace> to `c-hungry-delete-backwards' but also |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
318 ;; C-c C-<backspace>, so that the Ctrl key can be held down during |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
319 ;; the whole sequence regardless of the direction. This in turn |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
320 ;; implies that we bind C-c C-<delete> to `c-hungry-delete-forward', |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
321 ;; for the same reason. |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
322 |
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
|
323 ;; 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
|
324 ;; 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
|
325 ;; 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
|
326 ;; 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
|
327 (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
|
328 (define-key c-mode-base-map "\177" 'c-electric-backspace) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
329 (define-key c-mode-base-map "\C-c\C-d" 'c-hungry-delete-forward) |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
330 (define-key c-mode-base-map [?\C-c ?\d] 'c-hungry-delete-backwards) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
331 (define-key c-mode-base-map [?\C-c ?\C-\d] 'c-hungry-delete-backwards) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
332 (define-key c-mode-base-map [?\C-c deletechar] 'c-hungry-delete-forward) ; C-c <delete> on a tty. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
333 (define-key c-mode-base-map [?\C-c (control deletechar)] ; C-c C-<delete> on a tty. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
334 'c-hungry-delete-forward) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
335 (when (boundp 'normal-erase-is-backspace) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
336 ;; The automatic C-d and DEL mapping functionality doesn't extend |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
337 ;; to special combinations like C-c C-<delete>, so we have to hook |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
338 ;; into the `normal-erase-is-backspace' system to bind it directly |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
339 ;; as appropriate. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
340 (add-hook 'normal-erase-is-backspace-hook 'c-bind-special-erase-keys) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
341 (c-bind-special-erase-keys)) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
342 |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
343 (when (fboundp 'delete-forward-p) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
344 ;; In XEmacs we fix the forward and backward deletion behavior by |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
345 ;; binding the keysyms for the [delete] and [backspace] keys |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
346 ;; directly, and use `delete-forward-p' to decide what [delete] |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
347 ;; should do. That's done in the XEmacs specific |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
348 ;; `c-electric-delete' and `c-hungry-delete' functions. |
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
|
349 (define-key c-mode-base-map [delete] 'c-electric-delete) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
350 (define-key c-mode-base-map [backspace] 'c-electric-backspace) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
351 (define-key c-mode-base-map (kbd "C-c <delete>") 'c-hungry-delete) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
352 (define-key c-mode-base-map (kbd "C-c C-<delete>") 'c-hungry-delete) |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
353 (define-key c-mode-base-map (kbd "C-c <backspace>") |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
354 'c-hungry-delete-backwards) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
355 (define-key c-mode-base-map (kbd "C-c C-<backspace>") |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
356 'c-hungry-delete-backwards)) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
357 |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
358 (define-key c-mode-base-map "#" 'c-electric-pound) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
359 (define-key c-mode-base-map "{" 'c-electric-brace) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
360 (define-key c-mode-base-map "}" 'c-electric-brace) |
36920 | 361 (define-key c-mode-base-map "/" 'c-electric-slash) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
362 (define-key c-mode-base-map "*" 'c-electric-star) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
363 (define-key c-mode-base-map ";" 'c-electric-semi&comma) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
364 (define-key c-mode-base-map "," 'c-electric-semi&comma) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
365 (define-key c-mode-base-map ":" 'c-electric-colon) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
366 (define-key c-mode-base-map "(" 'c-electric-paren) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
367 (define-key c-mode-base-map ")" 'c-electric-paren) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
368 |
36920 | 369 (define-key c-mode-base-map "\C-c\C-\\" 'c-backslash-region) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
370 (define-key c-mode-base-map "\C-c\C-a" 'c-toggle-auto-newline) |
36920 | 371 (define-key c-mode-base-map "\C-c\C-b" 'c-submit-bug-report) |
372 (define-key c-mode-base-map "\C-c\C-c" 'comment-region) | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
373 (define-key c-mode-base-map "\C-c\C-l" 'c-toggle-electric-state) |
36920 | 374 (define-key c-mode-base-map "\C-c\C-o" 'c-set-offset) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
375 (define-key c-mode-base-map "\C-c\C-q" 'c-indent-defun) |
36920 | 376 (define-key c-mode-base-map "\C-c\C-s" 'c-show-syntactic-information) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
377 ;; (define-key c-mode-base-map "\C-c\C-t" 'c-toggle-auto-hungry-state) Commented out by ACM, 2005-03-05. |
36920 | 378 (define-key c-mode-base-map "\C-c." 'c-set-style) |
379 ;; conflicts with OOBR | |
380 ;;(define-key c-mode-base-map "\C-c\C-v" 'c-version) | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
381 ;; (define-key c-mode-base-map "\C-c\C-y" 'c-toggle-hungry-state) Commented out by ACM, 2005-11-22. |
106160
b27aeda9c1fd
2009-11-20 Tassilo Horn <tassilo@member.fsf.org>
Tassilo Horn <tassilo@member.fsf.org>
parents:
103966
diff
changeset
|
382 (define-key c-mode-base-map "\C-c\C-w" 'subword-mode) |
36920 | 383 ) |
384 | |
385 ;; We don't require the outline package, but we configure it a bit anyway. | |
386 (cc-bytecomp-defvar outline-level) | |
387 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
388 (defun c-mode-menu (modestr) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
389 "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
|
390 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
|
391 instead of \"C\". |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
392 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
393 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
|
394 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
|
395 (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
|
396 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
397 ;; 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
|
398 ;; 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
|
399 ;; 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
|
400 ;; 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
|
401 (defalias 'c-populate-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
402 (cc-eval-when-compile |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
403 (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
|
404 (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
|
405 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
406 ;; CAUTION: Try to avoid installing things on |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
407 ;; `before-change-functions'. The macro `combine-after-change-calls' |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
408 ;; is used and it doesn't work if there are things on that hook. That |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
409 ;; can cause font lock functions to run in inconvenient places during |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
410 ;; temporary changes in some font lock support modes, causing extra |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
411 ;; unnecessary work and font lock glitches due to interactions between |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
412 ;; various text properties. |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
413 ;; |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
414 ;; (2007-02-12): The macro `combine-after-change-calls' ISN'T used any |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
415 ;; more. |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
416 |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
417 (defun c-unfind-enclosing-token (pos) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
418 ;; If POS is wholly inside a token, remove that id from |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
419 ;; `c-found-types', should it be present. Return t if we were in an |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
420 ;; id, else nil. |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
421 (save-excursion |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
422 (let ((tok-beg (progn (goto-char pos) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
423 (and (c-beginning-of-current-token) (point)))) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
424 (tok-end (progn (goto-char pos) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
425 (and (c-end-of-current-token) (point))))) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
426 (when (and tok-beg tok-end) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
427 (c-unfind-type (buffer-substring-no-properties tok-beg tok-end)) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
428 t)))) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
429 |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
430 (defun c-unfind-coalesced-tokens (beg end) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
431 ;; unless the non-empty region (beg end) is entirely WS and there's at |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
432 ;; least one character of WS just before or after this region, remove |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
433 ;; the tokens which touch the region from `c-found-types' should they |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
434 ;; be present. |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
435 (or (c-partial-ws-p beg end) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
436 (save-excursion |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
437 (progn |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
438 (goto-char beg) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
439 (or (eq beg (point-min)) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
440 (c-skip-ws-backward (1- beg)) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
441 (/= (point) beg) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
442 (= (c-backward-token-2) 1) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
443 (c-unfind-type (buffer-substring-no-properties |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
444 (point) beg))) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
445 (goto-char end) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
446 (or (eq end (point-max)) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
447 (c-skip-ws-forward (1+ end)) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
448 (/= (point) end) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
449 (progn (forward-char) (c-end-of-current-token) nil) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
450 (c-unfind-type (buffer-substring-no-properties |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
451 end (point)))))))) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
452 |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
453 ;; c-maybe-stale-found-type records a place near the region being |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
454 ;; changed where an element of `found-types' might become stale. It |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
455 ;; is set in c-before-change and is either nil, or has the form: |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
456 ;; |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
457 ;; (c-decl-id-start "foo" 97 107 " (* ooka) " "o"), where |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
458 ;; |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
459 ;; o - `c-decl-id-start' is the c-type text property value at buffer |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
460 ;; pos 96. |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
461 ;; |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
462 ;; o - 97 107 is the region potentially containing the stale type - |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
463 ;; this is delimited by a non-nil c-type text property at 96 and |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
464 ;; either another one or a ";", "{", or "}" at 107. |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
465 ;; |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
466 ;; o - " (* ooka) " is the (before change) buffer portion containing |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
467 ;; the suspect type (here "ooka"). |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
468 ;; |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
469 ;; o - "o" is the buffer contents which is about to be deleted. This |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
470 ;; would be the empty string for an insertion. |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
471 (defvar c-maybe-stale-found-type nil) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
472 (make-variable-buffer-local 'c-maybe-stale-found-type) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
473 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
474 (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
|
475 "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
|
476 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
|
477 packages that embed CC Mode. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
478 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
479 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
|
480 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
|
481 same format as `c-default-style'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
482 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
483 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
|
484 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
|
485 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
|
486 |
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
|
487 (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
|
488 |
36920 | 489 ;; these variables should always be buffer local; they do not affect |
490 ;; indentation style. | |
491 (make-local-variable 'parse-sexp-ignore-comments) | |
492 (make-local-variable 'indent-line-function) | |
493 (make-local-variable 'indent-region-function) | |
494 (make-local-variable 'normal-auto-fill-function) | |
495 (make-local-variable 'comment-start) | |
496 (make-local-variable 'comment-end) | |
497 (make-local-variable 'comment-start-skip) | |
498 (make-local-variable 'comment-multi-line) | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
499 (make-local-variable 'comment-line-break-function) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
500 (make-local-variable 'paragraph-start) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
501 (make-local-variable 'paragraph-separate) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
502 (make-local-variable 'paragraph-ignore-fill-prefix) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
503 (make-local-variable 'adaptive-fill-mode) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
504 (make-local-variable 'adaptive-fill-regexp) |
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
|
505 |
36920 | 506 ;; 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
|
507 (setq parse-sexp-ignore-comments t |
36920 | 508 indent-line-function 'c-indent-line |
509 indent-region-function 'c-indent-region | |
510 normal-auto-fill-function 'c-do-auto-fill | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
511 comment-multi-line t |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
512 comment-line-break-function 'c-indent-new-comment-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
|
513 |
49654
b025ca405045
(c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents:
49496
diff
changeset
|
514 ;; 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
|
515 ;; 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
|
516 ;; 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
|
517 (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
|
518 (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
|
519 |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
520 ;; Initialise the cache of brace pairs, and opening braces/brackets/parens. |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
521 (c-state-cache-init) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
522 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
523 (when (or c-recognize-<>-arglists |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
524 (c-major-mode-is 'awk-mode) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
525 (c-major-mode-is '(c-mode c++-mode objc-mode))) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
526 ;; We'll use the syntax-table text property to change the syntax |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
527 ;; of some chars for this language, so do the necessary setup for |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
528 ;; that. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
529 ;; |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
530 ;; Note to other package developers: It's ok to turn this on in CC |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
531 ;; Mode buffers when CC Mode doesn't, but it's not ok to turn it |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
532 ;; off if CC Mode has turned it on. |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
533 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
534 ;; Emacs. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
535 (when (boundp 'parse-sexp-lookup-properties) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
536 (make-local-variable 'parse-sexp-lookup-properties) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
537 (setq parse-sexp-lookup-properties t)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
538 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
539 ;; Same as above for XEmacs. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
540 (when (boundp 'lookup-syntax-properties) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
541 (make-local-variable 'lookup-syntax-properties) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
542 (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
|
543 |
106522
0a0832d4518d
Fix bug#5091: indentation in c++-mode.
Alan Mackenzie <acm@muc.de>
parents:
106428
diff
changeset
|
544 ;; Use this in Emacs 21+ to avoid meddling with the rear-nonsticky |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
545 ;; property on each character. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
546 (when (boundp 'text-property-default-nonsticky) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
547 (make-local-variable 'text-property-default-nonsticky) |
106522
0a0832d4518d
Fix bug#5091: indentation in c++-mode.
Alan Mackenzie <acm@muc.de>
parents:
106428
diff
changeset
|
548 (mapc (lambda (tprop) |
0a0832d4518d
Fix bug#5091: indentation in c++-mode.
Alan Mackenzie <acm@muc.de>
parents:
106428
diff
changeset
|
549 (unless (assq tprop text-property-default-nonsticky) |
0a0832d4518d
Fix bug#5091: indentation in c++-mode.
Alan Mackenzie <acm@muc.de>
parents:
106428
diff
changeset
|
550 (setq text-property-default-nonsticky |
0a0832d4518d
Fix bug#5091: indentation in c++-mode.
Alan Mackenzie <acm@muc.de>
parents:
106428
diff
changeset
|
551 (cons `(,tprop . t) text-property-default-nonsticky)))) |
0a0832d4518d
Fix bug#5091: indentation in c++-mode.
Alan Mackenzie <acm@muc.de>
parents:
106428
diff
changeset
|
552 '(syntax-table category c-type))) |
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
|
553 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
554 ;; 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
|
555 ;; heuristic that open parens in column 0 are defun starters. Since |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
556 ;; we have c-state-cache, that heuristic isn't useful and only causes |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
557 ;; trouble, so turn it off. |
74702
2d3815650232
(c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents:
74372
diff
changeset
|
558 ;; 2006/12/17: This facility is somewhat confused, and doesn't really seem |
2d3815650232
(c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents:
74372
diff
changeset
|
559 ;; helpful. Comment it out for now. |
2d3815650232
(c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents:
74372
diff
changeset
|
560 ;; (when (memq 'col-0-paren c-emacs-features) |
2d3815650232
(c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents:
74372
diff
changeset
|
561 ;; (make-local-variable 'open-paren-in-column-0-is-defun-start) |
2d3815650232
(c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents:
74372
diff
changeset
|
562 ;; (setq open-paren-in-column-0-is-defun-start nil)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
563 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
564 (c-clear-found-types) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
565 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
566 ;; 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
|
567 (let ((style (if (stringp default-style) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
568 default-style |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
569 (or (cdr (assq mode default-style)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
570 (cdr (assq 'other default-style)) |
36920 | 571 "gnu")))) |
572 ;; Override style variables if `c-old-style-variable-behavior' is | |
573 ;; set. Also override if we are using global style variables, | |
574 ;; have already initialized a style once, and are switching to a | |
575 ;; different style. (It's doubtful whether this is desirable, but | |
576 ;; the whole situation with nonlocal style variables is a bit | |
577 ;; awkward. It's at least the most compatible way with the old | |
578 ;; style init procedure.) | |
579 (c-set-style style (not (or c-old-style-variable-behavior | |
580 (and (not c-style-variables-are-local-p) | |
581 c-indentation-style | |
582 (not (string-equal c-indentation-style | |
583 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
|
584 (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
|
585 |
36920 | 586 ;; we have to do something special for c-offsets-alist so that the |
587 ;; buffer local value has its own alist structure. | |
588 (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
|
589 |
36920 | 590 ;; setup the comment indent variable in a Emacs version portable way |
591 (make-local-variable 'comment-indent-function) | |
592 (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
|
593 |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
594 ;; ;; Put submode indicators onto minor-mode-alist, but only once. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
595 ;; (or (assq 'c-submode-indicators minor-mode-alist) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
596 ;; (setq minor-mode-alist |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
597 ;; (cons '(c-submode-indicators c-submode-indicators) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
598 ;; minor-mode-alist))) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
599 (c-update-modeline) |
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
|
600 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
601 ;; 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
|
602 ;; don't become invalid due to buffer changes. |
76399
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
603 (make-local-hook 'before-change-functions) |
ec0b1fedc030
(c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents:
75347
diff
changeset
|
604 (add-hook 'before-change-functions 'c-before-change nil t) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
605 (make-local-hook 'after-change-functions) |
80459
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
606 (add-hook 'after-change-functions 'c-after-change nil t) |
80470
3f1db83024f5
(c-basic-common-init): Don't set
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
80459
diff
changeset
|
607 (set (make-local-variable 'font-lock-extend-after-change-region-function) |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
608 'c-extend-after-change-region)) ; Currently (2009-05) used by all |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
609 ; lanaguages with #define (C, C++,; ObjC), and by AWK. |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
610 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
611 (defun c-setup-doc-comment-style () |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
612 "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
|
613 (when (and (featurep 'font-lock) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
614 (symbol-value 'font-lock-mode)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
615 ;; 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
|
616 (font-lock-mode 0) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
617 (font-lock-mode 1))) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
618 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
619 (defun c-common-init (&optional mode) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
620 "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
|
621 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
|
622 `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
|
623 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
|
624 Mode to operate correctly. |
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 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
|
627 `c-basic-common-init' for details. It's only optional to be |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
628 compatible with old code; callers should always specify it." |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
629 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
630 (unless mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
631 ;; 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
|
632 ;; 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
|
633 (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
|
634 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
635 (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
|
636 (when mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
637 ;; 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
|
638 (c-font-lock-init)) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
639 |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
640 ;; Starting a mode is a sort of "change". So call the change functions... |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
641 (save-restriction |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
642 (widen) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
643 (save-excursion |
107086
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
644 (if c-get-state-before-change-functions |
107228
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
645 (mapc (lambda (fn) |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
646 (funcall fn (point-min) (point-max))) |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
647 c-get-state-before-change-functions)) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
648 (if c-before-font-lock-function |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
649 (funcall c-before-font-lock-function (point-min) (point-max) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
650 (- (point-max) (point-min)))))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
651 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
652 (make-local-variable 'outline-regexp) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
653 (make-local-variable 'outline-level) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
654 (setq outline-regexp "[^#\n\^M]" |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
655 outline-level 'c-outline-level) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
656 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
657 (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
|
658 (when rfn |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
659 (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
|
660 (and (cdr rfn) |
a88429b12685
(c-common-init): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
58747
diff
changeset
|
661 (setq require-final-newline mode-require-final-newline))))) |
36920 | 662 |
97140
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
663 (defun c-before-hack-hook () |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
664 "Set the CC Mode style and \"offsets\" when in the buffer's local variables. |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
665 They are set only when, respectively, the pseudo variables |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
666 `c-file-style' and `c-file-offsets' are present in the list. |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
667 |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
668 This function is called from the hook `before-hack-local-variables-hook'." |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
669 (when c-buffer-is-cc-mode |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
670 (let ((stile (cdr (assq 'c-file-style file-local-variables-alist))) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
671 (offsets (cdr (assq 'c-file-offsets file-local-variables-alist)))) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
672 (when stile |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
673 (or (stringp stile) (error "c-file-style is not a string")) |
106428 | 674 (c-set-style stile)) |
97140
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
675 (when offsets |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
676 (mapc |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
677 (lambda (langentry) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
678 (let ((langelem (car langentry)) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
679 (offset (cdr langentry))) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
680 (c-set-offset langelem offset))) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
681 offsets))))) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
682 |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
683 (defun c-remove-any-local-eval-or-mode-variables () |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
684 ;; If the buffer specifies `mode' or `eval' in its File Local Variable list |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
685 ;; or on the first line, remove all occurrences. See |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
686 ;; `c-postprocess-file-styles' for justification. There is no need to save |
78027
5131a632194a
(c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents:
77612
diff
changeset
|
687 ;; point here, or even bother too much about the buffer contents. However, |
5131a632194a
(c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents:
77612
diff
changeset
|
688 ;; DON'T mess up the kill-ring. |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
689 ;; |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
690 ;; Most of the code here is derived from Emacs 21.3's `hack-local-variables' |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
691 ;; in files.el. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
692 (goto-char (point-max)) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
693 (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
694 (let (lv-point (prefix "") (suffix "")) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
695 (when (let ((case-fold-search t)) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
696 (search-forward "Local Variables:" nil t)) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
697 (setq lv-point (point)) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
698 ;; The prefix is what comes before "local variables:" in its line. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
699 ;; The suffix is what comes after "local variables:" in its line. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
700 (skip-chars-forward " \t") |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
701 (or (eolp) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
702 (setq suffix (buffer-substring (point) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
703 (progn (end-of-line) (point))))) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
704 (goto-char (match-beginning 0)) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
705 (or (bolp) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
706 (setq prefix |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
707 (buffer-substring (point) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
708 (progn (beginning-of-line) (point))))) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
709 |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
710 (while (search-forward-regexp |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
711 (concat "^[ \t]*" |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
712 (regexp-quote prefix) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
713 "\\(mode\\|eval\\):.*" |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
714 (regexp-quote suffix) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
715 "$") |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
716 nil t) |
78027
5131a632194a
(c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents:
77612
diff
changeset
|
717 (forward-line 0) |
5131a632194a
(c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents:
77612
diff
changeset
|
718 (delete-region (point) (progn (forward-line) (point))))) |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
719 |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
720 ;; Delete the first line, if we've got one, in case it contains a mode spec. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
721 (unless (and lv-point |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
722 (progn (goto-char lv-point) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
723 (forward-line 0) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
724 (bobp))) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
725 (goto-char (point-min)) |
78027
5131a632194a
(c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents:
77612
diff
changeset
|
726 (unless (eobp) |
5131a632194a
(c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents:
77612
diff
changeset
|
727 (delete-region (point) (progn (forward-line) (point))))))) |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
728 |
36920 | 729 (defun c-postprocess-file-styles () |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
730 "Function that post processes relevant file local variables in CC Mode. |
36920 | 731 Currently, this function simply applies any style and offset settings |
732 found in the file's Local Variable list. It first applies any style | |
733 setting found in `c-file-style', then it applies any offset settings | |
734 it finds in `c-file-offsets'. | |
735 | |
736 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
|
737 |
36920 | 738 ;; 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
|
739 (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
|
740 (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
|
741 (c-make-styles-buffer-local t)) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
742 (when c-file-style |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
743 (or (stringp c-file-style) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
744 (error "c-file-style is not a string")) |
106428 | 745 (c-set-style c-file-style)) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
746 |
45632
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
747 (and c-file-offsets |
85185 | 748 (mapc |
45632
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
749 (lambda (langentry) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
750 (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
|
751 (offset (cdr langentry))) |
9d60ac21968f
(c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents:
44728
diff
changeset
|
752 (c-set-offset langelem offset))) |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
753 c-file-offsets)) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
754 ;; Problem: The file local variable block might have explicitly set a |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
755 ;; style variable. The `c-set-style' or `mapcar' call might have |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
756 ;; overwritten this. So we run `hack-local-variables' again to remedy |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
757 ;; this. There are no guarantees this will work properly, particularly as |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
758 ;; we have no control over what the other hook functions on |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
759 ;; `hack-local-variables-hook' would have done. We now (2006/2/1) remove |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
760 ;; any `eval' or `mode' expressions before we evaluate again (see below). |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
761 ;; ACM, 2005/11/2. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
762 ;; |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
763 ;; Problem (bug reported by Gustav Broberg): if one of the variables is |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
764 ;; `mode', this will invoke c-mode (etc.) again, setting up the style etc. |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
765 ;; We prevent this by temporarily removing `mode' from the Local Variables |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
766 ;; section. |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
767 (if (or c-file-style c-file-offsets) |
75027
9f636bd65206
Update CC Mode to version 5.31.4. The detailed changes are those
Alan Mackenzie <acm@muc.de>
parents:
74702
diff
changeset
|
768 (let ((hack-local-variables-hook nil) (inhibit-read-only t)) |
9f636bd65206
Update CC Mode to version 5.31.4. The detailed changes are those
Alan Mackenzie <acm@muc.de>
parents:
74702
diff
changeset
|
769 (c-tentative-buffer-changes |
69140
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
770 (c-remove-any-local-eval-or-mode-variables) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
771 (hack-local-variables)) |
3d8b060d10fb
cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents:
68773
diff
changeset
|
772 nil)))) |
36920 | 773 |
97140
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
774 (if (boundp 'before-hack-local-variables-hook) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
775 (add-hook 'before-hack-local-variables-hook 'c-before-hack-hook) |
9637a590d441
(c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents:
96966
diff
changeset
|
776 (add-hook 'hack-local-variables-hook 'c-postprocess-file-styles)) |
36920 | 777 |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
778 (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
|
779 ;; Emacs 21.1 has introduced a system with delayed mode hooks that |
107086
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
780 ;; requires the use of the new function `run-mode-hooks'. |
62641
27b53b1903b6
2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents:
62046
diff
changeset
|
781 (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
|
782 `(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
|
783 `(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
|
784 |
36920 | 785 |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
786 ;;; Change hooks, linking with Font Lock. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
787 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
788 ;; Buffer local variables defining the region to be fontified by a font lock |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
789 ;; after-change function. They are set in c-after-change to |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
790 ;; after-change-function's BEG and END, and may be modified by a |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
791 ;; `c-before-font-lock-function'. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
792 (defvar c-new-BEG 0) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
793 (make-variable-buffer-local 'c-new-BEG) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
794 (defvar c-new-END 0) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
795 (make-variable-buffer-local 'c-new-END) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
796 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
797 ;; Buffer local variables recording Beginning/End-of-Macro position before a |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
798 ;; change, when a macro straddles, respectively, the BEG or END (or both) of |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
799 ;; the change region. Otherwise these have the values BEG/END. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
800 (defvar c-old-BOM 0) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
801 (make-variable-buffer-local 'c-old-BOM) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
802 (defvar c-old-EOM 0) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
803 (make-variable-buffer-local 'c-old-EOM) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
804 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
805 (defun c-extend-region-for-CPP (beg end) |
80170
3e4f6980296d
(c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents:
80160
diff
changeset
|
806 ;; Set c-old-BOM or c-old-EOM respectively to BEG, END, each extended to the |
3e4f6980296d
(c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents:
80160
diff
changeset
|
807 ;; beginning/end of any preprocessor construct they may be in. |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
808 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
809 ;; Point is undefined both before and after this function call; the buffer |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
810 ;; has already been widened, and match-data saved. The return value is |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
811 ;; meaningless. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
812 ;; |
107086
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
813 ;; This function is in the C/C++/ObjC values of |
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
814 ;; `c-get-state-before-change-functions' and is called exclusively as a |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
815 ;; before change function. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
816 (goto-char beg) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
817 (c-beginning-of-macro) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
818 (setq c-old-BOM (point)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
819 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
820 (goto-char end) |
80170
3e4f6980296d
(c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents:
80160
diff
changeset
|
821 (if (c-beginning-of-macro) |
3e4f6980296d
(c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents:
80160
diff
changeset
|
822 (c-end-of-macro)) |
3e4f6980296d
(c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents:
80160
diff
changeset
|
823 (setq c-old-EOM (point))) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
824 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
825 (defun c-neutralize-CPP-line (beg end) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
826 ;; BEG and END bound a region, typically a preprocessor line. Put a |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
827 ;; "punctuation" syntax-table property on syntactically obtrusive |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
828 ;; characters, ones which would interact syntactically with stuff outside |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
829 ;; this region. |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
830 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
831 ;; These are unmatched string delimiters, or unmatched |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
832 ;; parens/brackets/braces. An unclosed comment is regarded as valid, NOT |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
833 ;; obtrusive. |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
834 (save-excursion |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
835 (let (s) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
836 (while |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
837 (progn |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
838 (setq s (parse-partial-sexp beg end -1)) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
839 (cond |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
840 ((< (nth 0 s) 0) ; found an unmated ),},] |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
841 (c-put-char-property (1- (point)) 'syntax-table '(1)) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
842 t) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
843 ((nth 3 s) ; In a string |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
844 (c-put-char-property (nth 8 s) 'syntax-table '(1)) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
845 t) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
846 ((> (nth 0 s) 0) ; In a (,{,[ |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
847 (c-put-char-property (nth 1 s) 'syntax-table '(1)) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
848 t) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
849 (t nil))))))) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
850 |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
851 (defun c-neutralize-syntax-in-and-mark-CPP (begg endd old-len) |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
852 ;; (i) Extend the font lock region to cover all changed preprocessor |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
853 ;; regions; it does this by setting the variables `c-new-BEG' and |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
854 ;; `c-new-END' to the new boundaries. |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
855 ;; |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
856 ;; (ii) "Neutralize" every preprocessor line wholly or partially in the |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
857 ;; extended changed region. "Restore" lines which were CPP lines before the |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
858 ;; change and are no longer so; these can be located from the Buffer local |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
859 ;; variables `c-old-BOM' and `c-old-EOM'. |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
860 ;; |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
861 ;; (iii) Mark every CPP construct by placing a `category' property value |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
862 ;; `c-cpp-delimiter' at its start and end. The marked characters are the |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
863 ;; opening # and usually the terminating EOL, but sometimes the character |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
864 ;; before a comment/string delimiter. |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
865 ;; |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
866 ;; That is, set syntax-table properties on characters that would otherwise |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
867 ;; interact syntactically with those outside the CPP line(s). |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
868 ;; |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
869 ;; This function is called from an after-change function, BEGG ENDD and |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
870 ;; OLD-LEN being the standard parameters. It prepares the buffer for font |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
871 ;; locking, hence must get called before `font-lock-after-change-function'. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
872 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
873 ;; Point is undefined both before and after this function call, the buffer |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
874 ;; has been widened, and match-data saved. The return value is ignored. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
875 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
876 ;; This function is the C/C++/ObjC value of `c-before-font-lock-function'. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
877 ;; |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
878 ;; Note: SPEED _MATTERS_ IN THIS FUNCTION!!! |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
879 ;; |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
880 ;; This function might make hidden buffer changes. |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
881 (c-save-buffer-state (limits) |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
882 ;; First determine the region, (c-new-BEG c-new-END), which will get font |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
883 ;; locked. It might need "neutralizing". This region may not start |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
884 ;; inside a string, comment, or macro. |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
885 (goto-char c-old-BOM) ; already set to old start of macro or begg. |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
886 (setq c-new-BEG |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
887 (if (setq limits (c-state-literal-at (point))) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
888 (cdr limits) ; go forward out of any string or comment. |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
889 (point))) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
890 |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
891 (goto-char endd) |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
892 (if (setq limits (c-state-literal-at (point))) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
893 (goto-char (car limits))) ; go backward out of any string or comment. |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
894 (if (c-beginning-of-macro) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
895 (c-end-of-macro)) |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
896 (setq c-new-END (max (+ (- c-old-EOM old-len) (- endd begg)) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
897 (point))) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
898 |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
899 ;; Clear all old relevant properties. |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
900 (c-clear-char-property-with-value c-new-BEG c-new-END 'syntax-table '(1)) |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
901 (c-clear-char-property-with-value c-new-BEG c-new-END 'category 'c-cpp-delimiter) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
902 ;; FIXME!!! What about the "<" and ">" category properties? 2009-11-16 |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
903 |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
904 ;; Add needed properties to each CPP construct in the region. |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
905 (goto-char c-new-BEG) |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
906 (let ((pps-position c-new-BEG) pps-state mbeg) |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
907 (while (and (< (point) c-new-END) |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
908 (search-forward-regexp c-anchored-cpp-prefix c-new-END t)) |
80587
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
909 ;; If we've found a "#" inside a string/comment, ignore it. |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
910 (setq pps-state |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
911 (parse-partial-sexp pps-position (point) nil nil pps-state) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
912 pps-position (point)) |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
913 (unless (or (nth 3 pps-state) ; in a string? |
52c723879a4b
* progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents:
80470
diff
changeset
|
914 (nth 4 pps-state)) ; in a comment? |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
915 (goto-char (match-beginning 0)) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
916 (setq mbeg (point)) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
917 (if (> (c-syntactic-end-of-macro) mbeg) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
918 (progn |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
919 (c-neutralize-CPP-line mbeg (point)) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
920 (c-set-cpp-delimiters mbeg (point)) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
921 ;(setq pps-position (point)) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
922 ) |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
923 (forward-line)) ; no infinite loop with, e.g., "#//" |
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
924 ))))) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
925 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
926 (defun c-before-change (beg end) |
107086
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
927 ;; Function to be put on `before-change-functions'. Primarily, this calls |
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
928 ;; the language dependent `c-get-state-before-change-functions'. It is |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
929 ;; otherwise used only to remove stale entries from the `c-found-types' |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
930 ;; cache, and to record entries which a `c-after-change' function might |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
931 ;; confirm as stale. |
106395
f2b36fb84bf7
Enhance `c-parse-state' to run efficiently in "brace desserts".
Alan Mackenzie <acm@muc.de>
parents:
106160
diff
changeset
|
932 ;; |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
933 ;; Note that this function must be FAST rather than accurate. Note |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
934 ;; also that it only has any effect when font locking is enabled. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
935 ;; We exploit this by checking for font-lock-*-face instead of doing |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
936 ;; rigourous syntactic analysis. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
937 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
938 ;; If either change boundary is wholly inside an identifier, delete |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
939 ;; it/them from the cache. Don't worry about being inside a string |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
940 ;; or a comment - "wrongly" removing a symbol from `c-found-types' |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
941 ;; isn't critical. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
942 (setq c-maybe-stale-found-type nil) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
943 (save-restriction |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
944 (save-match-data |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
945 (widen) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
946 (save-excursion |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
947 ;; Are we inserting/deleting stuff in the middle of an identifier? |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
948 (c-unfind-enclosing-token beg) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
949 (c-unfind-enclosing-token end) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
950 ;; Are we coalescing two tokens together, e.g. "fo o" -> "foo"? |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
951 (when (< beg end) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
952 (c-unfind-coalesced-tokens beg end)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
953 ;; Are we (potentially) disrupting the syntactic context which |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
954 ;; makes a type a type? E.g. by inserting stuff after "foo" in |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
955 ;; "foo bar;", or before "foo" in "typedef foo *bar;"? |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
956 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
957 ;; We search for appropriate c-type properties "near" the change. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
958 ;; First, find an appropriate boundary for this property search. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
959 (let (lim |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
960 type type-pos |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
961 marked-id term-pos |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
962 (end1 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
963 (or (and (eq (get-text-property end 'face) 'font-lock-comment-face) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
964 (previous-single-property-change end 'face)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
965 end))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
966 (when (>= end1 beg) ; Don't hassle about changes entirely in comments. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
967 ;; Find a limit for the search for a `c-type' property |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
968 (while |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
969 (and (/= (skip-chars-backward "^;{}") 0) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
970 (> (point) (point-min)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
971 (memq (c-get-char-property (1- (point)) 'face) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
972 '(font-lock-comment-face font-lock-string-face)))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
973 (setq lim (max (point-min) (1- (point)))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
974 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
975 ;; Look for the latest `c-type' property before end1 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
976 (when (and (> end1 (point-min)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
977 (setq type-pos |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
978 (if (get-text-property (1- end1) 'c-type) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
979 end1 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
980 (previous-single-property-change end1 'c-type nil lim)))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
981 (setq type (get-text-property (max (1- type-pos) lim) 'c-type)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
982 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
983 (when (memq type '(c-decl-id-start c-decl-type-start)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
984 ;; Get the identifier, if any, that the property is on. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
985 (goto-char (1- type-pos)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
986 (setq marked-id |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
987 (when (looking-at "\\(\\sw\\|\\s_\\)") |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
988 (c-beginning-of-current-token) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
989 (buffer-substring-no-properties (point) type-pos))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
990 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
991 (goto-char end1) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
992 (skip-chars-forward "^;{}") ; FIXME!!! loop for comment, maybe |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
993 (setq lim (point)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
994 (setq term-pos |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
995 (or (next-single-property-change end 'c-type nil lim) lim)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
996 (setq c-maybe-stale-found-type |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
997 (list type marked-id |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
998 type-pos term-pos |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
999 (buffer-substring-no-properties type-pos term-pos) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1000 (buffer-substring-no-properties beg end))))))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1001 |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
1002 ;; (c-new-BEG c-new-END) will be the region to fontify. It may become |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
1003 ;; larger than (beg end). |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1004 (setq c-new-BEG beg |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1005 c-new-END end) |
107086
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
1006 (if c-get-state-before-change-functions |
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
1007 (mapc (lambda (fn) |
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
1008 (funcall fn beg end)) |
1786f2e6a856
Change strategy for marking < and > as template delimiters: mark them
Alan Mackenzie <acm@muc.de>
parents:
106815
diff
changeset
|
1009 c-get-state-before-change-functions)) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1010 )))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1011 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1012 (defun c-after-change (beg end old-len) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1013 ;; Function put on `after-change-functions' to adjust various caches |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1014 ;; etc. Prefer speed to finesse here, since there will be an order |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1015 ;; of magnitude more calls to this function than any of the |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1016 ;; functions that use the caches. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1017 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1018 ;; Note that care must be taken so that this is called before any |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1019 ;; font-lock callbacks since we might get calls to functions using |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1020 ;; these caches from inside them, and we must thus be sure that this |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1021 ;; has already been executed. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1022 ;; |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1023 ;; This calls the language variable c-before-font-lock-function, if non nil. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1024 ;; This typically sets `syntax-table' properties. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1025 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1026 (c-save-buffer-state () |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1027 ;; When `combine-after-change-calls' is used we might get calls |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1028 ;; with regions outside the current narrowing. This has been |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1029 ;; observed in Emacs 20.7. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1030 (save-restriction |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1031 (save-match-data ; c-recognize-<>-arglists changes match-data |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1032 (widen) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1033 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1034 (when (> end (point-max)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1035 ;; Some emacsen might return positions past the end. This has been |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1036 ;; observed in Emacs 20.7 when rereading a buffer changed on disk |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1037 ;; (haven't been able to minimize it, but Emacs 21.3 appears to |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1038 ;; work). |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1039 (setq end (point-max)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1040 (when (> beg end) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1041 (setq beg end))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1042 |
107228
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1043 ;; C-y is capable of spuriously converting category properties |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1044 ;; c-</>-as-paren-syntax into hard syntax-table properties. Remove |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1045 ;; these when it happens. |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1046 (c-clear-char-property-with-value beg end 'syntax-table |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1047 c-<-as-paren-syntax) |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1048 (c-clear-char-property-with-value beg end 'syntax-table |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1049 c->-as-paren-syntax) |
a83491958b95
(i) Remove any hard syntax-table properties for <, > inserted by C-y.
Alan Mackenzie <acm@muc.de>
parents:
107098
diff
changeset
|
1050 |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1051 (c-trim-found-types beg end old-len) ; maybe we don't need all of these. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1052 (c-invalidate-sws-region-after beg end) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1053 (c-invalidate-state-cache beg) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1054 (c-invalidate-find-decl-cache beg) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1055 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1056 (when c-recognize-<>-arglists |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1057 (c-after-change-check-<>-operators beg end)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1058 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1059 (if c-before-font-lock-function |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1060 (save-excursion |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1061 (funcall c-before-font-lock-function beg end old-len))))))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1062 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1063 (defun c-after-font-lock-init () |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1064 ;; Put on `font-lock-mode-hook'. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1065 (remove-hook 'after-change-functions 'c-after-change t) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1066 (add-hook 'after-change-functions 'c-after-change nil t)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1067 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1068 (defun c-font-lock-init () |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1069 "Set up the font-lock variables for using the font-lock support in CC Mode. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1070 This does not load the font-lock package. Use after |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1071 `c-basic-common-init' and after cc-fonts has been loaded." |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1072 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1073 (make-local-variable 'font-lock-defaults) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1074 (setq font-lock-defaults |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1075 `(,(if (c-major-mode-is 'awk-mode) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1076 ;; awk-mode currently has only one font lock level. |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1077 'awk-font-lock-keywords |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1078 (mapcar 'c-mode-symbol |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1079 '("font-lock-keywords" "font-lock-keywords-1" |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1080 "font-lock-keywords-2" "font-lock-keywords-3"))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1081 nil nil |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1082 ,c-identifier-syntax-modifications |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1083 c-beginning-of-syntax |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1084 (font-lock-mark-block-function |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1085 . c-mark-function))) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1086 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1087 (make-local-hook 'font-lock-mode-hook) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1088 (add-hook 'font-lock-mode-hook 'c-after-font-lock-init nil t)) |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1089 |
80459
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1090 (defun c-extend-after-change-region (beg end old-len) |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1091 "Extend the region to be fontified, if necessary." |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1092 ;; Note: the parameters are ignored here. This somewhat indirect |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1093 ;; implementation exists because it is minimally different from the |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1094 ;; stand-alone CC Mode which, lacking |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1095 ;; font-lock-extend-after-change-region-function, is forced to use advice |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1096 ;; instead. |
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1097 ;; |
103260
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
1098 ;; Of the seven CC Mode languages, currently (2009-05) only C, C++, Objc |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
1099 ;; (the languages with #define) and AWK Mode make non-null use of this |
864eb5478bfc
cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents:
101688
diff
changeset
|
1100 ;; function. |
80459
9b3c86e7f6b0
(c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents:
80258
diff
changeset
|
1101 (cons c-new-BEG c-new-END)) |
80160
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1102 |
3ca9638d2306
Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents:
79717
diff
changeset
|
1103 |
36920 | 1104 ;; Support for C |
1105 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1106 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1107 (defvar c-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1108 "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
|
1109 (or c-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1110 (setq c-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1111 (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
|
1112 |
36920 | 1113 (defvar c-mode-abbrev-table nil |
1114 "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
|
1115 (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
|
1116 '(("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
|
1117 ("while" "while" c-electric-continued-statement 0))) |
36920 | 1118 |
1119 (defvar c-mode-map () | |
1120 "Keymap used in c-mode buffers.") | |
1121 (if c-mode-map | |
1122 nil | |
1123 (setq c-mode-map (c-make-inherited-keymap)) | |
1124 ;; add bindings which are only useful for C | |
1125 (define-key c-mode-map "\C-c\C-e" 'c-macro-expand) | |
1126 ) | |
1127 | |
1128 (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
|
1129 (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
|
1130 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1131 ;; 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
|
1132 ;; `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
|
1133 ;; 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
|
1134 ;; 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
|
1135 ;; 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
|
1136 |
101688 | 1137 ;; The extension ".C" is associated with C++ while the lowercase |
1138 ;; variant goes with C. On case insensitive file systems, this means | |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1139 ;; 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
|
1140 ;; 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
|
1141 ;; 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
|
1142 ;; 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
|
1143 ;;;###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
|
1144 ;;;###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
|
1145 ;;;###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
|
1146 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1147 ;;;###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
|
1148 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1149 ;; 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
|
1150 ;; 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
|
1151 ;; 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
|
1152 ;;;###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
|
1153 ;;;###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
|
1154 |
96966
729f146c194c
(auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96384
diff
changeset
|
1155 ;; Preprocessed files generated by C and C++ compilers. |
729f146c194c
(auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96384
diff
changeset
|
1156 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.i\\'" . c-mode)) |
729f146c194c
(auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96384
diff
changeset
|
1157 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.ii\\'" . c++-mode)) |
729f146c194c
(auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96384
diff
changeset
|
1158 |
729f146c194c
(auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
96384
diff
changeset
|
1159 |
18720 | 1160 ;;;###autoload |
1161 (defun c-mode () | |
1162 "Major mode for editing K&R and ANSI C code. | |
1163 To submit a problem report, enter `\\[c-submit-bug-report]' from a | |
1164 c-mode buffer. This automatically sets up a mail buffer with version | |
1165 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
|
1166 problem, including a reproducible test case, and send the message. |
18720 | 1167 |
1168 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
1169 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1170 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
|
1171 initialization, then `c-mode-hook'. |
18720 | 1172 |
1173 Key bindings: | |
1174 \\{c-mode-map}" | |
1175 (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
|
1176 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1177 (c-initialize-cc-mode t) |
18720 | 1178 (set-syntax-table c-mode-syntax-table) |
1179 (setq major-mode 'c-mode | |
1180 mode-name "C" | |
36920 | 1181 local-abbrev-table c-mode-abbrev-table |
1182 abbrev-mode t) | |
18720 | 1183 (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
|
1184 (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
|
1185 (c-common-init 'c-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1186 (easy-menu-add c-c-menu) |
26817 | 1187 (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
|
1188 (c-run-mode-hooks 'c-mode-common-hook 'c-mode-hook) |
18720 | 1189 (c-update-modeline)) |
1190 | |
1191 | |
36920 | 1192 ;; Support for C++ |
1193 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1194 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1195 (defvar c++-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1196 "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
|
1197 (or c++-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1198 (setq c++-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1199 (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
|
1200 |
36920 | 1201 (defvar c++-mode-abbrev-table nil |
1202 "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
|
1203 (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
|
1204 '(("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
|
1205 ("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
|
1206 ("catch" "catch" c-electric-continued-statement 0))) |
36920 | 1207 |
1208 (defvar c++-mode-map () | |
1209 "Keymap used in c++-mode buffers.") | |
1210 (if c++-mode-map | |
1211 nil | |
1212 (setq c++-mode-map (c-make-inherited-keymap)) | |
1213 ;; add bindings which are only useful for C++ | |
1214 (define-key c++-mode-map "\C-c\C-e" 'c-macro-expand) | |
1215 (define-key c++-mode-map "\C-c:" 'c-scope-operator) | |
1216 (define-key c++-mode-map "<" 'c-electric-lt-gt) | |
1217 (define-key c++-mode-map ">" 'c-electric-lt-gt)) | |
1218 | |
1219 (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
|
1220 (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
|
1221 |
18720 | 1222 ;;;###autoload |
1223 (defun c++-mode () | |
1224 "Major mode for editing C++ code. | |
1225 To submit a problem report, enter `\\[c-submit-bug-report]' from a | |
1226 c++-mode buffer. This automatically sets up a mail buffer with | |
1227 version information already added. You just need to add a description | |
1228 of the problem, including a reproducible test case, and send the | |
1229 message. | |
1230 | |
1231 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
1232 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1233 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
|
1234 initialization, then `c++-mode-hook'. |
18720 | 1235 |
1236 Key bindings: | |
1237 \\{c++-mode-map}" | |
1238 (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
|
1239 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1240 (c-initialize-cc-mode t) |
18720 | 1241 (set-syntax-table c++-mode-syntax-table) |
1242 (setq major-mode 'c++-mode | |
1243 mode-name "C++" | |
36920 | 1244 local-abbrev-table c++-mode-abbrev-table |
1245 abbrev-mode t) | |
18720 | 1246 (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
|
1247 (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
|
1248 (c-common-init 'c++-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1249 (easy-menu-add c-c++-menu) |
26817 | 1250 (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
|
1251 (c-run-mode-hooks 'c-mode-common-hook 'c++-mode-hook) |
18720 | 1252 (c-update-modeline)) |
1253 | |
1254 | |
36920 | 1255 ;; Support for Objective-C |
1256 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1257 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1258 (defvar objc-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1259 "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
|
1260 (or objc-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1261 (setq objc-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1262 (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
|
1263 |
36920 | 1264 (defvar objc-mode-abbrev-table nil |
1265 "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
|
1266 (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
|
1267 '(("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
|
1268 ("while" "while" c-electric-continued-statement 0))) |
36920 | 1269 |
1270 (defvar objc-mode-map () | |
1271 "Keymap used in objc-mode buffers.") | |
1272 (if objc-mode-map | |
1273 nil | |
1274 (setq objc-mode-map (c-make-inherited-keymap)) | |
1275 ;; add bindings which are only useful for Objective-C | |
1276 (define-key objc-mode-map "\C-c\C-e" 'c-macro-expand)) | |
1277 | |
1278 (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
|
1279 (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
|
1280 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1281 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.m\\'" . objc-mode)) |
36920 | 1282 |
18720 | 1283 ;;;###autoload |
1284 (defun objc-mode () | |
1285 "Major mode for editing Objective C code. | |
1286 To submit a problem report, enter `\\[c-submit-bug-report]' from an | |
1287 objc-mode buffer. This automatically sets up a mail buffer with | |
1288 version information already added. You just need to add a description | |
1289 of the problem, including a reproducible test case, and send the | |
1290 message. | |
1291 | |
1292 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
1293 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1294 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
|
1295 initialization, then `objc-mode-hook'. |
18720 | 1296 |
1297 Key bindings: | |
1298 \\{objc-mode-map}" | |
1299 (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
|
1300 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1301 (c-initialize-cc-mode t) |
18720 | 1302 (set-syntax-table objc-mode-syntax-table) |
1303 (setq major-mode 'objc-mode | |
1304 mode-name "ObjC" | |
36920 | 1305 local-abbrev-table objc-mode-abbrev-table |
1306 abbrev-mode t) | |
18720 | 1307 (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
|
1308 (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
|
1309 (c-common-init 'objc-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1310 (easy-menu-add c-objc-menu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1311 (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
|
1312 (c-run-mode-hooks 'c-mode-common-hook 'objc-mode-hook) |
18720 | 1313 (c-update-modeline)) |
1314 | |
1315 | |
36920 | 1316 ;; Support for Java |
1317 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1318 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1319 (defvar java-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1320 "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
|
1321 (or java-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1322 (setq java-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1323 (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
|
1324 |
36920 | 1325 (defvar java-mode-abbrev-table nil |
1326 "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
|
1327 (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
|
1328 '(("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
|
1329 ("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
|
1330 ("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
|
1331 ("finally" "finally" c-electric-continued-statement 0))) |
36920 | 1332 |
1333 (defvar java-mode-map () | |
1334 "Keymap used in java-mode buffers.") | |
1335 (if java-mode-map | |
1336 nil | |
1337 (setq java-mode-map (c-make-inherited-keymap)) | |
1338 ;; add bindings which are only useful for Java | |
1339 ) | |
1340 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1341 ;; 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
|
1342 ;; 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
|
1343 ;; 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
|
1344 ;; 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
|
1345 (defconst c-Java-defun-prompt-regexp |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1346 "^[ \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
|
1347 |
36920 | 1348 (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
|
1349 (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
|
1350 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1351 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.java\\'" . java-mode)) |
36920 | 1352 |
18720 | 1353 ;;;###autoload |
1354 (defun java-mode () | |
1355 "Major mode for editing Java code. | |
20135
ecb78a6ccd8d
(objc-mode): Bind imenu-create-index-function
Karl Heuer <kwzh@gnu.org>
parents:
19808
diff
changeset
|
1356 To submit a problem report, enter `\\[c-submit-bug-report]' from a |
18720 | 1357 java-mode buffer. This automatically sets up a mail buffer with |
1358 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
|
1359 of the problem, including a reproducible test case, and send the |
18720 | 1360 message. |
1361 | |
1362 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
1363 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1364 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
|
1365 initialization, then `java-mode-hook'. |
18720 | 1366 |
1367 Key bindings: | |
1368 \\{java-mode-map}" | |
1369 (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
|
1370 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1371 (c-initialize-cc-mode t) |
18720 | 1372 (set-syntax-table java-mode-syntax-table) |
1373 (setq major-mode 'java-mode | |
1374 mode-name "Java" | |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
1375 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
|
1376 abbrev-mode t) |
18720 | 1377 (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
|
1378 (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
|
1379 (c-common-init 'java-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1380 (easy-menu-add c-java-menu) |
26817 | 1381 (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
|
1382 (c-run-mode-hooks 'c-mode-common-hook 'java-mode-hook) |
18720 | 1383 (c-update-modeline)) |
1384 | |
1385 | |
36920 | 1386 ;; Support for CORBA's IDL language |
1387 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1388 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1389 (defvar idl-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1390 "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
|
1391 (or idl-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1392 (setq idl-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1393 (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
|
1394 |
36920 | 1395 (defvar idl-mode-abbrev-table nil |
1396 "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
|
1397 (c-define-abbrev-table 'idl-mode-abbrev-table nil) |
36920 | 1398 |
1399 (defvar idl-mode-map () | |
1400 "Keymap used in idl-mode buffers.") | |
1401 (if idl-mode-map | |
1402 nil | |
1403 (setq idl-mode-map (c-make-inherited-keymap)) | |
1404 ;; add bindings which are only useful for IDL | |
1405 ) | |
1406 | |
1407 (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
|
1408 (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
|
1409 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1410 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.idl\\'" . idl-mode)) |
36920 | 1411 |
19253
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1412 ;;;###autoload |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1413 (defun idl-mode () |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1414 "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
|
1415 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
|
1416 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
|
1417 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
|
1418 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
|
1419 message. |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1420 |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1421 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
|
1422 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1423 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
|
1424 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
|
1425 |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1426 Key bindings: |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1427 \\{idl-mode-map}" |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1428 (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
|
1429 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1430 (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
|
1431 (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
|
1432 (setq major-mode 'idl-mode |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1433 mode-name "IDL" |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1434 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
|
1435 (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
|
1436 (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
|
1437 (c-common-init 'idl-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1438 (easy-menu-add c-idl-menu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1439 ;;(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
|
1440 (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
|
1441 (c-update-modeline)) |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1442 |
2bda7e07f25d
(idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents:
18847
diff
changeset
|
1443 |
36920 | 1444 ;; Support for Pike |
1445 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1446 ;;;###autoload |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1447 (defvar pike-mode-syntax-table nil |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1448 "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
|
1449 (or pike-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1450 (setq pike-mode-syntax-table |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1451 (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
|
1452 |
36920 | 1453 (defvar pike-mode-abbrev-table nil |
1454 "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
|
1455 (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
|
1456 '(("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
|
1457 ("while" "while" c-electric-continued-statement 0))) |
36920 | 1458 |
1459 (defvar pike-mode-map () | |
1460 "Keymap used in pike-mode buffers.") | |
1461 (if pike-mode-map | |
1462 nil | |
1463 (setq pike-mode-map (c-make-inherited-keymap)) | |
1464 ;; additional bindings | |
1465 (define-key pike-mode-map "\C-c\C-e" 'c-macro-expand)) | |
1466 | |
1467 (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
|
1468 (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
|
1469 |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1470 ;;;###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
|
1471 ;;;###autoload (add-to-list 'interpreter-mode-alist '("pike" . pike-mode)) |
36920 | 1472 |
24282 | 1473 ;;;###autoload |
1474 (defun pike-mode () | |
1475 "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
|
1476 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
|
1477 pike-mode buffer. This automatically sets up a mail buffer with |
24282 | 1478 version information already added. You just need to add a description |
1479 of the problem, including a reproducible test case, and send the | |
1480 message. | |
1481 | |
1482 To see what version of CC Mode you are running, enter `\\[c-version]'. | |
1483 | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1484 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
|
1485 initialization, then `pike-mode-hook'. |
24282 | 1486 |
1487 Key bindings: | |
1488 \\{pike-mode-map}" | |
1489 (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
|
1490 (kill-all-local-variables) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1491 (c-initialize-cc-mode t) |
24282 | 1492 (set-syntax-table pike-mode-syntax-table) |
1493 (setq major-mode 'pike-mode | |
1494 mode-name "Pike" | |
36920 | 1495 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
|
1496 abbrev-mode t) |
24282 | 1497 (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
|
1498 (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
|
1499 (c-common-init 'pike-mode) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1500 (easy-menu-add c-pike-menu) |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1501 ;;(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
|
1502 (c-run-mode-hooks 'c-mode-common-hook 'pike-mode-hook) |
24282 | 1503 (c-update-modeline)) |
1504 | |
1505 | |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1506 ;; Support for AWK |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1507 |
51747
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1508 ;;;###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
|
1509 ;;;###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
|
1510 ;;;###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
|
1511 ;;;###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
|
1512 ;;;###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
|
1513 |
b4fb79bf98ba
Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents:
51714
diff
changeset
|
1514 ;;; 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
|
1515 ;;; autoload form instead. |
58747
e3dfd80003ea
(awk-mode autoload): Supply t meaning interactive function.
Richard M. Stallman <rms@gnu.org>
parents:
58198
diff
changeset
|
1516 ;;;###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
|
1517 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1518 (defvar awk-mode-abbrev-table nil |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1519 "Abbreviation table used in awk-mode buffers.") |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1520 (c-define-abbrev-table 'awk-mode-abbrev-table |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1521 '(("else" "else" c-electric-continued-statement 0) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1522 ("while" "while" c-electric-continued-statement 0))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1523 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1524 (defvar awk-mode-map () |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1525 "Keymap used in awk-mode buffers.") |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1526 (if awk-mode-map |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1527 nil |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1528 (setq awk-mode-map (c-make-inherited-keymap)) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1529 ;; add bindings which are only useful for awk. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1530 (define-key awk-mode-map "#" 'self-insert-command) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1531 (define-key awk-mode-map "/" 'self-insert-command) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1532 (define-key awk-mode-map "*" 'self-insert-command) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1533 (define-key awk-mode-map "\C-c\C-n" 'undefined) ; #if doesn't exist in awk. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1534 (define-key awk-mode-map "\C-c\C-p" 'undefined) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1535 (define-key awk-mode-map "\C-c\C-u" 'undefined) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1536 (define-key awk-mode-map "\M-a" 'c-beginning-of-statement) ; 2003/10/7 |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1537 (define-key awk-mode-map "\M-e" 'c-end-of-statement) ; 2003/10/7 |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1538 (define-key awk-mode-map "\C-\M-a" 'c-awk-beginning-of-defun) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1539 (define-key awk-mode-map "\C-\M-e" 'c-awk-end-of-defun)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1540 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1541 (easy-menu-define c-awk-menu awk-mode-map "AWK Mode Commands" |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1542 (cons "AWK" (c-lang-const c-mode-menu awk))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1543 |
94998
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
1544 ;; (require 'cc-awk) brings these in. |
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
1545 (defvar awk-mode-syntax-table) |
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
1546 (declare-function c-awk-unstick-NL-prop "cc-awk" ()) |
3f4cdd183536
(declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
1547 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1548 (defun awk-mode () |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1549 "Major mode for editing AWK code. |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1550 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
|
1551 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
|
1552 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
|
1553 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
|
1554 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1555 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
|
1556 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1557 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
|
1558 initialization, then `awk-mode-hook'. |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1559 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1560 Key bindings: |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1561 \\{awk-mode-map}" |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1562 (interactive) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1563 (require 'cc-awk) ; Added 2003/6/10. |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1564 (kill-all-local-variables) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1565 (c-initialize-cc-mode t) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1566 (set-syntax-table awk-mode-syntax-table) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1567 (setq major-mode 'awk-mode |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1568 mode-name "AWK" |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1569 local-abbrev-table awk-mode-abbrev-table |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1570 abbrev-mode t) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1571 (use-local-map awk-mode-map) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1572 (c-init-language-vars-for 'awk-mode) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1573 (c-common-init 'awk-mode) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1574 (c-awk-unstick-NL-prop) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1575 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1576 ;; Prevent Xemacs's buffer-syntactic-context being used. See the comment |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1577 ;; in cc-engine.el, just before (defun c-fast-in-literal ... |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1578 (defalias 'c-in-literal 'c-slow-in-literal) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1579 |
67252
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1580 (c-run-mode-hooks 'c-mode-common-hook 'awk-mode-hook) |
04d2abb755d9
Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents:
65812
diff
changeset
|
1581 (c-update-modeline)) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1582 |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1583 |
20146 | 1584 ;; bug reporting |
18720 | 1585 |
1586 (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
|
1587 "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
|
1588 "Address(es) for CC Mode bug reports.") |
18720 | 1589 |
1590 (defun c-version () | |
1591 "Echo the current version of CC Mode in the minibuffer." | |
1592 (interactive) | |
1593 (message "Using CC Mode version %s" c-version) | |
1594 (c-keep-region-active)) | |
1595 | |
36920 | 1596 (defvar c-prepare-bug-report-hooks nil) |
1597 | |
1598 ;; Dynamic variables used by reporter. | |
1599 (defvar reporter-prompt-for-summary-p) | |
1600 (defvar reporter-dont-compact-list) | |
1601 | |
18720 | 1602 (defun c-submit-bug-report () |
1603 "Submit via mail a bug report on CC Mode." | |
1604 (interactive) | |
20917
c6e2c4d9a305
(c-mode, c++-mode, objc-mode, java-mode): Set
Richard M. Stallman <rms@gnu.org>
parents:
20459
diff
changeset
|
1605 (require 'reporter) |
18720 | 1606 ;; load in reporter |
1607 (let ((reporter-prompt-for-summary-p t) | |
1608 (reporter-dont-compact-list '(c-offsets-alist)) | |
1609 (style c-indentation-style) | |
1610 (c-features c-emacs-features)) | |
1611 (and | |
1612 (if (y-or-n-p "Do you want to submit a report on CC Mode? ") | |
1613 t (message "") nil) | |
1614 (reporter-submit-bug-report | |
1615 c-mode-help-address | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1616 (concat "CC Mode " c-version " (" mode-name ")") |
26817 | 1617 (let ((vars (append |
1618 c-style-variables | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1619 '(c-buffer-is-cc-mode |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1620 c-tab-always-indent |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1621 c-syntactic-indentation |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1622 c-syntactic-indentation-in-macros |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1623 c-ignore-auto-fill |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1624 c-auto-align-backslashes |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1625 c-backspace-function |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1626 c-delete-function |
26817 | 1627 c-electric-pound-behavior |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1628 c-default-style |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1629 c-enable-xemacs-performance-kludge-p |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1630 c-old-style-variable-behavior |
26817 | 1631 defun-prompt-regexp |
1632 tab-width | |
1633 comment-column | |
1634 parse-sexp-ignore-comments | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1635 parse-sexp-lookup-properties |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1636 lookup-syntax-properties |
26817 | 1637 ;; A brain-damaged XEmacs only variable that, if |
1638 ;; set to nil can cause all kinds of chaos. | |
1639 signal-error-on-buffer-boundary | |
1640 ;; 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
|
1641 auto-fill-mode |
30401
b85ee58b24ec
(c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents:
26817
diff
changeset
|
1642 auto-fill-function |
26817 | 1643 filladapt-mode |
1644 comment-multi-line | |
1645 comment-start-skip | |
1646 fill-prefix | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
51620
diff
changeset
|
1647 fill-column |
26817 | 1648 paragraph-start |
1649 adaptive-fill-mode | |
1650 adaptive-fill-regexp) | |
1651 nil))) | |
85185 | 1652 (mapc (lambda (var) (unless (boundp var) |
1653 (setq vars (delq var vars)))) | |
1654 '(signal-error-on-buffer-boundary | |
1655 filladapt-mode | |
1656 defun-prompt-regexp | |
1657 font-lock-mode | |
1658 font-lock-maximum-decoration | |
1659 parse-sexp-lookup-properties | |
1660 lookup-syntax-properties)) | |
26817 | 1661 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
|
1662 (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
|
1663 (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
|
1664 (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
|
1665 style c-features))))))) |
18720 | 1666 |
1667 | |
36920 | 1668 (cc-provide 'cc-mode) |
52401 | 1669 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93802
diff
changeset
|
1670 ;; arch-tag: 7825e5c4-fd09-439f-a04d-4c13208ba3d7 |
18720 | 1671 ;;; cc-mode.el ends here |