annotate lisp/progmodes/cc-mode.el @ 104849:15ac40f6056a

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Fri, 04 Sep 2009 07:00:22 +0000
parents e1f250fc8519
children b27aeda9c1fd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
74372
cf3e4c6cd4c3 Fix Copyright format.
Glenn Morris <rgm@gnu.org>
parents: 72031
diff changeset
3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 97140
diff changeset
4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 75027
diff changeset
5 ;; Free Software Foundation, Inc.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; 1985 Richard M. Stallman
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
13 ;; Maintainer: bug-cc-mode@gnu.org
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; Created: a long, long, time ago. adapted from the original c-mode.el
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; Keywords: c languages oop
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; This file is part of GNU Emacs.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;; GNU Emacs is distributed in the hope that it will be useful,
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 ;; GNU General Public License for more details.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
32 ;;; Commentary:
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
33
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
34 ;; NOTE: Read the commentary below for the right way to submit bug reports!
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
43
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 ;; CC Mode's immediate ancestors were, c++-mode.el, cplus-md.el, and
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 ;; cplus-md1.el..
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 ;; To submit bug reports, type "C-c C-b". These will be sent to
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
55 ;; bug-gnu-emacs@gnu.org (mirrored as the Usenet newsgroup
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
56 ;; gnu.emacs.bug) as well as bug-cc-mode@gnu.org, which directly
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
57 ;; contacts the CC Mode maintainers. Questions can sent to
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
58 ;; help-gnu-emacs@gnu.org (mirrored as gnu.emacs.help) and/or
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
59 ;; bug-cc-mode@gnu.org. Please do not send bugs or questions to our
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
60 ;; personal accounts; we reserve the right to ignore such email!
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;; Many, many thanks go out to all the folks on the beta test list.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; Without their patience, testing, insight, code contributions, and
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; encouragement CC Mode would be a far inferior package.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; You can get the latest version of CC Mode, including PostScript
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;; documentation and separate individual files from:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 ;;
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
71 ;; You can join a moderated CC Mode announcement-only mailing list by
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
72 ;; visiting
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 ;;; Code:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
82 (eval-when-compile
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
83 (let ((load-path
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
84 (if (and (boundp 'byte-compile-dest-file)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
85 (stringp byte-compile-dest-file))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
86 (cons (file-name-directory byte-compile-dest-file) load-path)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
94 (cc-require 'cc-styles)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
95 (cc-require 'cc-cmds)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
110 ;; Menu support for both XEmacs and Emacs. If you don't have easymenu
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
116 (autoload 'c-subword-mode "cc-subword"
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
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
186 (let ((initprop 'cc-mode-is-initialized)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
187 c-initialization-ok)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
188 (unless (get 'c-initialize-cc-mode initprop)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
189 (unwind-protect
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
190 (progn
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
191 (put 'c-initialize-cc-mode initprop t)
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
192 (c-initialize-builtin-style)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
193 (run-hooks 'c-initialization-hook)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
194 ;; Fix obsolete variables.
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
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
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
199 (setq c-initialization-ok t))
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
209 (defvar c-mode-base-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
210 "Keymap shared by all CC Mode related modes.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
211
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
212 (defun c-make-inherited-keymap ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
223 (set-keymap-parents map c-mode-base-map))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
224 ;; incompatible
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
225 (t (error "CC Mode is incompatible with this version of Emacs")))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
226 map))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
257 (if c-mode-base-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
258 nil
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
259
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
262 ;; Separate M-BS from C-M-h. The former should remain
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
263 ;; backward-kill-word.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
264 (define-key c-mode-base-map [(control meta h)] 'c-mark-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
265 (define-key c-mode-base-map "\e\C-q" 'c-indent-exp)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
266 (substitute-key-definition 'backward-sentence
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
267 'c-beginning-of-statement
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
268 c-mode-base-map global-map)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
269 (substitute-key-definition 'forward-sentence
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
270 'c-end-of-statement
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
271 c-mode-base-map global-map)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
272 (substitute-key-definition 'indent-new-comment-line
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
273 'c-indent-new-comment-line
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
293 (define-key c-mode-base-map "\C-c\C-n" 'c-forward-conditional)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
294 (define-key c-mode-base-map "\C-c\C-p" 'c-backward-conditional)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
305 (substitute-key-definition 'fill-paragraph 'c-fill-paragraph
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
306 c-mode-base-map global-map)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
307 ;; In XEmacs the default fill function is called
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
308 ;; fill-paragraph-or-region.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
309 (substitute-key-definition 'fill-paragraph-or-region 'c-fill-paragraph
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
371 (define-key c-mode-base-map "\C-c\C-b" 'c-submit-bug-report)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
378 (define-key c-mode-base-map "\C-c." 'c-set-style)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
379 ;; conflicts with OOBR
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
382 (define-key c-mode-base-map "\C-c\C-w" 'c-subword-mode)
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
383 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
384
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
385 ;; We don't require the outline package, but we configure it a bit anyway.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
386 (cc-bytecomp-defvar outline-level)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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.
76399
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
413 ;;
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
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
454 ;; changed where an element of `found-types' might become stale. It
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
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
458 ;;
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.
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
461 ;;
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.
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
465 ;;
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
489 ;; these variables should always be buffer local; they do not affect
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
490 ;; indentation style.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
491 (make-local-variable 'parse-sexp-ignore-comments)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
492 (make-local-variable 'indent-line-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
493 (make-local-variable 'indent-region-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
494 (make-local-variable 'normal-auto-fill-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
495 (make-local-variable 'comment-start)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
496 (make-local-variable 'comment-end)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
497 (make-local-variable 'comment-start-skip)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
508 indent-line-function 'c-indent-line
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
509 indent-region-function 'c-indent-region
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
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
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
520 (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
521 (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
522 (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
523 ;; 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
524 ;; 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
525 ;; that.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
526 ;;
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
527 ;; 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
528 ;; 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
529 ;; 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
530
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
531 ;; Emacs.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
532 (when (boundp 'parse-sexp-lookup-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
533 (make-local-variable 'parse-sexp-lookup-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
534 (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
535
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
536 ;; Same as above for XEmacs.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
537 (when (boundp 'lookup-syntax-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
538 (make-local-variable 'lookup-syntax-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
539 (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
540
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
541 ;; Use this in Emacs 21 to avoid meddling with the rear-nonsticky
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
542 ;; property on each character.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
543 (when (boundp 'text-property-default-nonsticky)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
544 (make-local-variable 'text-property-default-nonsticky)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
545 (let ((elem (assq 'syntax-table text-property-default-nonsticky)))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
546 (if elem
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
547 (setcdr elem t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
548 (setq text-property-default-nonsticky
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
549 (cons '(syntax-table . t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
550 text-property-default-nonsticky))))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
551 (setq text-property-default-nonsticky
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
552 (cons '(c-type . t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
553 text-property-default-nonsticky)))
44728
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
554
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
555 ;; 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
556 ;; 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
557 ;; 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
558 ;; 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
559 ;; 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
560 ;; 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
561 ;; (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
562 ;; (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
563 ;; (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
564
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
565 (c-clear-found-types)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
566
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
567 ;; 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
568 (let ((style (if (stringp default-style)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
569 default-style
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
570 (or (cdr (assq mode default-style))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
571 (cdr (assq 'other default-style))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
572 "gnu"))))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
573 ;; Override style variables if `c-old-style-variable-behavior' is
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
574 ;; set. Also override if we are using global style variables,
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
575 ;; have already initialized a style once, and are switching to a
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
576 ;; different style. (It's doubtful whether this is desirable, but
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
577 ;; the whole situation with nonlocal style variables is a bit
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
578 ;; awkward. It's at least the most compatible way with the old
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
579 ;; style init procedure.)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
580 (c-set-style style (not (or c-old-style-variable-behavior
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
581 (and (not c-style-variables-are-local-p)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
582 c-indentation-style
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
583 (not (string-equal c-indentation-style
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
584 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
585 (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
586
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
587 ;; we have to do something special for c-offsets-alist so that the
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
588 ;; buffer local value has its own alist structure.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
589 (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
590
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
591 ;; setup the comment indent variable in a Emacs version portable way
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
592 (make-local-variable 'comment-indent-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
593 (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
594
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
595 ;; ;; 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
596 ;; (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
597 ;; (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
598 ;; (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
599 ;; 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
600 (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
601
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
602 ;; 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
603 ;; 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
604 (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
605 (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
606 (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
607 (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
608 (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
609 '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
610 ; 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
611
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
612 (defun c-setup-doc-comment-style ()
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
613 "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
614 (when (and (featurep 'font-lock)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
615 (symbol-value 'font-lock-mode))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
616 ;; 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
617 (font-lock-mode 0)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
618 (font-lock-mode 1)))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
619
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
620 (defun c-common-init (&optional mode)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
621 "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
622 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
623 `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
624 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
625 Mode to operate correctly.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
626
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
627 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
628 `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
629 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
630
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
631 (unless mode
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
632 ;; 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
633 ;; 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
634 (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
635
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
636 (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
637 (when mode
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
638 ;; 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
639 (c-font-lock-init))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
640
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
641 ;; 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
642 (save-restriction
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
643 (widen)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
644 (save-excursion
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
645 (if c-get-state-before-change-function
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
646 (funcall c-get-state-before-change-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
647 (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
648 (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
649 (- (point-max) (point-min))))))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
650
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
651 (make-local-variable 'outline-regexp)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
652 (make-local-variable 'outline-level)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
653 (setq outline-regexp "[^#\n\^M]"
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
654 outline-level 'c-outline-level)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
655
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
656 (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
657 (when rfn
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
658 (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
659 (and (cdr rfn)
a88429b12685 (c-common-init): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 58747
diff changeset
660 (setq require-final-newline mode-require-final-newline)))))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
661
97140
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
662 (defun c-before-hack-hook ()
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
663 "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
664 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
665 `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
666
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
667 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
668 (when c-buffer-is-cc-mode
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
669 (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
670 (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
671 (when stile
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
672 (or (stringp stile) (error "c-file-style is not a string"))
103966
e1f250fc8519 (c-before-hack-hook, c-postprocess-file-styles): Give invocation of
Alan Mackenzie <acm@muc.de>
parents: 103260
diff changeset
673 (c-set-style stile t))
97140
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
674 (when offsets
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
675 (mapc
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
676 (lambda (langentry)
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
677 (let ((langelem (car langentry))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
678 (offset (cdr langentry)))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
679 (c-set-offset langelem offset)))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
680 offsets)))))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
681
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
682 (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
683 ;; 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
684 ;; 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
685 ;; `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
686 ;; 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
687 ;; 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
688 ;;
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 ;; 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
690 ;; 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
691 (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
692 (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
693 (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
694 (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
695 (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
696 (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
697 ;; 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
698 ;; 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
699 (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
700 (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
701 (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
702 (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
703 (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
704 (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
705 (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
706 (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
707 (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
708
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 (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
710 (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
711 (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
712 "\\(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
713 (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
714 "$")
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 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
716 (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
717 (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
718
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 ;; 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
720 (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
721 (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
722 (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
723 (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
724 (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
725 (unless (eobp)
5131a632194a (c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents: 77612
diff changeset
726 (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
727
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
728 (defun c-postprocess-file-styles ()
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
729 "Function that post processes relevant file local variables in CC Mode.
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
730 Currently, this function simply applies any style and offset settings
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
731 found in the file's Local Variable list. It first applies any style
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
732 setting found in `c-file-style', then it applies any offset settings
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
733 it finds in `c-file-offsets'.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
734
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
735 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
736
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
737 ;; 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
738 (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
739 (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
740 (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
741 (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
742 (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
743 (error "c-file-style is not a string"))
103966
e1f250fc8519 (c-before-hack-hook, c-postprocess-file-styles): Give invocation of
Alan Mackenzie <acm@muc.de>
parents: 103260
diff changeset
744 (c-set-style c-file-style t))
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
745
45632
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
746 (and c-file-offsets
85185
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
747 (mapc
45632
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
748 (lambda (langentry)
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
749 (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
750 (offset (cdr langentry)))
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
751 (c-set-offset langelem offset)))
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
752 c-file-offsets))
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
753 ;; 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
754 ;; 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
755 ;; 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
756 ;; 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
757 ;; 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
758 ;; `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
759 ;; 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
760 ;; 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
761 ;;
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 ;; 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
763 ;; `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
764 ;; 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
765 ;; section.
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
766 (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
767 (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
768 (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
769 (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
770 (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
771 nil))))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
772
97140
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
773 (if (boundp 'before-hack-local-variables-hook)
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
774 (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
775 (add-hook 'hack-local-variables-hook 'c-postprocess-file-styles))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
776
62641
27b53b1903b6 2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 62046
diff changeset
777 (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
778 ;; Emacs 21.1 has introduced a system with delayed mode hooks that
27b53b1903b6 2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 62046
diff changeset
779 ;; require the use of the new function `run-mode-hooks'.
27b53b1903b6 2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 62046
diff changeset
780 (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
781 `(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
782 `(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
783
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
784
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
785 ;;; 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
786
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
787 ;; 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
788 ;; 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
789 ;; 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
790 ;; `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
791 (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
792 (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
793 (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
794 (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
795
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
796 ;; 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
797 ;; 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
798 ;; 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
799 (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
800 (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
801 (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
802 (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
803
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
804 (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
805 ;; 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
806 ;; 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
807 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
808 ;; 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
809 ;; 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
810 ;; meaningless.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
811 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
812 ;; This function is the C/C++/ObjC value of
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
813 ;; `c-get-state-before-change-function' and is called exclusively as a
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
814 ;; before change function.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
815 (goto-char beg)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
816 (c-beginning-of-macro)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
817 (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
818
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
819 (goto-char end)
80170
3e4f6980296d (c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents: 80160
diff changeset
820 (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
821 (c-end-of-macro))
3e4f6980296d (c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents: 80160
diff changeset
822 (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
823
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
824 (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
825 ;; 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
826 ;; "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
827 ;; 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
828 ;; this region.
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
829 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
830 ;; 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
831 ;; 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
832 ;; obtrusive.
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
833 (save-excursion
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
834 (let (s)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
835 (while
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
836 (progn
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
837 (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
838 (cond
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
839 ((< (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
840 (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
841 t)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
842 ((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
843 (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
844 t)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
845 ((> (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
846 (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
847 t)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
848 (t nil)))))))
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
849
103260
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
850 (defun c-extend-and-neutralize-syntax-in-CPP (begg endd old-len)
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
851 ;; (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
852 ;; 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
853 ;; `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
854 ;;
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
855 ;; (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
856 ;; 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
857 ;; 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
858 ;; variables `c-old-BOM' and `c-old-EOM'.
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
859 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
860 ;; 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
861 ;; interact syntactically with those outside the CPP line(s).
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
862 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
863 ;; 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
864 ;; 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
865 ;; 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
866 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
867 ;; 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
868 ;; 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
869 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
870 ;; 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
871 ;;
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
872 ;; Note: SPEED _MATTERS_ IN THIS FUNCTION!!!
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
873 ;;
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
874 ;; This function might make hidden buffer changes.
103260
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
875 (c-save-buffer-state (limits mbeg+1)
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
876 ;; 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
877 ;; 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
878 ;; 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
879 (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
880 (setq c-new-BEG
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
881 (if (setq limits (c-literal-limits))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
882 (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
883 (point)))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
884
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
885 (goto-char endd)
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
886 (if (setq limits (c-literal-limits))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
887 (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
888 (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
889 (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
890 (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
891 (point)))
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
892
103260
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
893 ;; Clear any existing punctuation properties.
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
894 (c-clear-char-property-with-value c-new-BEG c-new-END 'syntax-table '(1))
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
895
103260
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
896 ;; 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
897 (goto-char c-new-BEG)
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
898 (let ((pps-position c-new-BEG) pps-state)
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
899 (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
900 (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
901 ;; 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
902 (setq pps-state
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
903 (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
904 pps-position (point))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
905 (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
906 (nth 4 pps-state)) ; in a comment?
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
907 (setq mbeg+1 (point))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
908 (c-end-of-macro) ; Do we need to go forward 1 char here? No!
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
909 (c-neutralize-CPP-line mbeg+1 (point))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
910 (setq pps-position (point))))))) ; no need to update pps-state.
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
911
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
912 (defun c-before-change (beg end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
913 ;; Function to be put on `before-change-function'. Primarily, this calls
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
914 ;; the language dependent `c-get-state-before-change-function'. It is
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
915 ;; 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
916 ;; 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
917 ;; confirm as stale.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
918 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
919 ;; 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
920 ;; 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
921 ;; 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
922 ;; rigourous syntactic analysis.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
923
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
924 ;; 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
925 ;; 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
926 ;; 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
927 ;; isn't critical.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
928 (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
929 (save-restriction
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
930 (save-match-data
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
931 (widen)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
932 (save-excursion
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
933 ;; 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
934 (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
935 (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
936 ;; 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
937 (when (< beg end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
938 (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
939 ;; 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
940 ;; 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
941 ;; "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
942 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
943 ;; 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
944 ;; 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
945 (let (lim
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
946 type type-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
947 marked-id term-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
948 (end1
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
949 (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
950 (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
951 end)))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
952 (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
953 ;; 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
954 (while
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
955 (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
956 (> (point) (point-min))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
957 (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
958 '(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
959 (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
960
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
961 ;; 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
962 (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
963 (setq type-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
964 (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
965 end1
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
966 (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
967 (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
968
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
969 (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
970 ;; 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
971 (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
972 (setq marked-id
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
973 (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
974 (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
975 (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
976
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
977 (goto-char end1)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
978 (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
979 (setq lim (point))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
980 (setq term-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
981 (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
982 (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
983 (list type marked-id
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
984 type-pos term-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
985 (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
986 (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
987
103260
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
988 ;; (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
989 ;; 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
990 (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
991 c-new-END end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
992 (if c-get-state-before-change-function
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
993 (funcall c-get-state-before-change-function beg end))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
994 ))))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
995
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
996 (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
997 ;; 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
998 ;; 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
999 ;; 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
1000 ;; 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
1001 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1002 ;; 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
1003 ;; 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
1004 ;; 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
1005 ;; has already been executed.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1006 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1007 ;; 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
1008 ;; 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
1009
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1010 (c-save-buffer-state ()
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1011 ;; 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
1012 ;; 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
1013 ;; 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
1014 (save-restriction
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1015 (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
1016 (widen)
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 (when (> end (point-max))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1019 ;; 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
1020 ;; 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
1021 ;; (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
1022 ;; work).
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1023 (setq end (point-max))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1024 (when (> beg end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1025 (setq beg end)))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1026
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1027 (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
1028 (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
1029 (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
1030 (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
1031
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1032 (when c-recognize-<>-arglists
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1033 (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
1034
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1035 (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
1036 (save-excursion
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1037 (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
1038
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1039 (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
1040 ;; 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
1041 (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
1042 (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
1043
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1044 (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
1045 "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
1046 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
1047 `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
1048
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1049 (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
1050 (setq font-lock-defaults
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1051 `(,(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
1052 ;; 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
1053 'awk-font-lock-keywords
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1054 (mapcar 'c-mode-symbol
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1055 '("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
1056 "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
1057 nil nil
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1058 ,c-identifier-syntax-modifications
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1059 c-beginning-of-syntax
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1060 (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
1061 . c-mark-function)))
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 (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
1064 (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
1065
80459
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1066 (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
1067 "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
1068 ;; 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
1069 ;; 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
1070 ;; 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
1071 ;; 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
1072 ;; instead.
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1073 ;;
103260
864eb5478bfc cc-mode.el (c-extend-and-neutralize-CPP-line): Renamed from
Alan Mackenzie <acm@muc.de>
parents: 101688
diff changeset
1074 ;; 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
1075 ;; (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
1076 ;; function.
80459
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1077 (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
1078
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1079
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1080 ;; Support for C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1081
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1082 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1083 (defvar c-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1084 "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
1085 (or c-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1086 (setq c-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1087 (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
1088
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1089 (defvar c-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1090 "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
1091 (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
1092 '(("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
1093 ("while" "while" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1094
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1095 (defvar c-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1096 "Keymap used in c-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1097 (if c-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1098 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1099 (setq c-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1100 ;; add bindings which are only useful for C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1101 (define-key c-mode-map "\C-c\C-e" 'c-macro-expand)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1102 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1103
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1104 (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
1105 (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
1106
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1107 ;; 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
1108 ;; `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
1109 ;; 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
1110 ;; 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
1111 ;; 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
1112
101688
2af7c063ac90 # Fix a typo.
Alan Mackenzie <acm@muc.de>
parents: 101112
diff changeset
1113 ;; The extension ".C" is associated with C++ while the lowercase
2af7c063ac90 # Fix a typo.
Alan Mackenzie <acm@muc.de>
parents: 101112
diff changeset
1114 ;; 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
1115 ;; 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
1116 ;; 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
1117 ;; 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
1118 ;; 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
1119 ;;;###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
1120 ;;;###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
1121 ;;;###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
1122
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1123 ;;;###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
1124
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1125 ;; 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
1126 ;; 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
1127 ;; 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
1128 ;;;###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
1129 ;;;###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
1130
96966
729f146c194c (auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96384
diff changeset
1131 ;; 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
1132 ;;;###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
1133 ;;;###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
1134
729f146c194c (auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96384
diff changeset
1135
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137 (defun c-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 "Major mode for editing K&R and ANSI C code.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1139 To submit a problem report, enter `\\[c-submit-bug-report]' from a
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 c-mode buffer. This automatically sets up a mail buffer with version
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 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
1142 problem, including a reproducible test case, and send the message.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 To see what version of CC Mode you are running, enter `\\[c-version]'.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1146 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
1147 initialization, then `c-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150 \\{c-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 (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
1152 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1153 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 (set-syntax-table c-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 (setq major-mode 'c-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 mode-name "C"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1157 local-abbrev-table c-mode-abbrev-table
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1158 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 (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
1160 (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
1161 (c-common-init 'c-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1162 (easy-menu-add c-c-menu)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1163 (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
1164 (c-run-mode-hooks 'c-mode-common-hook 'c-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1166
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1167
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1168 ;; Support for C++
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1169
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1170 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1171 (defvar c++-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1172 "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
1173 (or c++-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1174 (setq c++-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1175 (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
1176
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1177 (defvar c++-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1178 "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
1179 (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
1180 '(("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
1181 ("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
1182 ("catch" "catch" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1183
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1184 (defvar c++-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1185 "Keymap used in c++-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1186 (if c++-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1187 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1188 (setq c++-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1189 ;; add bindings which are only useful for C++
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1190 (define-key c++-mode-map "\C-c\C-e" 'c-macro-expand)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1191 (define-key c++-mode-map "\C-c:" 'c-scope-operator)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1192 (define-key c++-mode-map "<" 'c-electric-lt-gt)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1193 (define-key c++-mode-map ">" 'c-electric-lt-gt))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1194
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1195 (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
1196 (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
1197
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199 (defun c++-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200 "Major mode for editing C++ code.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 To submit a problem report, enter `\\[c-submit-bug-report]' from a
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 c++-mode buffer. This automatically sets up a mail buffer with
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 version information already added. You just need to add a description
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204 of the problem, including a reproducible test case, and send the
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1205 message.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1206
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 To see what version of CC Mode you are running, enter `\\[c-version]'.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1209 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
1210 initialization, then `c++-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 \\{c++-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 (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
1215 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1216 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 (set-syntax-table c++-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 (setq major-mode 'c++-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 mode-name "C++"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1220 local-abbrev-table c++-mode-abbrev-table
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1221 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 (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
1223 (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
1224 (c-common-init 'c++-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1225 (easy-menu-add c-c++-menu)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1226 (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
1227 (c-run-mode-hooks 'c-mode-common-hook 'c++-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1230
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1231 ;; Support for Objective-C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1232
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1233 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1234 (defvar objc-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1235 "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
1236 (or objc-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1237 (setq objc-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1238 (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
1239
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1240 (defvar objc-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1241 "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
1242 (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
1243 '(("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
1244 ("while" "while" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1245
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1246 (defvar objc-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1247 "Keymap used in objc-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1248 (if objc-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1249 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1250 (setq objc-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1251 ;; add bindings which are only useful for Objective-C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1252 (define-key objc-mode-map "\C-c\C-e" 'c-macro-expand))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1253
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1254 (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
1255 (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
1256
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1257 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.m\\'" . objc-mode))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1258
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1259 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1260 (defun objc-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 "Major mode for editing Objective C code.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 To submit a problem report, enter `\\[c-submit-bug-report]' from an
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263 objc-mode buffer. This automatically sets up a mail buffer with
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264 version information already added. You just need to add a description
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 of the problem, including a reproducible test case, and send the
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266 message.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 To see what version of CC Mode you are running, enter `\\[c-version]'.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1270 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
1271 initialization, then `objc-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1274 \\{objc-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 (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
1276 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1277 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278 (set-syntax-table objc-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1279 (setq major-mode 'objc-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1280 mode-name "ObjC"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1281 local-abbrev-table objc-mode-abbrev-table
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1282 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1283 (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
1284 (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
1285 (c-common-init 'objc-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1286 (easy-menu-add c-objc-menu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1287 (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
1288 (c-run-mode-hooks 'c-mode-common-hook 'objc-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1289 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1290
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1292 ;; Support for Java
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1293
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1294 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1295 (defvar java-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1296 "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
1297 (or java-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1298 (setq java-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1299 (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
1300
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1301 (defvar java-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1302 "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
1303 (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
1304 '(("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
1305 ("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
1306 ("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
1307 ("finally" "finally" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1308
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1309 (defvar java-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1310 "Keymap used in java-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1311 (if java-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1312 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1313 (setq java-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1314 ;; add bindings which are only useful for Java
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1315 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1316
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1317 ;; 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
1318 ;; 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
1319 ;; 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
1320 ;; 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
1321 (defconst c-Java-defun-prompt-regexp
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1322 "^[ \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
1323
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1324 (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
1325 (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
1326
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1327 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.java\\'" . java-mode))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1328
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330 (defun java-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 "Major mode for editing Java code.
20135
ecb78a6ccd8d (objc-mode): Bind imenu-create-index-function
Karl Heuer <kwzh@gnu.org>
parents: 19808
diff changeset
1332 To submit a problem report, enter `\\[c-submit-bug-report]' from a
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 java-mode buffer. This automatically sets up a mail buffer with
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 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
1335 of the problem, including a reproducible test case, and send the
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1336 message.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1337
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 To see what version of CC Mode you are running, enter `\\[c-version]'.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1340 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
1341 initialization, then `java-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344 \\{java-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1345 (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
1346 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1347 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1348 (set-syntax-table java-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1349 (setq major-mode 'java-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1350 mode-name "Java"
30401
b85ee58b24ec (c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents: 26817
diff changeset
1351 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
1352 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1353 (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
1354 (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
1355 (c-common-init 'java-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1356 (easy-menu-add c-java-menu)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1357 (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
1358 (c-run-mode-hooks 'c-mode-common-hook 'java-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1362 ;; Support for CORBA's IDL language
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1363
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1364 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1365 (defvar idl-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1366 "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
1367 (or idl-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1368 (setq idl-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1369 (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
1370
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1371 (defvar idl-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1372 "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
1373 (c-define-abbrev-table 'idl-mode-abbrev-table nil)
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1374
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1375 (defvar idl-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1376 "Keymap used in idl-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1377 (if idl-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1378 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1379 (setq idl-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1380 ;; add bindings which are only useful for IDL
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1381 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1382
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1383 (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
1384 (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
1385
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1386 ;;;###autoload (add-to-list 'auto-mode-alist '("\\.idl\\'" . idl-mode))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1387
19253
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1388 ;;;###autoload
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1389 (defun idl-mode ()
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1390 "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
1391 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
1392 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
1393 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
1394 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
1395 message.
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1396
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1397 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
1398
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1399 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
1400 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
1401
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1402 Key bindings:
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1403 \\{idl-mode-map}"
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1404 (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
1405 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1406 (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
1407 (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
1408 (setq major-mode 'idl-mode
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1409 mode-name "IDL"
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1410 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
1411 (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
1412 (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
1413 (c-common-init 'idl-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1414 (easy-menu-add c-idl-menu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1415 ;;(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
1416 (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
1417 (c-update-modeline))
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1418
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1419
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1420 ;; Support for Pike
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1421
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1422 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1423 (defvar pike-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1424 "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
1425 (or pike-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1426 (setq pike-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1427 (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
1428
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1429 (defvar pike-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1430 "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
1431 (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
1432 '(("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
1433 ("while" "while" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1434
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1435 (defvar pike-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1436 "Keymap used in pike-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1437 (if pike-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1438 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1439 (setq pike-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1440 ;; additional bindings
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1441 (define-key pike-mode-map "\C-c\C-e" 'c-macro-expand))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1442
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1443 (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
1444 (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
1445
51747
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1446 ;;;###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
1447 ;;;###autoload (add-to-list 'interpreter-mode-alist '("pike" . pike-mode))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1448
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1449 ;;;###autoload
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1450 (defun pike-mode ()
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1451 "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
1452 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
1453 pike-mode buffer. This automatically sets up a mail buffer with
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1454 version information already added. You just need to add a description
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1455 of the problem, including a reproducible test case, and send the
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1456 message.
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1457
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1458 To see what version of CC Mode you are running, enter `\\[c-version]'.
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1459
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1460 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
1461 initialization, then `pike-mode-hook'.
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1462
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1463 Key bindings:
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1464 \\{pike-mode-map}"
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1465 (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
1466 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1467 (c-initialize-cc-mode t)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1468 (set-syntax-table pike-mode-syntax-table)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1469 (setq major-mode 'pike-mode
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1470 mode-name "Pike"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1471 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
1472 abbrev-mode t)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1473 (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
1474 (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
1475 (c-common-init 'pike-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1476 (easy-menu-add c-pike-menu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1477 ;;(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
1478 (c-run-mode-hooks 'c-mode-common-hook 'pike-mode-hook)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1479 (c-update-modeline))
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1480
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1481
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1482 ;; Support for AWK
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1483
51747
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1484 ;;;###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
1485 ;;;###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
1486 ;;;###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
1487 ;;;###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
1488 ;;;###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
1489
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1490 ;;; 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
1491 ;;; autoload form instead.
58747
e3dfd80003ea (awk-mode autoload): Supply t meaning interactive function.
Richard M. Stallman <rms@gnu.org>
parents: 58198
diff changeset
1492 ;;;###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
1493
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1494 (defvar awk-mode-abbrev-table nil
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1495 "Abbreviation table used in awk-mode buffers.")
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1496 (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
1497 '(("else" "else" c-electric-continued-statement 0)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1498 ("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
1499
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1500 (defvar awk-mode-map ()
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1501 "Keymap used in awk-mode buffers.")
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1502 (if awk-mode-map
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1503 nil
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1504 (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
1505 ;; 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
1506 (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
1507 (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
1508 (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
1509 (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
1510 (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
1511 (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
1512 (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
1513 (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
1514 (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
1515 (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
1516
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1517 (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
1518 (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
1519
94998
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1520 ;; (require 'cc-awk) brings these in.
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1521 (defvar awk-mode-syntax-table)
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1522 (declare-function c-awk-unstick-NL-prop "cc-awk" ())
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1523
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1524 (defun awk-mode ()
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1525 "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
1526 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
1527 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
1528 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
1529 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
1530
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1531 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
1532
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1533 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
1534 initialization, then `awk-mode-hook'.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1535
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1536 Key bindings:
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1537 \\{awk-mode-map}"
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1538 (interactive)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1539 (require 'cc-awk) ; Added 2003/6/10.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1540 (kill-all-local-variables)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1541 (c-initialize-cc-mode t)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1542 (set-syntax-table awk-mode-syntax-table)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1543 (setq major-mode 'awk-mode
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1544 mode-name "AWK"
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1545 local-abbrev-table awk-mode-abbrev-table
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1546 abbrev-mode t)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1547 (use-local-map awk-mode-map)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1548 (c-init-language-vars-for 'awk-mode)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1549 (c-common-init 'awk-mode)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1550 (c-awk-unstick-NL-prop)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1551
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1552 ;; 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
1553 ;; 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
1554 (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
1555
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1556 (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
1557 (c-update-modeline))
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1558
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1559
20146
d7ea5d1fa91b (c-submit-bug-report): Remove
Karl Heuer <kwzh@gnu.org>
parents: 20135
diff changeset
1560 ;; bug reporting
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1561
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1562 (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
1563 "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
1564 "Address(es) for CC Mode bug reports.")
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1565
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1566 (defun c-version ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1567 "Echo the current version of CC Mode in the minibuffer."
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1568 (interactive)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1569 (message "Using CC Mode version %s" c-version)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1570 (c-keep-region-active))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1571
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1572 (defvar c-prepare-bug-report-hooks nil)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1573
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1574 ;; Dynamic variables used by reporter.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1575 (defvar reporter-prompt-for-summary-p)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1576 (defvar reporter-dont-compact-list)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1577
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1578 (defun c-submit-bug-report ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1579 "Submit via mail a bug report on CC Mode."
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1580 (interactive)
20917
c6e2c4d9a305 (c-mode, c++-mode, objc-mode, java-mode): Set
Richard M. Stallman <rms@gnu.org>
parents: 20459
diff changeset
1581 (require 'reporter)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1582 ;; load in reporter
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1583 (let ((reporter-prompt-for-summary-p t)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1584 (reporter-dont-compact-list '(c-offsets-alist))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1585 (style c-indentation-style)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1586 (c-features c-emacs-features))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1587 (and
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1588 (if (y-or-n-p "Do you want to submit a report on CC Mode? ")
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1589 t (message "") nil)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1590 (reporter-submit-bug-report
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1591 c-mode-help-address
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1592 (concat "CC Mode " c-version " (" mode-name ")")
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1593 (let ((vars (append
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1594 c-style-variables
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1595 '(c-buffer-is-cc-mode
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1596 c-tab-always-indent
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1597 c-syntactic-indentation
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1598 c-syntactic-indentation-in-macros
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1599 c-ignore-auto-fill
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1600 c-auto-align-backslashes
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1601 c-backspace-function
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1602 c-delete-function
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1603 c-electric-pound-behavior
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1604 c-default-style
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1605 c-enable-xemacs-performance-kludge-p
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1606 c-old-style-variable-behavior
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1607 defun-prompt-regexp
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1608 tab-width
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1609 comment-column
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1610 parse-sexp-ignore-comments
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1611 parse-sexp-lookup-properties
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1612 lookup-syntax-properties
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1613 ;; A brain-damaged XEmacs only variable that, if
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1614 ;; set to nil can cause all kinds of chaos.
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1615 signal-error-on-buffer-boundary
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1616 ;; 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
1617 auto-fill-mode
30401
b85ee58b24ec (c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents: 26817
diff changeset
1618 auto-fill-function
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1619 filladapt-mode
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1620 comment-multi-line
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1621 comment-start-skip
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1622 fill-prefix
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1623 fill-column
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1624 paragraph-start
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1625 adaptive-fill-mode
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1626 adaptive-fill-regexp)
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1627 nil)))
85185
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1628 (mapc (lambda (var) (unless (boundp var)
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1629 (setq vars (delq var vars))))
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1630 '(signal-error-on-buffer-boundary
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1631 filladapt-mode
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1632 defun-prompt-regexp
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1633 font-lock-mode
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1634 font-lock-maximum-decoration
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1635 parse-sexp-lookup-properties
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1636 lookup-syntax-properties))
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1637 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
1638 (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
1639 (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
1640 (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
1641 style c-features)))))))
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1642
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1643
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1644 (cc-provide 'cc-mode)
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52108
diff changeset
1645
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93802
diff changeset
1646 ;; arch-tag: 7825e5c4-fd09-439f-a04d-4c13208ba3d7
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1647 ;;; cc-mode.el ends here