annotate lisp/progmodes/cc-mode.el @ 97384:60d1b6f5616e

*** empty log message ***
author Glenn Morris <rgm@gnu.org>
date Sun, 10 Aug 2008 00:59:33 +0000
parents 9637a590d441
children a9dc0e7c3f2b
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,
79717
a1342e6e097a Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78354
diff changeset
4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
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
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; 1987 Dave Detlefs and Stewart Clamen
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; 1985 Richard M. Stallman
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
12 ;; Maintainer: bug-cc-mode@gnu.org
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; 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
14 ;; Keywords: c languages oop
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; This file is part of GNU Emacs.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17
94673
52b7a8c22af5 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94293
diff changeset
18 ;; 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
19 ;; 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
20 ;; 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
21 ;; (at your option) any later version.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; GNU Emacs is distributed in the hope that it will be useful,
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 ;; GNU General Public License for more details.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 ;; 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
29 ;; 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
30
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
31 ;;; Commentary:
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
32
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
33 ;; 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
34 ;; NOTE: See the accompanying texinfo manual for details on using this mode!
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
35 ;; Note: The version string is in cc-defs.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; This package provides GNU Emacs major modes for editing C, C++,
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
38 ;; Objective-C, Java, CORBA's IDL, Pike and AWK code. As of the
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
39 ;; latest Emacs and XEmacs releases, it is the default package for
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
40 ;; editing these languages. This package is called "CC Mode", and
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
41 ;; should be spelled exactly this way.
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
42
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
43 ;; CC Mode supports K&R and ANSI C, ANSI C++, Objective-C, Java,
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
44 ;; CORBA's IDL, Pike and AWK with a consistent indentation model
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
45 ;; across all modes. This indentation model is intuitive and very
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
46 ;; flexible, so that almost any desired style of indentation can be
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
47 ;; supported. Installation, usage, and programming details are
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
48 ;; contained in an accompanying texinfo manual.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; 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
51 ;; cplus-md1.el..
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 ;; 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
54 ;; 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
55 ;; 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
56 ;; 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
57 ;; 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
58 ;; 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
59 ;; personal accounts; we reserve the right to ignore such email!
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; 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
62 ;; Without their patience, testing, insight, code contributions, and
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; encouragement CC Mode would be a far inferior package.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; You can get the latest version of CC Mode, including PostScript
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 ;; documentation and separate individual files from:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 ;;
30401
b85ee58b24ec (c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents: 26817
diff changeset
68 ;; http://cc-mode.sourceforge.net/
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;;
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
70 ;; 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
71 ;; visiting
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
72 ;;
30401
b85ee58b24ec (c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents: 26817
diff changeset
73 ;; http://lists.sourceforge.net/mailman/listinfo/cc-mode-announce
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 ;;; Code:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76
94998
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
77 ;; For Emacs < 22.2.
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
78 (eval-and-compile
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
79 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
80
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
81 (eval-when-compile
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
82 (let ((load-path
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
83 (if (and (boundp 'byte-compile-dest-file)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
84 (stringp byte-compile-dest-file))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
85 (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
86 load-path)))
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
87 (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
88
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
89 (cc-require 'cc-defs)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
90 (cc-require-when-compile 'cc-langs)
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
91 (cc-require 'cc-vars)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
92 (cc-require 'cc-engine)
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
93 (cc-require 'cc-styles)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
94 (cc-require 'cc-cmds)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
95 (cc-require 'cc-align)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
96 (cc-require 'cc-menus)
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
97
62641
27b53b1903b6 2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 62046
diff changeset
98 ;; Silence the compiler.
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
99 (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
100 (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
101 (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
102 (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
103
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
104 ;; 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
105 ;; font-lock.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
106 (cc-bytecomp-defvar font-lock-defaults)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
107 (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
108
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
109 ;; 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
110 ;; 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
111 (cc-external-require 'easymenu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
112
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
113 ;; 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
114 ;; version in the dist.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
115 (autoload 'c-subword-mode "cc-subword"
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
116 "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
117
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
118 ;; 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
119 ;; 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
120 ; (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
121 ; '
60304f6ae360 * progmodes/cc-awk.el, cc-defs.el, cc-fonts.el, cc-langs.el,
Alan Mackenzie <acm@muc.de>
parents: 69140
diff changeset
122 (require 'cc-fonts) ;)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
123
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
124 ;; 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
125 ;; directives for the interface functions.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
126 (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
127 (autoload 'c-init-language-vars "cc-langs" nil nil 'macro)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
18847
dd7615d21a97 (c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18720
diff changeset
130 ;; 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
131 ;; 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
132 ;; use:
dd7615d21a97 (c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18720
diff changeset
133 ;;
dd7615d21a97 (c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18720
diff changeset
134 ;; (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
135 ;;
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 ;; 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
137 ;;
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
138 ;; (c-initialize-cc-mode t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
139 ;; (c-init-language-vars some-mode)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
140 ;; (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
141 ;;
52108
5a4fdabed57e 2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 51747
diff changeset
142 ;; 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
143 ;; 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
144 ;; 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
145 ;; '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
146 ;; `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
147 ;; 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
148 ;;
5a4fdabed57e 2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 51747
diff changeset
149 ;; 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
150 ;; `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
151 ;;
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
152 ;; 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
153 ;; 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
154 ;; derived-mode-ex.el>.
18847
dd7615d21a97 (c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18720
diff changeset
155
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
156 (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
157 (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
158
52108
5a4fdabed57e 2003-08-03 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 51747
diff changeset
159 (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
160 "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
161 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
162 `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
163 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
164 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
165 (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
166 ((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 '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
168 ((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
169 ((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
170 ((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
171 ((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
172 (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
173
19253
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
174 ;;;###autoload
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
175 (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
176 "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
177 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
178 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
179 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
180 `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
181 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
182
19299
7cd7373cc021 (c-initialize-cc-mode): Set c-buffer-is-cc-mode to t.
Richard M. Stallman <rms@gnu.org>
parents: 19253
diff changeset
183 (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
184
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
185 (let ((initprop 'cc-mode-is-initialized)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
186 c-initialization-ok)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
187 (unless (get 'c-initialize-cc-mode initprop)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
188 (unwind-protect
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
189 (progn
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
190 (put 'c-initialize-cc-mode initprop t)
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
191 (c-initialize-builtin-style)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
192 (run-hooks 'c-initialization-hook)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
193 ;; Fix obsolete variables.
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
194 (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
195 (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
196 (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
197 (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
198 (setq c-initialization-ok t))
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
199 ;; 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
200 (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
201
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
202 (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
203 (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
204
dd7615d21a97 (c-initialize-cc-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 18720
diff changeset
205
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
206 ;;; Common routines.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
207
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
208 (defvar c-mode-base-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
209 "Keymap shared by all CC Mode related modes.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
210
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
211 (defun c-make-inherited-keymap ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
212 (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
213 ;; 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
214 ;; 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
215 ;; 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
216 (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
217 ;; 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
218 ((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
219 (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
220 ;; XEmacs
62641
27b53b1903b6 2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 62046
diff changeset
221 ((cc-bytecomp-fboundp 'set-keymap-parents)
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
222 (set-keymap-parents map c-mode-base-map))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
223 ;; incompatible
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
224 (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
225 map))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
226
44728
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
227 (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
228 ;; 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
229 ;; 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
230 ;; (currently only Emacs >= 21.2).
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
231 (let ((table (or (symbol-value name)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
232 (progn (define-abbrev-table name nil)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
233 (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
234 (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
235 (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
236 (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
237 (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
238 (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
239 (setq defs (cdr defs)))))
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
240 (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
241
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
242 (defun c-bind-special-erase-keys ()
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
243 ;; 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
244 ;; 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
245 (if normal-erase-is-backspace
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
246 (progn
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
247 (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
248 'c-hungry-delete-forward)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
249 (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
250 'c-hungry-delete-backwards))
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
251 (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
252 'c-hungry-delete-backwards)
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
253 (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
254 'c-hungry-delete-forward)))
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
255
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
256 (if c-mode-base-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
257 nil
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
258
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
259 (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
260
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
261 ;; 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
262 ;; backward-kill-word.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
263 (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
264 (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
265 (substitute-key-definition 'backward-sentence
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
266 'c-beginning-of-statement
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
267 c-mode-base-map global-map)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
268 (substitute-key-definition 'forward-sentence
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
269 'c-end-of-statement
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
270 c-mode-base-map global-map)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
271 (substitute-key-definition 'indent-new-comment-line
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
272 'c-indent-new-comment-line
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
273 c-mode-base-map global-map)
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
274 (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
275 ;; 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
276 ;; here?
f4b3c97a692f * progmodes/cc-mode.el (c-mode-base-map): Use
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78354
diff changeset
277 'c-indent-line-or-region
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
278 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
279 (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
280 ;; 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
281 ;; 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
282 (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
283 '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
284 c-mode-base-map global-map))
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
285
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
286 ;; 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
287 ;; (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
288 (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
289 (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
290 (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
291
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
292 (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
293 (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
294 (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
295
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
296 ;; 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
297 ;; `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
298 ;; 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
299 ;; 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
300 ;; `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
301 ;; 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
302 ;; `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
303 ;; do the actual filling work.
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
304 (substitute-key-definition 'fill-paragraph 'c-fill-paragraph
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
305 c-mode-base-map global-map)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
306 ;; In XEmacs the default fill function is called
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
307 ;; fill-paragraph-or-region.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
308 (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
309 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
310
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
311 ;; 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
312 ;; `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
313 ;; `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
314 ;; 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
315 ;; `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
316 ;; <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
317 ;; 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
318 ;; 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
319 ;; 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
320 ;; for the same reason.
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
321
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
322 ;; 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
323 ;; 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
324 ;; 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
325 ;; 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
326 (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
327 (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
328 (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
329 (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
330 (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
331 (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
332 (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
333 'c-hungry-delete-forward)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
334 (when (boundp 'normal-erase-is-backspace)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
335 ;; 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
336 ;; 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
337 ;; 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
338 ;; as appropriate.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
339 (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
340 (c-bind-special-erase-keys))
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
341
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
342 (when (fboundp 'delete-forward-p)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
343 ;; 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
344 ;; 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
345 ;; 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
346 ;; 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
347 ;; `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
348 (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
349 (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
350 (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
351 (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
352 (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
353 '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
354 (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
355 'c-hungry-delete-backwards))
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
356
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
357 (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
358 (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
359 (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
360 (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
361 (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
362 (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
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-colon)
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-paren)
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
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
368 (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
369 (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
370 (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
371 (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
372 (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
373 (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
374 (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
375 (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
376 ;; (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
377 (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
378 ;; conflicts with OOBR
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
379 ;;(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
380 ;; (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
381 (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
382 )
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 ;; 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
385 (cc-bytecomp-defvar outline-level)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
386
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
387 (defun c-mode-menu (modestr)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
388 "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
389 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
390 instead of \"C\".
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
391
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
392 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
393 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
394 (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
395
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
396 ;; 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
397 ;; 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
398 ;; 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
399 ;; 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
400 (defalias 'c-populate-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
401 (cc-eval-when-compile
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
402 (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
403 (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
404
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
405 ;; CAUTION: Try to avoid installing things on
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
406 ;; `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
407 ;; 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
408 ;; 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
409 ;; 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
410 ;; 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
411 ;; 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
412 ;;
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
413 ;; (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
414 ;; more.
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
415
76399
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
416 (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
417 ;; 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
418 ;; `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
419 ;; 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
420 (save-excursion
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
421 (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
422 (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
423 (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
424 (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
425 (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
426 (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
427 t))))
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
428
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
429 (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
430 ;; 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
431 ;; 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
432 ;; 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
433 ;; be present.
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
434 (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
435 (save-excursion
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
436 (progn
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
437 (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
438 (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
439 (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
440 (/= (point) beg)
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
441 (= (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
442 (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
443 (point) beg)))
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
444 (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
445 (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
446 (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
447 (/= (point) end)
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
448 (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
449 (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
450 end (point))))))))
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
451
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
452 ;; 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
453 ;; 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
454 ;; 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
455 ;;
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
456 ;; (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
457 ;;
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
458 ;; 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
459 ;; pos 96.
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
460 ;;
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
461 ;; 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
462 ;; 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
463 ;; 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
464 ;;
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
465 ;; 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
466 ;; 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
467 ;;
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
468 ;; 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
469 ;; 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
470 (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
471 (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
472
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
473 (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
474 "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
475 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
476 packages that embed CC Mode.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
477
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
478 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
479 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
480 same format as `c-default-style'.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
481
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
482 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
483 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
484 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
485
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
486 (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
487
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
488 ;; 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
489 ;; indentation style.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
490 (make-local-variable 'parse-sexp-ignore-comments)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
491 (make-local-variable 'indent-line-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
492 (make-local-variable 'indent-region-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
493 (make-local-variable 'normal-auto-fill-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
494 (make-local-variable 'comment-start)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
495 (make-local-variable 'comment-end)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
496 (make-local-variable 'comment-start-skip)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
497 (make-local-variable 'comment-multi-line)
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
498 (make-local-variable 'comment-line-break-function)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
499 (make-local-variable 'paragraph-start)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
500 (make-local-variable 'paragraph-separate)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
501 (make-local-variable 'paragraph-ignore-fill-prefix)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
502 (make-local-variable 'adaptive-fill-mode)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
503 (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
504
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
505 ;; 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
506 (setq parse-sexp-ignore-comments t
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
507 indent-line-function 'c-indent-line
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
508 indent-region-function 'c-indent-region
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
509 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
510 comment-multi-line t
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
511 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
512
49654
b025ca405045 (c-basic-common-init): Install `c-fill-paragraph' on
Martin Stjernholm <mast@lysator.liu.se>
parents: 49496
diff changeset
513 ;; 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
514 ;; 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
515 ;; 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
516 (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
517 (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
518
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
519 (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
520 (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
521 (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
522 ;; 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
523 ;; 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
524 ;; that.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
525 ;;
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
526 ;; 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
527 ;; 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
528 ;; 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
529
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
530 ;; Emacs.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
531 (when (boundp 'parse-sexp-lookup-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
532 (make-local-variable 'parse-sexp-lookup-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
533 (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
534
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
535 ;; Same as above for XEmacs.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
536 (when (boundp 'lookup-syntax-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
537 (make-local-variable 'lookup-syntax-properties)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
538 (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
539
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
540 ;; 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
541 ;; property on each character.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
542 (when (boundp 'text-property-default-nonsticky)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
543 (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
544 (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
545 (if elem
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
546 (setcdr elem t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
547 (setq text-property-default-nonsticky
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
548 (cons '(syntax-table . t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
549 text-property-default-nonsticky))))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
550 (setq text-property-default-nonsticky
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
551 (cons '(c-type . t)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
552 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
553
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
554 ;; In Emacs 21 and later it's possible to turn off the ad-hoc
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
555 ;; heuristic that open parens in column 0 are defun starters. Since
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
556 ;; we have c-state-cache, that heuristic isn't useful and only causes
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
557 ;; trouble, so turn it off.
74702
2d3815650232 (c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents: 74372
diff changeset
558 ;; 2006/12/17: This facility is somewhat confused, and doesn't really seem
2d3815650232 (c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents: 74372
diff changeset
559 ;; helpful. Comment it out for now.
2d3815650232 (c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents: 74372
diff changeset
560 ;; (when (memq 'col-0-paren c-emacs-features)
2d3815650232 (c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents: 74372
diff changeset
561 ;; (make-local-variable 'open-paren-in-column-0-is-defun-start)
2d3815650232 (c-basic-common-init): don't set open-paren-in-column-0-is-defun-start to
Alan Mackenzie <acm@muc.de>
parents: 74372
diff changeset
562 ;; (setq open-paren-in-column-0-is-defun-start nil))
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
563
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
564 (c-clear-found-types)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
565
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
566 ;; now set the mode style based on default-style
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
567 (let ((style (if (stringp default-style)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
568 default-style
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
569 (or (cdr (assq mode default-style))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
570 (cdr (assq 'other default-style))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
571 "gnu"))))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
572 ;; 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
573 ;; 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
574 ;; 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
575 ;; 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
576 ;; 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
577 ;; 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
578 ;; style init procedure.)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
579 (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
580 (and (not c-style-variables-are-local-p)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
581 c-indentation-style
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
582 (not (string-equal c-indentation-style
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
583 style)))))))
44728
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
584 (c-setup-paragraph-variables)
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
585
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
586 ;; 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
587 ;; buffer local value has its own alist structure.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
588 (setq c-offsets-alist (copy-alist c-offsets-alist))
44728
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
589
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
590 ;; 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
591 (make-local-variable 'comment-indent-function)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
592 (setq comment-indent-function 'c-comment-indent)
44728
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
593
69140
3d8b060d10fb cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents: 68773
diff changeset
594 ;; ;; Put submode indicators onto minor-mode-alist, but only once.
3d8b060d10fb cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents: 68773
diff changeset
595 ;; (or (assq 'c-submode-indicators minor-mode-alist)
3d8b060d10fb cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents: 68773
diff changeset
596 ;; (setq minor-mode-alist
3d8b060d10fb cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents: 68773
diff changeset
597 ;; (cons '(c-submode-indicators c-submode-indicators)
3d8b060d10fb cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents: 68773
diff changeset
598 ;; minor-mode-alist)))
3d8b060d10fb cc-align.el, cc-awk.el, cc-bytecomp.el, cc-cmds.el, cc-compat.el,
Alan Mackenzie <acm@muc.de>
parents: 68773
diff changeset
599 (c-update-modeline)
44728
7a3ac6c387fe CC Mode update to version 5.29. This is for testing; it's not a released
Martin Stjernholm <mast@lysator.liu.se>
parents: 42390
diff changeset
600
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
601 ;; Install the functions that ensure that various internal caches
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
602 ;; don't become invalid due to buffer changes.
76399
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
603 (make-local-hook 'before-change-functions)
ec0b1fedc030 (c-unfind-enclosing-token, c-unfind-coalesced-tokens, c-before-change): new
Alan Mackenzie <acm@muc.de>
parents: 75347
diff changeset
604 (add-hook 'before-change-functions 'c-before-change nil t)
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
605 (make-local-hook 'after-change-functions)
80459
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
606 (add-hook 'after-change-functions 'c-after-change nil t)
80470
3f1db83024f5 (c-basic-common-init): Don't set
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80459
diff changeset
607 (set (make-local-variable 'font-lock-extend-after-change-region-function)
80459
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
608 'c-extend-after-change-region)) ; Currently (2008-04), only used by AWK.
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
609
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
610 (defun c-setup-doc-comment-style ()
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
611 "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
612 (when (and (featurep 'font-lock)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
613 (symbol-value 'font-lock-mode))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
614 ;; 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
615 (font-lock-mode 0)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
616 (font-lock-mode 1)))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
617
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
618 (defun c-common-init (&optional mode)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
619 "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
620 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
621 `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
622 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
623 Mode to operate correctly.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
624
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
625 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
626 `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
627 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
628
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
629 (unless mode
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
630 ;; 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
631 ;; 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
632 (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
633
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
634 (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
635 (when mode
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
636 ;; 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
637 (c-font-lock-init))
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
638
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
639 ;; 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
640 (save-restriction
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
641 (widen)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
642 (save-excursion
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
643 (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
644 (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
645 (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
646 (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
647 (- (point-max) (point-min))))))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
648
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
649 (make-local-variable 'outline-regexp)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
650 (make-local-variable 'outline-level)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
651 (setq outline-regexp "[^#\n\^M]"
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
652 outline-level 'c-outline-level)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
653
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
654 (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
655 (when rfn
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
656 (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
657 (and (cdr rfn)
a88429b12685 (c-common-init): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents: 58747
diff changeset
658 (setq require-final-newline mode-require-final-newline)))))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
659
97140
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
660 (defun c-before-hack-hook ()
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
661 "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
662 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
663 `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
664
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
665 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
666 (when c-buffer-is-cc-mode
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
667 (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
668 (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
669 (when stile
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
670 (or (stringp stile) (error "c-file-style is not a string"))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
671 (c-set-style stile))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
672 (when offsets
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
673 (mapc
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
674 (lambda (langentry)
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
675 (let ((langelem (car langentry))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
676 (offset (cdr langentry)))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
677 (c-set-offset langelem offset)))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
678 offsets)))))
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
679
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
680 (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
681 ;; 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
682 ;; 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
683 ;; `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
684 ;; 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
685 ;; 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
686 ;;
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
687 ;; 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
688 ;; 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
689 (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
690 (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
691 (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
692 (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
693 (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
694 (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
695 ;; 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
696 ;; 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
697 (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
698 (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
699 (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
700 (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
701 (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
702 (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
703 (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
704 (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
705 (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
706
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 (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
708 (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
709 (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
710 "\\(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
711 (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
712 "$")
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 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
714 (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
715 (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
716
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
717 ;; 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
718 (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
719 (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
720 (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
721 (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
722 (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
723 (unless (eobp)
5131a632194a (c-remove-any-local-eval-or-mode-variables): When removing lines, also
Alan Mackenzie <acm@muc.de>
parents: 77612
diff changeset
724 (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
725
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
726 (defun c-postprocess-file-styles ()
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
727 "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
728 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
729 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
730 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
731 it finds in `c-file-offsets'.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
732
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
733 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
734
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
735 ;; 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
736 (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
737 (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
738 (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
739 (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
740 (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
741 (error "c-file-style is not a string"))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
742 (c-set-style 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
45632
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
744 (and c-file-offsets
85185
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
745 (mapc
45632
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
746 (lambda (langentry)
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
747 (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
748 (offset (cdr langentry)))
9d60ac21968f (c-postprocess-file-styles): Do nothing except in CC modes.
Richard M. Stallman <rms@gnu.org>
parents: 44728
diff changeset
749 (c-set-offset langelem offset)))
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
750 c-file-offsets))
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
751 ;; 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
752 ;; 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
753 ;; 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
754 ;; 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
755 ;; 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
756 ;; `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
757 ;; 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
758 ;; 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
759 ;;
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 ;; 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
761 ;; `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
762 ;; 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
763 ;; section.
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
764 (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
765 (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
766 (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
767 (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
768 (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
769 nil))))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
770
97140
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
771 (if (boundp 'before-hack-local-variables-hook)
9637a590d441 (c-before-hack-hook): New function
Chong Yidong <cyd@stupidchicken.com>
parents: 96966
diff changeset
772 (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
773 (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
774
62641
27b53b1903b6 2005-05-23 Martin Stjernholm <bug-cc-mode@gnu.org>
Martin Stjernholm <mast@lysator.liu.se>
parents: 62046
diff changeset
775 (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
776 ;; 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
777 ;; 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
778 (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
779 `(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
780 `(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
781
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
782
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
783 ;;; 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
784
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
785 ;; 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
786 ;; 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
787 ;; 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
788 ;; `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
789 (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
790 (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
791 (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
792 (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
793
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
794 ;; 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
795 ;; 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
796 ;; 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
797 (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
798 (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
799 (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
800 (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
801
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
802 (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
803 ;; 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
804 ;; 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
805 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
806 ;; 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
807 ;; 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
808 ;; meaningless.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
809 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
810 ;; 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
811 ;; `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
812 ;; before change function.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
813 (goto-char beg)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
814 (c-beginning-of-macro)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
815 (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
816
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
817 (goto-char end)
80170
3e4f6980296d (c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents: 80160
diff changeset
818 (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
819 (c-end-of-macro))
3e4f6980296d (c-extend-region-for-CPP): always set c-old-EOM.
Alan Mackenzie <acm@muc.de>
parents: 80160
diff changeset
820 (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
821
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
822 (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
823 ;; 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
824 ;; "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
825 ;; 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
826 ;; this region.
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
827 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
828 ;; 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
829 ;; 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
830 ;; obtrusive.
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
831 (save-excursion
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
832 (let (s)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
833 (while
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
834 (progn
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
835 (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
836 (cond
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
837 ((< (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
838 (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
839 t)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
840 ((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
841 (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
842 t)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
843 ((> (nth 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
844 (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
845 t)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
846 (t nil)))))))
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
847
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
848 (defun c-neutralize-syntax-in-CPP (begg endd old-len)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
849 ;; "Neutralize" every preprocessor line wholly or partially in the changed
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
850 ;; region. "Restore" lines which were CPP lines before the change and are
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
851 ;; no longer so; these can be located from the Buffer local variables
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
852 ;; c-old-[EB]OM.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
853 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
854 ;; 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
855 ;; 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
856 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
857 ;; 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
858 ;; 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
859 ;; 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
860 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
861 ;; 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
862 ;; 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
863 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
864 ;; 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
865 ;;
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
866 ;; 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
867 ;;
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
868 ;; This function might make hidden buffer changes.
80258
54ec3d566dbb (c-neutralize-syntax-in-CPP): Fix coding bug.
Alan Mackenzie <acm@muc.de>
parents: 80213
diff changeset
869 (c-save-buffer-state (limits mbeg+1 beg end)
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
870 ;; First determine the region, (beg end), which may need "neutralizing".
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
871 ;; This may not start inside a string, comment, or macro.
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
872 (goto-char c-old-BOM) ; already set to old start of macro or begg.
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
873 (setq beg
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
874 (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
875 (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
876 (point)))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
877
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
878 (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
879 (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
880 (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
881 (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
882 (c-end-of-macro))
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
883 (setq end (max (+ (- c-old-EOM old-len) (- endd begg))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
884 (point)))
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
885
80160
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
886 ;; Clear all old punctuation properties
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
887 (c-clear-char-property-with-value beg end 'syntax-table '(1))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
888
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
889 (goto-char beg)
80587
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
890 (let ((pps-position beg) pps-state)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
891 (while (and (< (point) end)
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
892 (search-forward-regexp c-anchored-cpp-prefix end t))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
893 ;; 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
894 (setq pps-state
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
895 (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
896 pps-position (point))
52c723879a4b * progmodes/cc-mode.el (c-postprocess-file-styles): Throw an error
Alan Mackenzie <acm@muc.de>
parents: 80470
diff changeset
897 (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
898 (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
899 (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
900 (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
901 (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
902 (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
903
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
904 (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
905 ;; 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
906 ;; 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
907 ;; 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
908 ;; 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
909 ;; confirm as stale.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
910 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
911 ;; 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
912 ;; 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
913 ;; 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
914 ;; rigourous syntactic analysis.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
915
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
916 ;; 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
917 ;; 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
918 ;; 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
919 ;; isn't critical.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
920 (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
921 (save-restriction
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
922 (save-match-data
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
923 (widen)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
924 (save-excursion
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
925 ;; 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
926 (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
927 (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
928 ;; 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
929 (when (< beg end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
930 (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
931 ;; 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
932 ;; 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
933 ;; "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
934 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
935 ;; 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
936 ;; 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
937 (let (lim
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
938 type type-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
939 marked-id term-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
940 (end1
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
941 (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
942 (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
943 end)))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
944 (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
945 ;; 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
946 (while
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
947 (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
948 (> (point) (point-min))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
949 (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
950 '(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
951 (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
952
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
953 ;; 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
954 (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
955 (setq type-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
956 (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
957 end1
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
958 (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
959 (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
960
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
961 (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
962 ;; 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
963 (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
964 (setq marked-id
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
965 (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
966 (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
967 (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
968
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
969 (goto-char end1)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
970 (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
971 (setq lim (point))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
972 (setq term-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
973 (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
974 (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
975 (list type marked-id
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
976 type-pos term-pos
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
977 (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
978 (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
979
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
980 (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
981 c-new-END end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
982 (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
983 (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
984 ))))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
985
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
986 (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
987 ;; 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
988 ;; 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
989 ;; 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
990 ;; 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
991 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
992 ;; 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
993 ;; 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
994 ;; 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
995 ;; has already been executed.
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
996 ;;
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
997 ;; 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
998 ;; 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
999
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1000 (c-save-buffer-state ()
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1001 ;; 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
1002 ;; 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
1003 ;; 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
1004 (save-restriction
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1005 (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
1006 (widen)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1007
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1008 (when (> end (point-max))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1009 ;; 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
1010 ;; 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
1011 ;; (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
1012 ;; work).
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1013 (setq end (point-max))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1014 (when (> beg end)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1015 (setq beg end)))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1016
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1017 (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
1018 (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
1019 (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
1020 (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
1021
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1022 (when c-recognize-<>-arglists
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1023 (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
1024
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1025 (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
1026 (save-excursion
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1027 (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
1028
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1029 (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
1030 ;; 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
1031 (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
1032 (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
1033
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1034 (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
1035 "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
1036 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
1037 `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
1038
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1039 (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
1040 (setq font-lock-defaults
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1041 `(,(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
1042 ;; 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
1043 'awk-font-lock-keywords
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1044 (mapcar 'c-mode-symbol
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1045 '("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
1046 "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
1047 nil nil
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1048 ,c-identifier-syntax-modifications
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1049 c-beginning-of-syntax
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1050 (font-lock-lines-before . 1)
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1051 (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
1052 . c-mark-function)))
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1053
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1054 (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
1055 (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
1056
80459
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1057 (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
1058 "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
1059 ;; 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
1060 ;; 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
1061 ;; 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
1062 ;; 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
1063 ;; instead.
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1064 ;;
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1065 ;; Of the seven CC Mode languages, currently (2008-04) only AWK Mode makes
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1066 ;; non-null use of this function.
9b3c86e7f6b0 (c-extend-after-change-region): New function, used in
Alan Mackenzie <acm@muc.de>
parents: 80258
diff changeset
1067 (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
1068
3ca9638d2306 Set of changes so that "obtrusive" syntactic elements in a
Alan Mackenzie <acm@muc.de>
parents: 79717
diff changeset
1069
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1070 ;; Support for C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1071
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1072 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1073 (defvar c-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1074 "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
1075 (or c-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1076 (setq c-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1077 (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
1078
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1079 (defvar c-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1080 "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
1081 (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
1082 '(("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
1083 ("while" "while" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1084
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1085 (defvar c-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1086 "Keymap used in c-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1087 (if c-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1088 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1089 (setq c-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1090 ;; add bindings which are only useful for C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1091 (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
1092 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1093
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1094 (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
1095 (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
1096
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1097 ;; 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
1098 ;; `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
1099 ;; 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
1100 ;; 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
1101 ;; 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
1102
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1103 ;; The the extension ".C" is associated to C++ while the lowercase
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1104 ;; variant goes to C. On case insensitive file systems, this means
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1105 ;; 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
1106 ;; 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
1107 ;; 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
1108 ;; 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
1109 ;;;###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
1110 ;;;###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
1111 ;;;###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
1112
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1113 ;;;###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
1114
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1115 ;; 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
1116 ;; 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
1117 ;; 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
1118 ;;;###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
1119 ;;;###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
1120
96966
729f146c194c (auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96384
diff changeset
1121 ;; 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
1122 ;;;###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
1123 ;;;###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
1124
729f146c194c (auto-mode-alist): Add .i and .ii files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96384
diff changeset
1125
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 (defun c-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 "Major mode for editing K&R and ANSI C code.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 To submit a problem report, enter `\\[c-submit-bug-report]' from a
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 c-mode buffer. This automatically sets up a mail buffer with version
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 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
1132 problem, including a reproducible test case, and send the message.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134 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
1135
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1136 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
1137 initialization, then `c-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1139 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 \\{c-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 (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
1142 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1143 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 (set-syntax-table c-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 (setq major-mode 'c-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146 mode-name "C"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1147 local-abbrev-table c-mode-abbrev-table
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1148 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149 (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
1150 (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
1151 (c-common-init 'c-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1152 (easy-menu-add c-c-menu)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1153 (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
1154 (c-run-mode-hooks 'c-mode-common-hook 'c-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1158 ;; Support for C++
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1159
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1160 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1161 (defvar c++-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1162 "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
1163 (or c++-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1164 (setq c++-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1165 (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
1166
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1167 (defvar c++-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1168 "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
1169 (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
1170 '(("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
1171 ("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
1172 ("catch" "catch" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1173
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1174 (defvar c++-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1175 "Keymap used in c++-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1176 (if c++-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1177 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1178 (setq c++-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1179 ;; add bindings which are only useful for C++
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1180 (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
1181 (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
1182 (define-key c++-mode-map "<" 'c-electric-lt-gt)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1183 (define-key c++-mode-map ">" 'c-electric-lt-gt))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1184
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1185 (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
1186 (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
1187
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 (defun c++-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190 "Major mode for editing C++ code.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1191 To submit a problem report, enter `\\[c-submit-bug-report]' from a
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1192 c++-mode buffer. This automatically sets up a mail buffer with
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1193 version information already added. You just need to add a description
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1194 of the problem, including a reproducible test case, and send the
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1195 message.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 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
1198
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1199 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
1200 initialization, then `c++-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 \\{c++-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204 (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
1205 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1206 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 (set-syntax-table c++-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1208 (setq major-mode 'c++-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209 mode-name "C++"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1210 local-abbrev-table c++-mode-abbrev-table
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1211 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 (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
1213 (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
1214 (c-common-init 'c++-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1215 (easy-menu-add c-c++-menu)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1216 (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
1217 (c-run-mode-hooks 'c-mode-common-hook 'c++-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1221 ;; Support for Objective-C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1222
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1223 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1224 (defvar objc-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1225 "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
1226 (or objc-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1227 (setq objc-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1228 (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
1229
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1230 (defvar objc-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1231 "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
1232 (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
1233 '(("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
1234 ("while" "while" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1235
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1236 (defvar objc-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1237 "Keymap used in objc-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1238 (if objc-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1239 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1240 (setq objc-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1241 ;; add bindings which are only useful for Objective-C
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1242 (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
1243
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1244 (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
1245 (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
1246
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1247 ;;;###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
1248
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1250 (defun objc-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1251 "Major mode for editing Objective C code.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1252 To submit a problem report, enter `\\[c-submit-bug-report]' from an
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1253 objc-mode buffer. This automatically sets up a mail buffer with
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1254 version information already added. You just need to add a description
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 of the problem, including a reproducible test case, and send the
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 message.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258 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
1259
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1260 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
1261 initialization, then `objc-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264 \\{objc-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 (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
1266 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1267 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 (set-syntax-table objc-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269 (setq major-mode 'objc-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 mode-name "ObjC"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1271 local-abbrev-table objc-mode-abbrev-table
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1272 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 (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
1274 (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
1275 (c-common-init 'objc-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1276 (easy-menu-add c-objc-menu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1277 (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
1278 (c-run-mode-hooks 'c-mode-common-hook 'objc-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1279 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1280
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1282 ;; Support for Java
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1283
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1284 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1285 (defvar java-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1286 "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
1287 (or java-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1288 (setq java-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1289 (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
1290
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1291 (defvar java-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1292 "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
1293 (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
1294 '(("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
1295 ("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
1296 ("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
1297 ("finally" "finally" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1298
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1299 (defvar java-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1300 "Keymap used in java-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1301 (if java-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1302 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1303 (setq java-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1304 ;; add bindings which are only useful for Java
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1305 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1306
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1307 ;; 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
1308 ;; 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
1309 ;; 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
1310 ;; 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
1311 (defconst c-Java-defun-prompt-regexp
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1312 "^[ \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
1313
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1314 (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
1315 (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
1316
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1317 ;;;###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
1318
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1319 ;;;###autoload
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 (defun java-mode ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321 "Major mode for editing Java code.
20135
ecb78a6ccd8d (objc-mode): Bind imenu-create-index-function
Karl Heuer <kwzh@gnu.org>
parents: 19808
diff changeset
1322 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
1323 java-mode buffer. This automatically sets up a mail buffer with
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324 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
1325 of the problem, including a reproducible test case, and send the
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326 message.
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1328 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
1329
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1330 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
1331 initialization, then `java-mode-hook'.
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 Key bindings:
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 \\{java-mode-map}"
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335 (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
1336 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1337 (c-initialize-cc-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 (set-syntax-table java-mode-syntax-table)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339 (setq major-mode 'java-mode
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1340 mode-name "Java"
30401
b85ee58b24ec (c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents: 26817
diff changeset
1341 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
1342 abbrev-mode t)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 (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
1344 (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
1345 (c-common-init 'java-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1346 (easy-menu-add c-java-menu)
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1347 (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
1348 (c-run-mode-hooks 'c-mode-common-hook 'java-mode-hook)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1349 (c-update-modeline))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1350
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1351
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1352 ;; Support for CORBA's IDL language
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1353
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1354 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1355 (defvar idl-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1356 "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
1357 (or idl-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1358 (setq idl-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1359 (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
1360
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1361 (defvar idl-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1362 "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
1363 (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
1364
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1365 (defvar idl-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1366 "Keymap used in idl-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1367 (if idl-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1368 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1369 (setq idl-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1370 ;; add bindings which are only useful for IDL
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1371 )
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1372
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1373 (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
1374 (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
1375
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1376 ;;;###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
1377
19253
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1378 ;;;###autoload
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1379 (defun idl-mode ()
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1380 "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
1381 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
1382 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
1383 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
1384 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
1385 message.
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1386
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1387 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
1388
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1389 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
1390 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
1391
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1392 Key bindings:
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1393 \\{idl-mode-map}"
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1394 (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
1395 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1396 (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
1397 (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
1398 (setq major-mode 'idl-mode
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1399 mode-name "IDL"
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1400 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
1401 (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
1402 (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
1403 (c-common-init 'idl-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1404 (easy-menu-add c-idl-menu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1405 ;;(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
1406 (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
1407 (c-update-modeline))
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1408
2bda7e07f25d (idl-mode): Support for CORBA's IDL language.
Richard M. Stallman <rms@gnu.org>
parents: 18847
diff changeset
1409
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1410 ;; Support for Pike
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1411
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1412 ;;;###autoload
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1413 (defvar pike-mode-syntax-table nil
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1414 "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
1415 (or pike-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1416 (setq pike-mode-syntax-table
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1417 (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
1418
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1419 (defvar pike-mode-abbrev-table nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1420 "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
1421 (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
1422 '(("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
1423 ("while" "while" c-electric-continued-statement 0)))
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1424
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1425 (defvar pike-mode-map ()
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1426 "Keymap used in pike-mode buffers.")
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1427 (if pike-mode-map
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1428 nil
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1429 (setq pike-mode-map (c-make-inherited-keymap))
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1430 ;; additional bindings
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1431 (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
1432
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1433 (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
1434 (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
1435
51747
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1436 ;;;###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
1437 ;;;###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
1438
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1439 ;;;###autoload
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1440 (defun pike-mode ()
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1441 "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
1442 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
1443 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
1444 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
1445 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
1446 message.
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1447
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1448 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
1449
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1450 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
1451 initialization, then `pike-mode-hook'.
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1452
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1453 Key bindings:
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1454 \\{pike-mode-map}"
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1455 (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
1456 (kill-all-local-variables)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1457 (c-initialize-cc-mode t)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1458 (set-syntax-table pike-mode-syntax-table)
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1459 (setq major-mode 'pike-mode
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1460 mode-name "Pike"
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1461 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
1462 abbrev-mode t)
24282
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1463 (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
1464 (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
1465 (c-common-init 'pike-mode)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1466 (easy-menu-add c-pike-menu)
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1467 ;;(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
1468 (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
1469 (c-update-modeline))
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1470
5b0864259a4b Installed CC Mode 5.25.
Barry A. Warsaw <barry@zope.org>
parents: 21109
diff changeset
1471
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1472 ;; Support for AWK
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1473
51747
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1474 ;;;###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
1475 ;;;###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
1476 ;;;###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
1477 ;;;###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
1478 ;;;###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
1479
b4fb79bf98ba Fixed some autoload problems: Try to ensure that the entry for ".c"
Martin Stjernholm <mast@lysator.liu.se>
parents: 51714
diff changeset
1480 ;;; 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
1481 ;;; autoload form instead.
58747
e3dfd80003ea (awk-mode autoload): Supply t meaning interactive function.
Richard M. Stallman <rms@gnu.org>
parents: 58198
diff changeset
1482 ;;;###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
1483
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1484 (defvar awk-mode-abbrev-table nil
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1485 "Abbreviation table used in awk-mode buffers.")
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1486 (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
1487 '(("else" "else" c-electric-continued-statement 0)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1488 ("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
1489
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1490 (defvar awk-mode-map ()
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1491 "Keymap used in awk-mode buffers.")
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1492 (if awk-mode-map
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1493 nil
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1494 (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
1495 ;; 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
1496 (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
1497 (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
1498 (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
1499 (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
1500 (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
1501 (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
1502 (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
1503 (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
1504 (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
1505 (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
1506
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1507 (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
1508 (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
1509
94998
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1510 ;; (require 'cc-awk) brings these in.
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1511 (defvar awk-mode-syntax-table)
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1512 (declare-function c-awk-unstick-NL-prop "cc-awk" ())
3f4cdd183536 (declare-function): Add compat definition.
Glenn Morris <rgm@gnu.org>
parents: 94673
diff changeset
1513
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1514 (defun awk-mode ()
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1515 "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
1516 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
1517 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
1518 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
1519 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
1520
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1521 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
1522
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1523 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
1524 initialization, then `awk-mode-hook'.
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1525
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1526 Key bindings:
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1527 \\{awk-mode-map}"
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1528 (interactive)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1529 (require 'cc-awk) ; Added 2003/6/10.
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1530 (kill-all-local-variables)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1531 (c-initialize-cc-mode t)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1532 (set-syntax-table awk-mode-syntax-table)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1533 (setq major-mode 'awk-mode
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1534 mode-name "AWK"
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1535 local-abbrev-table awk-mode-abbrev-table
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1536 abbrev-mode t)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1537 (use-local-map awk-mode-map)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1538 (c-init-language-vars-for 'awk-mode)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1539 (c-common-init 'awk-mode)
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1540 (c-awk-unstick-NL-prop)
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1541
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1542 ;; 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
1543 ;; 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
1544 (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
1545
67252
04d2abb755d9 Update CC Mode to release 5.31.
Alan Mackenzie <acm@muc.de>
parents: 65812
diff changeset
1546 (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
1547 (c-update-modeline))
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1548
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1549
20146
d7ea5d1fa91b (c-submit-bug-report): Remove
Karl Heuer <kwzh@gnu.org>
parents: 20135
diff changeset
1550 ;; bug reporting
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1551
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1552 (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
1553 "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
1554 "Address(es) for CC Mode bug reports.")
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1555
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1556 (defun c-version ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1557 "Echo the current version of CC Mode in the minibuffer."
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1558 (interactive)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1559 (message "Using CC Mode version %s" c-version)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1560 (c-keep-region-active))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1561
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1562 (defvar c-prepare-bug-report-hooks nil)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1563
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1564 ;; Dynamic variables used by reporter.
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1565 (defvar reporter-prompt-for-summary-p)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1566 (defvar reporter-dont-compact-list)
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1567
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1568 (defun c-submit-bug-report ()
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1569 "Submit via mail a bug report on CC Mode."
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1570 (interactive)
20917
c6e2c4d9a305 (c-mode, c++-mode, objc-mode, java-mode): Set
Richard M. Stallman <rms@gnu.org>
parents: 20459
diff changeset
1571 (require 'reporter)
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1572 ;; load in reporter
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1573 (let ((reporter-prompt-for-summary-p t)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1574 (reporter-dont-compact-list '(c-offsets-alist))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1575 (style c-indentation-style)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1576 (c-features c-emacs-features))
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1577 (and
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1578 (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
1579 t (message "") nil)
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1580 (reporter-submit-bug-report
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1581 c-mode-help-address
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1582 (concat "CC Mode " c-version " (" mode-name ")")
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1583 (let ((vars (append
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1584 c-style-variables
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1585 '(c-buffer-is-cc-mode
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1586 c-tab-always-indent
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1587 c-syntactic-indentation
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1588 c-syntactic-indentation-in-macros
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1589 c-ignore-auto-fill
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1590 c-auto-align-backslashes
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1591 c-backspace-function
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1592 c-delete-function
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1593 c-electric-pound-behavior
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1594 c-default-style
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1595 c-enable-xemacs-performance-kludge-p
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1596 c-old-style-variable-behavior
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1597 defun-prompt-regexp
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1598 tab-width
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1599 comment-column
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1600 parse-sexp-ignore-comments
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1601 parse-sexp-lookup-properties
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1602 lookup-syntax-properties
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1603 ;; A brain-damaged XEmacs only variable that, if
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1604 ;; set to nil can cause all kinds of chaos.
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1605 signal-error-on-buffer-boundary
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1606 ;; 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
1607 auto-fill-mode
30401
b85ee58b24ec (c-initialize-cc-mode): Handling of obsolete
Gerd Moellmann <gerd@gnu.org>
parents: 26817
diff changeset
1608 auto-fill-function
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1609 filladapt-mode
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1610 comment-multi-line
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1611 comment-start-skip
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1612 fill-prefix
51714
bc91cbf50c24 Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents: 51620
diff changeset
1613 fill-column
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1614 paragraph-start
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1615 adaptive-fill-mode
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1616 adaptive-fill-regexp)
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1617 nil)))
85185
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1618 (mapc (lambda (var) (unless (boundp var)
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1619 (setq vars (delq var vars))))
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1620 '(signal-error-on-buffer-boundary
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1621 filladapt-mode
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1622 defun-prompt-regexp
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1623 font-lock-mode
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1624 font-lock-maximum-decoration
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1625 parse-sexp-lookup-properties
264b4ccf31a8 (c-postprocess-file-styles)
Glenn Morris <rgm@gnu.org>
parents: 84840
diff changeset
1626 lookup-syntax-properties))
26817
03befb219d03 Installed version 5.26
Gerd Moellmann <gerd@gnu.org>
parents: 24282
diff changeset
1627 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
1628 (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
1629 (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
1630 (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
1631 style c-features)))))))
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1632
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1633
36920
32a4317c6aa5 Update to version 5.28.
Gerd Moellmann <gerd@gnu.org>
parents: 34304
diff changeset
1634 (cc-provide 'cc-mode)
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52108
diff changeset
1635
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93802
diff changeset
1636 ;; arch-tag: 7825e5c4-fd09-439f-a04d-4c13208ba3d7
18720
fc6d08b9bbe2 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1637 ;;; cc-mode.el ends here