annotate lisp/progmodes/cplus-md.el @ 12706:bbd37ab04957

(c++-imenu-generic-expression): Var defined. (c++-mode): Set imenu-generic-expression.
author Karl Heuer <kwzh@gnu.org>
date Fri, 28 Jul 1995 00:30:18 +0000
parents 8c1c47eb351a
children a8126303dc0f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3806
d43666cf0dbb Comment changes for renaming from c++-mode.el to cplus-md.el.
Richard M. Stallman <rms@gnu.org>
parents: 3627
diff changeset
1 ;;; cplus-md.el --- C++ code editing commands for Emacs
11234
4d2a2fe1d8d7 Update copyright.
Karl Heuer <kwzh@gnu.org>
parents: 11128
diff changeset
2 ;;; Copyright (C) 1985, 1992, 1994, 1995 Free Software Foundation, Inc.
896
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
3
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
4 ;; This file is part of GNU Emacs.
11455
4235784197f3 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 11234
diff changeset
5 ;; Keywords: c languages oop
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 257
diff changeset
6
896
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
7 ;; GNU Emacs is free software; you can redistribute it and/or modify
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
8 ;; it under the terms of the GNU General Public License as published by
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
9 ;; the Free Software Foundation; either version 2, or (at your option)
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
10 ;; any later version.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
11
896
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
12 ;; GNU Emacs is distributed in the hope that it will be useful,
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
15 ;; GNU General Public License for more details.
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
16
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
17 ;; You should have received a copy of the GNU General Public License
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
18 ;; along with GNU Emacs; see the file COPYING. If not, write to
7e4999005da1 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
20 ;; Maintainer: Dave Detlefs <dld@cs.cmu.edu>
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
21 ;; Keywords: c
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
22
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
23 ;;; Commentary:
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
24
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 896
diff changeset
25 ;; 1987 Dave Detlefs <dld@cs.cmu.edu>
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 896
diff changeset
26 ;; and Stewart Clamen <clamen@cs.cmu.edu>.
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 ;; Done by fairly faithful modification of:
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 896
diff changeset
28
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
29 ;;; Change Log:
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
30
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 ;; Feb, 1990 (Dave Detlefs, dld@cs.cmu.edu)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 ;; Fixed electric-c++-terminator to handle double colons, at the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 ;; request of John Hagerman.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 ;; Jan, 1990 (Doug Lea, dl@oswego.edu)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ;; Replaced c++-comment-region and c++-uncomment-region with
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 ;; versions from Igor Metz that avoid potential infinite loops.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 ;; Oct, 1989 (Dave Detlefs, dld@cs.cmu.edu)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 ;; Added contribution from Igor Metz <metz@iam.unibe.ch>:
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 ;; functions c++-comment-region and c++-uncomment-region and
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 ;; corresponding key-binding.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 ;; Also fixed bug in indentation of second line after an empty
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 ;; arglist with empty-arglist non-null.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 ;; Sept, 1989 (Glen Ditchfield, gjditchfield@violet.uwaterloo.ca):
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 ;; Textual changes to more closely imitate Emacs 18.55's c-mode.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 ;; Fixed handling of "default:", where ":" was the last character in the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 ;; buffer. Fixed indentation of comments starting in column 0, and when
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 ;; previous line contained more than one comment start string. Fixed
5300
954744cd720f (c++-indent-line, calculate-c++-indent):
Richard M. Stallman <rms@gnu.org>
parents: 4308
diff changeset
51 ;; handling of "friend".
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 ;; Aug 7, 1989; John Hagerman (hagerman@ece.cmu.edu):
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 ;; Changed calculate-c++-indent to handle member initializations
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 ;; more flexibly. Two new variables are used to control behavior:
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 ;; c++-member-init-indent and c++-continued-member-init-offset.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 ;; Note the assumption that member initializations and argument
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 ;; declarations are not mixed in one function definition.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 ;; June 1989 (Dave Detlefs, dld@cs.cmu.edu)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 ;; Fixed calculate-c++-indent to handle continued lines ending in
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 ;; {'s. (I wasn't following C-mode closely enough, or C-mode
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 ;; changed.) Made ' a quote character, at the behest of someone
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 ;; whose mail I apparently deleted (if they send me mail I'll credit
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 ;; them here in a future revision.)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 ;; Dan Weinreb (dlw@odi.com) pointed out that 'c++-mode successively
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 ;; bound c++-indent-exp and c++-indent-defun to ESC-^q. ESC-^q is
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 ;; now bound to c++-indent-exp, while, c++-indent-defun is invoked
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 ;; with ESC-^x.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 ;; February 1989 (Dave Detlefs, dld@cs.cmu.edu)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 ;; Fixed some errors in c++-indent-defun, as pointed out by Sam
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 ;; Haradhvala (odi!sam@talcott.harvard.edu).
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 ;; October 1988 (Dave Detlefs, dld@cs.cmu.edu)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 ;; It turns out I had only *thought* I had made
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 ;; beginning(end)-of-defun work. It should work better now -- you
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 ;; can either attempt to match defun headers "strongly," using a
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 ;; very complicated regexp, or "weakly," using a simple one. This
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 ;; is settable by a variable; the default is the cheaper weak
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 ;; method. (Stewart Clamen was intimately involved in this, too.)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 ;; I made "'" *not* be a string delimiter, because that was causing
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 ;; comments containing contractions to ("// don't") to mess up paren
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 ;; balancing.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 ;; I also incorporated another slight indentation fix from Glen
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 ;; Ditchfield.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 ;; We hope this is will make into version 19 of gnu-emacs.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 ;; September 1988: incorporated changes from Fred Calm at Schlumberger.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 ;; Also, made beginning(end)-of-defun, indent-defun work.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 ;;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 ;; August 1987: incorporated changes done by Glen Ditchfield of Waterloo.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
96 ;;; Code:
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 662
diff changeset
97
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 (defvar c++-mode-abbrev-table nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 "Abbrev table used in C++ mode.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 (define-abbrev-table 'c++-mode-abbrev-table ())
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 (defvar c++-mode-map ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 "Keymap used in C++ mode.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 (if c++-mode-map
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 (setq c++-mode-map (make-sparse-keymap))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 (define-key c++-mode-map "\C-j" 'reindent-then-newline-and-indent)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 (define-key c++-mode-map "{" 'electric-c++-brace)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 (define-key c++-mode-map "}" 'electric-c++-brace)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 (define-key c++-mode-map ";" 'electric-c++-semi)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 (define-key c++-mode-map "\e\C-h" 'mark-c-function)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 (define-key c++-mode-map "\e\C-q" 'indent-c++-exp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 (define-key c++-mode-map "\177" 'backward-delete-char-untabify)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114 (define-key c++-mode-map "\t" 'c++-indent-command)
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
115 ;; (define-key c++-mode-map "\C-c\C-i" 'c++-insert-header)
861
345296f94a1e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
116 (define-key c++-mode-map "\C-c\C-\\" 'c-backslash-region))
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
117 ;; (define-key c++-mode-map "\e\C-a" 'c++-beginning-of-defun)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
118 ;; (define-key c++-mode-map "\e\C-e" 'c++-end-of-defun)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
119 ;; (define-key c++-mode-map "\e\C-x" 'c++-indent-defun))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 (defvar c++-mode-syntax-table nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 "Syntax table used in C++ mode.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 (if c++-mode-syntax-table
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 (setq c++-mode-syntax-table (copy-syntax-table c-mode-syntax-table))
4285
37dded875497 (c++-mode-syntax-table): Handle C-style comments.
Richard M. Stallman <rms@gnu.org>
parents: 3806
diff changeset
127 (modify-syntax-entry ?* ". 23b" c++-mode-syntax-table)
37dded875497 (c++-mode-syntax-table): Handle C-style comments.
Richard M. Stallman <rms@gnu.org>
parents: 3806
diff changeset
128 (modify-syntax-entry ?/ ". 124" c++-mode-syntax-table)
8326
57533025d628 (c++-mode-syntax-table): Give RET the same syntax as newline.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
129 (modify-syntax-entry ?\n ">" c++-mode-syntax-table)
57533025d628 (c++-mode-syntax-table): Give RET the same syntax as newline.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
130 (modify-syntax-entry ?\^m ">" c++-mode-syntax-table))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 (defvar c++-continued-member-init-offset nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 "*Extra indent for continuation lines of member inits;
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
134 nil means to align with previous initializations rather than
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 with the colon on the first line.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 (defvar c++-member-init-indent 0
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 "*Indentation level of member initializations in function declarations.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (defvar c++-friend-offset -4
5300
954744cd720f (c++-indent-line, calculate-c++-indent):
Richard M. Stallman <rms@gnu.org>
parents: 4308
diff changeset
139 "*Offset of C++ friend declarations relative to member declarations.")
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 (defvar c++-electric-colon t
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 "*If t, colon is an electric terminator.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 (defvar c++-empty-arglist-indent nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 "*Indicates how far to indent an line following an empty argument
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 list. Nil indicates to just after the paren.")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145
12706
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
146 (defvar c++-imenu-generic-expression
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
147 (`
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
148 ((nil
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
149 (,
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
150 (concat
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
151 "^" ; beginning of line is required
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
152 "\\(template[ \t]*<[^>]+>[ \t]*\\)?" ; there may be a "template <...>"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
153 "\\([a-zA-Z0-9_:]+[ \t]+\\)?" ; type specs; there can be no
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
154 "\\([a-zA-Z0-9_:]+[ \t]+\\)?" ; more than 3 tokens, right?
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
155
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
156 "\\(" ; last type spec including */&
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
157 "[a-zA-Z0-9_:]+"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
158 "\\([ \t]*[*&]+[ \t]*\\|[ \t]+\\)" ; either pointer/ref sign or whitespace
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
159 "\\)?" ; if there is a last type spec
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
160 "\\(" ; name; take that into the imenu entry
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
161 "[a-zA-Z0-9_:~]+" ; member function, ctor or dtor...
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
162 ; (may not contain * because then
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
163 ; "a::operator char*" would become "char*"!)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
164 "\\|"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
165 "\\([a-zA-Z0-9_:~]*::\\)?operator"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
166 "[^a-zA-Z1-9_][^(]*" ; ...or operator
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
167 " \\)"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
168 "[ \t]*([^)]*)[ \t\n]*[^ ;]" ; require something other than a ; after
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
169 ; the (...) to avoid prototypes. Can't
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
170 ; catch cases with () inside the parentheses
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
171 ; surrounding the parameters
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
172 ; (like "int foo(int a=bar()) {...}"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
173
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
174 )) 6)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
175 ("Class"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
176 (, (concat
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
177 "^" ; beginning of line is required
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
178 "\\(template[ \t]*<[^>]+>[ \t]*\\)?" ; there may be a "template <...>"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
179 "class[ \t]+"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
180 "\\([a-zA-Z0-9_]+\\)" ; this is the string we want to get
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
181 "[ \t]*[:{]"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
182 )) 2)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
183 ;; Example of generic expression for finding prototypes, structs, unions, enums.
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
184 ;; Uncomment if you want to find these too. It will be a bit slower gathering
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
185 ;; the indexes.
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
186 ; ("Prototypes"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
187 ; (,
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
188 ; (concat
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
189 ; "^" ; beginning of line is required
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
190 ; "\\(template[ \t]*<[^>]+>[ \t]*\\)?" ; there may be a "template <...>"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
191 ; "\\([a-zA-Z0-9_:]+[ \t]+\\)?" ; type specs; there can be no
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
192 ; "\\([a-zA-Z0-9_:]+[ \t]+\\)?" ; more than 3 tokens, right?
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
193
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
194 ; "\\(" ; last type spec including */&
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
195 ; "[a-zA-Z0-9_:]+"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
196 ; "\\([ \t]*[*&]+[ \t]*\\|[ \t]+\\)" ; either pointer/ref sign or whitespace
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
197 ; "\\)?" ; if there is a last type spec
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
198 ; "\\(" ; name; take that into the imenu entry
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
199 ; "[a-zA-Z0-9_:~]+" ; member function, ctor or dtor...
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
200 ; ; (may not contain * because then
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
201 ; ; "a::operator char*" would become "char*"!)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
202 ; "\\|"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
203 ; "\\([a-zA-Z0-9_:~]*::\\)?operator"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
204 ; "[^a-zA-Z1-9_][^(]*" ; ...or operator
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
205 ; " \\)"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
206 ; "[ \t]*([^)]*)[ \t\n]*;" ; require ';' after
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
207 ; ; the (...) Can't
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
208 ; ; catch cases with () inside the parentheses
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
209 ; ; surrounding the parameters
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
210 ; ; (like "int foo(int a=bar());"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
211 ; )) 6)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
212 ; ("Struct"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
213 ; (, (concat
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
214 ; "^" ; beginning of line is required
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
215 ; "\\(static[ \t]+\\)?" ; there may be static or const.
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
216 ; "\\(const[ \t]+\\)?"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
217 ; "struct[ \t]+"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
218 ; "\\([a-zA-Z0-9_]+\\)" ; this is the string we want to get
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
219 ; "[ \t]*[{]"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
220 ; )) 3)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
221 ; ("Enum"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
222 ; (, (concat
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
223 ; "^" ; beginning of line is required
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
224 ; "\\(static[ \t]+\\)?" ; there may be static or const.
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
225 ; "\\(const[ \t]+\\)?"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
226 ; "enum[ \t]+"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
227 ; "\\([a-zA-Z0-9_]+\\)" ; this is the string we want to get
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
228 ; "[ \t]*[{]"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
229 ; )) 3)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
230 ; ("Union"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
231 ; (, (concat
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
232 ; "^" ; beginning of line is required
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
233 ; "\\(static[ \t]+\\)?" ; there may be static or const.
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
234 ; "\\(const[ \t]+\\)?"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
235 ; "union[ \t]+"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
236 ; "\\([a-zA-Z0-9_]+\\)" ; this is the string we want to get
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
237 ; "[ \t]*[{]"
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
238 ; )) 3)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
239 ))
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
240 "Imenu generic expression for C++ mode. See `imenu-generic-expression'.")
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 ;;;###autoload
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 (defun c++-mode ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 "Major mode for editing C++ code. Very much like editing C code.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 Expression and list commands understand all C++ brackets.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 Tab at left margin indents for C++ code
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 Comments are delimited with /* ... */ {or with // ... <newline>}
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 Paragraphs are separated by blank lines only.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 Delete converts tabs to spaces as it moves back.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 \\{c++-mode-map}
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 Variables controlling indentation style:
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 c-tab-always-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 Non-nil means TAB in C mode should always reindent the current line,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 regardless of where in the line point is when the TAB command is used.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 Default is t.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 c-auto-newline
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 Non-nil means automatically newline before and after braces,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 and after colons and semicolons, inserted in C code.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 c-indent-level
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 Indentation of C statements within surrounding block.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 The surrounding block's indentation is the indentation
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 of the line on which the open-brace appears.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 c-continued-statement-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 Extra indentation given to a substatement, such as the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 then-clause of an if or body of a while.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 c-continued-brace-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 Extra indentation given to a brace that starts a substatement.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 This is in addition to c-continued-statement-offset.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 c-brace-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 Extra indentation for line if it starts with an open brace.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 c-brace-imaginary-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 An open brace following other text is treated as if it were
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 this far to the right of the start of its line.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 c-argdecl-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 Indentation level of declarations of C function arguments.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 c-label-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 Extra indentation for line that is a label, or case or ``default:'', or
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 ``public:'' or ``private:'', or ``protected:''.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 c++-electric-colon
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 If non-nil at invocation of c++-mode (t is the default) colon electricly
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 indents.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 c++-empty-arglist-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 If non-nil, a function declaration or invocation which ends a line with a
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 left paren is indented this many extra spaces, instead of flush with the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 left paren.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 c++-friend-offset
5300
954744cd720f (c++-indent-line, calculate-c++-indent):
Richard M. Stallman <rms@gnu.org>
parents: 4308
diff changeset
287 Offset of C++ friend declarations relative to member declarations.
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 c++-member-init-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 Indentation level of member initializations in function declarations,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 if they are on a separate line beginning with a colon.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 c++-continued-member-init-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 Extra indentation for continuation lines of member initializations; NIL
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 means to align with previous initializations rather than with the colon.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 Settings for K&R, BSD, and Stroustrup indentation styles are
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 c-indent-level 5 8 4
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 c-continued-statement-offset 5 8 4
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 c-continued-brace-offset 0
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 c-brace-offset -5 -8 0
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 c-brace-imaginary-offset 0
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 c-argdecl-indent 0 8 4
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 c-label-offset -5 -8 -4
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 c++-empty-arglist-indent 4
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 c++-friend-offset 0
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 Turning on C++ mode calls the value of the variable `c++-mode-hook' with
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 no args if that value is non-nil."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 (interactive)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 (kill-all-local-variables)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 (use-local-map c++-mode-map)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 (set-syntax-table c++-mode-syntax-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 (setq major-mode 'c++-mode
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 mode-name "C++"
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 comment-column 32
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 local-abbrev-table c++-mode-abbrev-table)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 (set (make-local-variable 'indent-line-function) 'c++-indent-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 (set (make-local-variable 'comment-start) "// ")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 (set (make-local-variable 'comment-end) "")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (set (make-local-variable 'comment-start-skip) "/\\*+ *\\|// *")
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 896
diff changeset
320 (set (make-local-variable 'comment-indent-function) 'c++-comment-indent)
10871
77c4e66af25a (c++-mode): Remove ^ from paragraph-start & paragraph-separate.
Boris Goldowsky <boris@gnu.org>
parents: 10829
diff changeset
321 (set (make-local-variable 'paragraph-start) (concat "$\\|" page-delimiter))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 (set (make-local-variable 'paragraph-separate) paragraph-start)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 (set (make-local-variable 'paragraph-ignore-fill-prefix) t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 (set (make-local-variable 'require-final-newline) t)
5957
334f7ce7c8db (c++-mode): Set parse-sexp-ignore-comments to t.
Richard M. Stallman <rms@gnu.org>
parents: 5300
diff changeset
325 (set (make-local-variable 'parse-sexp-ignore-comments) t)
12706
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
326 (make-local-variable 'imenu-generic-expression)
bbd37ab04957 (c++-imenu-generic-expression): Var defined.
Karl Heuer <kwzh@gnu.org>
parents: 12416
diff changeset
327 (setq imenu-generic-expression c++-imenu-generic-expression)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (run-hooks 'c++-mode-hook)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 (if c++-electric-colon
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (define-key c++-mode-map ":" 'electric-c++-terminator)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 ;; This is used by indent-for-comment
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 ;; to decide how much to indent a comment in C++ code
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 ;; based on its context.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 (defun c++-comment-indent ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 (if (looking-at "^\\(/\\*\\|//\\)")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 0 ; Existing comment at bol stays there.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 (skip-chars-backward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (max
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 ;; leave at least one space on non-empty lines.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 (if (zerop (current-column)) 0 (1+ (current-column)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 (let ((cur-pt (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 (beginning-of-line 0)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 ;; If previous line had a comment, use it's indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 (if (re-search-forward comment-start-skip cur-pt t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 (goto-char (match-beginning 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349 (current-column))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 comment-column)))))) ; otherwise indent at comment column.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 (defun electric-c++-brace (arg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 "Insert character and correct line's indentation."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 (interactive "P")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 (let (insertpos)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 (if (and (not arg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 (eolp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 (or (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 (skip-chars-backward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 (bolp))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 (if c-auto-newline (progn (c++-indent-line) (newline) t))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 (insert last-command-char)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (c++-indent-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 (if c-auto-newline
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 (newline)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 ;; (newline) may have done auto-fill
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 (setq insertpos (- (point) 2))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 (c++-indent-line)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 (if insertpos (goto-char (1+ insertpos)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 (delete-char -1))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 (if insertpos
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 (goto-char insertpos)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 (self-insert-command (prefix-numeric-value arg)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 (self-insert-command (prefix-numeric-value arg)))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 (defun electric-c++-semi (arg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 "Insert character and correct line's indentation."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 (interactive "P")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 (if c-auto-newline
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 (electric-c++-terminator arg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 (self-insert-command (prefix-numeric-value arg))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 (defun electric-c++-terminator (arg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 "Insert character and correct line's indentation."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 (interactive "P")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 (let (insertpos (end (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 (if (and (not arg) (eolp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 (not (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 (beginning-of-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395 (or (= (following-char) ?#)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 ;; Colon is special only after a label, or
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 ;; case, or another colon.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 ;; So quickly rule out most other uses of colon
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399 ;; and do no indentation for them.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
400 (and (eq last-command-char ?:)
12416
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
401 (or (not (or (looking-at "case[ \t]")
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
402 (save-excursion
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
403 (forward-word 1)
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
404 (skip-chars-forward " \t")
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
405 (>= (point) end))))
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
406 ;; Do re-indent double colons
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
407 (save-excursion
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
408 (end-of-line 1)
8c1c47eb351a (electric-c++-terminator): Fix logic for handling colon.
Richard M. Stallman <rms@gnu.org>
parents: 11455
diff changeset
409 (looking-at ":"))))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 (beginning-of-defun)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 (let ((pps (parse-partial-sexp (point) end)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 (insert last-command-char)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 (c++-indent-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 (and c-auto-newline
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 (not (c-inside-parens-p))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 ;; the new marker object, used to be just an integer
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 (setq insertpos (make-marker))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 ;; changed setq to set-marker
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 (set-marker insertpos (1- (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 ;; do this before the newline, since in auto fill can break
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 (newline)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 (c-indent-line)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 (if insertpos (goto-char (1+ insertpos)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 (delete-char -1))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 (if insertpos
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 (goto-char insertpos)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 (self-insert-command (prefix-numeric-value arg)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 (self-insert-command (prefix-numeric-value arg)))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 (defun c++-indent-command (&optional whole-exp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 "Indent current line as C++ code, or in some cases insert a tab character.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 If `c-tab-always-indent' is non-nil (the default), always indent current
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 line. Otherwise, indent the current line only if point is at the left
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 margin or in the line's indentation; otherwise insert a tab.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 A numeric argument, regardless of its value, means indent rigidly all means
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 indent rigidly all the lines of the expression starting after point so that
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 this line becomes properly indented. The relative indentation among the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 lines of the expression are preserved."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 (interactive "P")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447 (if whole-exp
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 ;; If arg, always indent this line as C
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 ;; and shift remaining lines of expression the same amount.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 (let ((shift-amt (c++-indent-line))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 beg end)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453 (if c-tab-always-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 (beginning-of-line))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 (setq beg (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 (forward-sexp 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457 (setq end (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 (goto-char beg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 (forward-line 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 (setq beg (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 (if (> end beg)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 (indent-code-rigidly beg end shift-amt "#")))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 (if (and (not c-tab-always-indent)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 (skip-chars-backward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 (not (bolp))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 (insert-tab)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 (c++-indent-line))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 (defun c++-indent-line ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 "Indent current line as C++ code.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 Return the amount the indentation changed by."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 (let ((indent (calculate-c++-indent nil))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 beg shift-amt
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 (case-fold-search nil)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 (pos (- (point-max) (point))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 (beginning-of-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 (setq beg (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 (cond ((eq indent nil)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 (setq indent (current-indentation)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 ((eq indent t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 (setq indent (calculate-c-indent-within-comment)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 ((looking-at "[ \t]*#")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 (setq indent 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485 (t
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 (if (listp indent) (setq indent (car indent)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488 (cond ((looking-at "\\(default\\|public\\|private\\|protected\\):")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 (setq indent (+ indent c-label-offset)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 ((or (looking-at "case\\b")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491 (and (looking-at "[A-Za-z]")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493 (forward-sexp 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 (looking-at ":[^:]"))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495 (setq indent (max 1 (+ indent c-label-offset))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496 ((and (looking-at "else\\b")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 (not (looking-at "else\\s_")))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 (setq indent (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 (c-backward-to-start-of-if)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 (current-indentation))))
5300
954744cd720f (c++-indent-line, calculate-c++-indent):
Richard M. Stallman <rms@gnu.org>
parents: 4308
diff changeset
501 ((looking-at "friend\[ \t]")
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 (setq indent (+ indent c++-friend-offset)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 ((= (following-char) ?})
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 (setq indent (- indent c-indent-level)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 ((= (following-char) ?{)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 (setq indent (+ indent c-brace-offset))))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 (setq shift-amt (- indent (current-column)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 (if (zerop shift-amt)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 (if (> (- (point-max) pos) (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 (goto-char (- (point-max) pos)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 (delete-region beg (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 (indent-to indent)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 ;; If initial point was within line's indentation,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 ;; position after the indentation. Else stay at same point in text.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 (if (> (- (point-max) pos) (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 (goto-char (- (point-max) pos))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 shift-amt))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 (defun calculate-c++-indent (&optional parse-start)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 "Return appropriate indentation for current line as C++ code.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522 In usual case returns an integer: the column to indent to.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 Returns nil if line starts inside a string, t if in a comment."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 (beginning-of-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 (let ((indent-point (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 (case-fold-search nil)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 state
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 containing-sexp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 (if parse-start
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 (goto-char parse-start)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 (beginning-of-defun))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 (while (< (point) indent-point)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 (setq parse-start (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 (setq state (parse-partial-sexp (point) indent-point 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 (setq containing-sexp (car (cdr state))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 (cond ((or (nth 3 state) (nth 4 state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 ;; return nil or t if should not change this line
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 (nth 4 state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 ((null containing-sexp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 ;; Line is at top level. May be data or function definition, or
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 ;; may be function argument declaration or member initialization.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 ;; Indent like the previous top level line unless
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544 ;; (1) the previous line ends in a closeparen without semicolon,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 ;; in which case this line is the first argument declaration or
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
546 ;; member initialization, or
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 ;; (2) the previous line begins with a colon,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 ;; in which case this is the second line of member inits.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 ;; It is assumed that arg decls and member inits are not mixed.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 (goto-char indent-point)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 (if (= (following-char) ?{)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 0 ; Unless it starts a function body
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 (c++-backward-to-noncomment (or parse-start (point-min)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 (if (= (preceding-char) ?\))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 (progn ; first arg decl or member init
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 (goto-char indent-point)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 (if (= (following-char) ?:)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 c++-member-init-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 c-argdecl-indent))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 (if (= (preceding-char) ?\;)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 (backward-char 1))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 (if (= (preceding-char) ?})
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
565 0
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 (beginning-of-line) ; continued arg decls or member inits
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568 (if (= (following-char) ?:)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 (if c++-continued-member-init-offset
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 (+ (current-indentation)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 c++-continued-member-init-offset)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573 (forward-char 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575 (current-column)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
576 (current-indentation)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 )))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 ((/= (char-after containing-sexp) ?{)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579 ;; line is expression, not statement:
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 ;; indent to just after the surrounding open -- unless
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 ;; empty arg list, in which case we do what
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 ;; c++-empty-arglist-indent says to do.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 (if (and c++-empty-arglist-indent
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 (or (null (nth 2 state)) ;; indicates empty arg
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 ;; list.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 ;; Use a heuristic: if the first
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 ;; non-whitespace following left paren on
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 ;; same line is not a comment,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 ;; is not an empty arglist.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 (goto-char (1+ containing-sexp))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 (not
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 (looking-at "\\( \\|\t\\)*[^/\n]")))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 (goto-char containing-sexp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 (beginning-of-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 (goto-char (min (+ (point) c++-empty-arglist-indent)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 (1+ containing-sexp)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 (current-column))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 ;; In C-mode, we would always indent to one after the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 ;; left paren. Here, though, we may have an
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 ;; empty-arglist, so we'll indent to the min of that
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604 ;; and the beginning of the first argument.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 (goto-char (1+ containing-sexp))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 (current-column)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 (t
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 ;; Statement. Find previous non-comment character.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 (goto-char indent-point)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 (c++-backward-to-noncomment containing-sexp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611 (if (not (memq (preceding-char) '(nil ?\, ?\; ?} ?: ?\{)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
612 ;; This line is continuation of preceding line's statement;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 ;; indent c-continued-statement-offset more than the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 ;; previous line of the statement.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 (c-backward-to-start-of-continued-exp containing-sexp)
3627
6895c2df25a6 (calculate-c++-indent): Respect
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
617 (+ c-continued-statement-offset (current-column)
6895c2df25a6 (calculate-c++-indent): Respect
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
618 (if (save-excursion (goto-char indent-point)
6895c2df25a6 (calculate-c++-indent): Respect
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
619 (skip-chars-forward " \t")
6895c2df25a6 (calculate-c++-indent): Respect
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
620 (eq (following-char) ?{))
6895c2df25a6 (calculate-c++-indent): Respect
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
621 c-continued-brace-offset 0)))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 ;; This line starts a new statement.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 ;; Position following last unclosed open.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 (goto-char containing-sexp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 ;; Is line first statement after an open-brace?
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 (or
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 ;; If no, find that first statement and indent like it.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 (forward-char 1)
11128
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
630 (let ((colon-line-end 0))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
631 (while (progn (skip-chars-forward " \t\n")
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
632 (looking-at
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
633 (concat
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
634 "#\\|/\\*\\|//"
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
635 "\\|case[ \t]"
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
636 "\\|[a-zA-Z0-9_$]*:[^:]"
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
637 "\\|friend[ \t]")))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
638 ;; Skip over comments and labels following openbrace.
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
639 (cond ((= (following-char) ?\#)
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
640 (forward-line 1))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
641 ((looking-at "/\\*")
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
642 (search-forward "*/" nil 'move))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
643 ((looking-at "//\\|friend[ \t]")
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
644 (forward-line 1))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
645 (t
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
646 (save-excursion (end-of-line)
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
647 (setq colon-line-end (point)))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
648 (search-forward ":"))))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
649 ;; The first following code counts
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
650 ;; if it is before the line we want to indent.
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
651 (and (< (point) indent-point)
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
652 (-
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
653 (if (> colon-line-end (point))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
654 (- (current-indentation) c-label-offset)
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
655 (current-column))
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
656 ;; If prev stmt starts with open-brace, that
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
657 ;; open brace was offset by c-brace-offset.
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
658 ;; Compensate to get the column where
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
659 ;; an ordinary statement would start.
291aaa280603 (calculate-c++-indent): Copy colon-line-end code from calculate-c-indent.
Richard M. Stallman <rms@gnu.org>
parents: 10871
diff changeset
660 (if (= (following-char) ?\{) c-brace-offset 0)))))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 ;; If no previous statement,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662 ;; indent it relative to line brace is on.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663 ;; For open brace in column zero, don't let statement
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
664 ;; start there too. If c-indent-offset is zero,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665 ;; use c-brace-offset + c-continued-statement-offset instead.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 ;; For open-braces not the first thing in a line,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 ;; add in c-brace-imaginary-offset.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 (+ (if (and (bolp) (zerop c-indent-level))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 (+ c-brace-offset c-continued-statement-offset)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 c-indent-level)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
671 ;; Move back over whitespace before the openbrace.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 ;; If openbrace is not first nonwhite thing on the line,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 ;; add the c-brace-imaginary-offset.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674 (progn (skip-chars-backward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 (if (bolp) 0 c-brace-imaginary-offset))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 ;; If the openbrace is preceded by a parenthesized exp,
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 ;; move to the beginning of that;
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 ;; possibly a different line
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 (if (eq (preceding-char) ?\))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681 (forward-sexp -1))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
682 ;; Get initial indentation of the line we are on.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
683 (current-indentation))))))))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
685 (defun c++-backward-to-noncomment (lim)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 (let (opoint stop)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 (while (not stop)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688 (skip-chars-backward " \t\n\r\f" lim)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 (setq opoint (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 (cond ((and (>= (point) (+ 2 lim))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 (forward-char -2)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 (looking-at "\\*/")))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 (search-backward "/*" lim 'move))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 ((and
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
696 (search-backward "//" (max (c++-point-bol) lim) 'move)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
697 (not (c++-within-string-p (point) opoint))))
10829
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
698 ;; No comment to be found.
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
699 ;; If there's a # command on this line,
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
700 ;; move back to it.
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
701 (t (beginning-of-line)
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
702 (skip-chars-forward " \t")
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
703 ;; But don't get fooled if we are already before the #.
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
704 (if (and (looking-at "#") (< (point) opoint))
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
705 (setq stop (<= (point) lim))
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
706 (setq stop t)
135ef978d711 (c++-backward-to-noncomment): Don't loop forever
Richard M. Stallman <rms@gnu.org>
parents: 10409
diff changeset
707 (goto-char opoint)))))))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709 (defun indent-c++-exp ()
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710 "Indent each line of the C++ grouping following point."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 (interactive)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 (let ((indent-stack (list nil))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 (contain-stack (list (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 (case-fold-search nil)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715 restart outer-loop-done inner-loop-done state ostate
861
345296f94a1e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
716 this-indent last-sexp last-depth
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
717 at-else at-brace
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 (opoint (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 (next-depth 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 (forward-sexp 1))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 (setq outer-loop-done nil)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 (while (and (not (eobp)) (not outer-loop-done))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 (setq last-depth next-depth)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 ;; Compute how depth changes over this line
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 ;; plus enough other lines to get to one that
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 ;; does not end inside a comment or string.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 ;; Meanwhile, do appropriate indentation on comment lines.
861
345296f94a1e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
730 (setq inner-loop-done nil)
345296f94a1e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
731 (while (and (not inner-loop-done)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 (not (and (eobp) (setq outer-loop-done t))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 (setq ostate state)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735 nil nil state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 (setq next-depth (car state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 (if (and (car (cdr (cdr state)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 (>= (car (cdr (cdr state))) 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739 (setq last-sexp (car (cdr (cdr state)))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 (if (or (nth 4 ostate))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 (c++-indent-line))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 (if (or (nth 3 state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 (forward-line 1)
861
345296f94a1e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
744 (setq inner-loop-done t)))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 (if (<= next-depth 0)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 (setq outer-loop-done t))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 (if outer-loop-done
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 ;; If this line had ..))) (((.. in it, pop out of the levels
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 ;; that ended anywhere in this line, even if the final depth
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 ;; doesn't indicate that they ended.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 (while (> last-depth (nth 6 state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 (setq indent-stack (cdr indent-stack)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 contain-stack (cdr contain-stack)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 last-depth (1- last-depth)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 (if (/= last-depth next-depth)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 (setq last-sexp nil))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 ;; Add levels for any parens that were started in this line.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
759 (while (< last-depth next-depth)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
760 (setq indent-stack (cons nil indent-stack)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761 contain-stack (cons nil contain-stack)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762 last-depth (1+ last-depth)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 (if (null (car contain-stack))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 (setcar contain-stack (or (car (cdr state))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 (save-excursion (forward-sexp -1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 (point)))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 (forward-line 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 (skip-chars-forward " \t")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 (if (eolp)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770 nil
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 (if (and (car indent-stack)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772 (>= (car indent-stack) 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
773 ;; Line is on an existing nesting level.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
774 ;; Lines inside parens are handled specially.
10409
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
775 nil
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
776 ;; Just started a new nesting level.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777 ;; Compute the standard indent for this level.
10409
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
778 (let (val)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
779 (if (= (char-after (car contain-stack)) ?{)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
780 (save-excursion
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
781 (goto-char (car contain-stack))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
782 (setq val (+ c-indent-level (current-column))))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
783 (setq val (calculate-c++-indent
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
784 (if (car indent-stack)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
785 (- (car indent-stack))))))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
786 (setcar indent-stack val)))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
787 ;; Adjust line indentation according to its predecessor.
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
788 (if (/= (char-after (car contain-stack)) ?\{)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
789 (setq this-indent (car indent-stack))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
790 ;; Line is at statement level.
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
791 ;; Is it a new statement? Is it an else?
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
792 ;; Find last non-comment character before this line
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
793 (save-excursion
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
794 (setq at-else (looking-at "else\\W"))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
795 (setq at-brace (= (following-char) ?\{))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
796 (c++-backward-to-noncomment opoint)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
797 (if (not (memq (preceding-char) '(nil ?\, ?\; ?\} ?: ?\{)))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
798 ;; Preceding line did not end in comma or semi;
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
799 ;; indent this line c-continued-statement-offset
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
800 ;; more than previous.
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
801 (progn
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
802 (c-backward-to-start-of-continued-exp
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
803 (car contain-stack))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
804 (setq this-indent
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
805 (+ c-continued-statement-offset
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
806 (current-column)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
807 (if at-brace c-continued-brace-offset 0))))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
808 ;; Preceding line ended in comma or semi;
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
809 ;; use the standard indent for this level.
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
810 (if at-else
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
811 (progn (c-backward-to-start-of-if opoint)
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
812 (setq this-indent (current-indentation)))
0e814787d3be (indent-c++-exp): Handle `{ if (x)\n foo;\n bar;' case.
Richard M. Stallman <rms@gnu.org>
parents: 9219
diff changeset
813 (setq this-indent (car indent-stack))))))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 ;; Adjust line indentation according to its contents
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 (if (looking-at "\\(public\\|private\\|protected\\):")
9219
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
816 (setq this-indent (- this-indent c-indent-level))
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
817 (if (or (looking-at "case[ \t]")
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
818 (and (looking-at "[A-Za-z]")
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
819 (save-excursion
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
820 (forward-sexp 1)
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
821 (looking-at ":[^:]"))))
c57babb0ebd5 (indent-c++-exp): For public/private/protected,
Richard M. Stallman <rms@gnu.org>
parents: 8326
diff changeset
822 (setq this-indent (max 1 (+ this-indent c-label-offset)))))
5300
954744cd720f (c++-indent-line, calculate-c++-indent):
Richard M. Stallman <rms@gnu.org>
parents: 4308
diff changeset
823 (if (looking-at "friend[ \t]")
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
824 (setq this-indent (+ this-indent c++-friend-offset)))
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
825 (if (= (following-char) ?\})
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
826 (setq this-indent (- this-indent c-indent-level)))
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
827 (if (= (following-char) ?\{)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 (setq this-indent (+ this-indent c-brace-offset)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
829 ;; Put chosen indentation into effect.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 (or (= (current-column) this-indent)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 (= (following-char) ?\#)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 (delete-region (point) (progn (beginning-of-line) (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 (indent-to this-indent)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
835 ;; Indent any comment following the text.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836 (or (looking-at comment-start-skip)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
837 (if (re-search-forward comment-start-skip
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
838 (save-excursion (end-of-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 (point)) t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 (progn
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 (indent-for-comment)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 (beginning-of-line))))))))))
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
843
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
844 (defun fill-c++-comment ()
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
845 "Fill a comment contained in consecutive lines containing point.
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
846 The fill lines remain a comment."
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 (interactive)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 (let ((save fill-prefix))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850 (beginning-of-line 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
851 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
852 (re-search-forward comment-start-skip
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 (save-excursion (end-of-line) (point))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 t)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855 (goto-char (match-end 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 (set-fill-prefix))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857 (while (looking-at fill-prefix)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858 (previous-line 1))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859 (next-line 1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
860 (insert-string "\n")
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
861 (fill-paragraph nil)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862 (delete-char -1)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 (setq fill-prefix save))))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
864
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
865 (defun c++-point-bol ()
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 "Returns the value of the point at the beginning of the current line."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 (save-excursion
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868 (beginning-of-line)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869 (point)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
871 ;; (defun c++-insert-header ()
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
872 ;; "Insert header denoting C++ code at top of buffer."
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
873 ;; (interactive)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
874 ;; (save-excursion
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
875 ;; (goto-char (point-min))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
876 ;; (insert "// "
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
877 ;; "This may look like C code, but it is really "
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
878 ;; "-*- C++ -*-"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
879 ;; "\n\n")))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
881 (defun c++-within-string-p (point1 point2)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882 "Returns true if number of double quotes between two points is odd."
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
883 (let ((s (buffer-substring point1 point2)))
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
884 (not (zerop (% (c++-count-char-in-string ?\" s) 2)))))
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
886 (defun c++-count-char-in-string (c s)
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
887 (let ((count 0)
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
888 (pos 0))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
889 (while (< pos (length s))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 (setq count (+ count (if (\= (aref s pos) c) 1 0)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891 (setq pos (1+ pos)))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 count))
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
894 ;; rms: This page is creeping featurism, and not worth having.
257
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 ;;; Below are two regular expressions that attempt to match defuns
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 ;;; "strongly" and "weakly." The strong one almost reconstructs the
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
898 ;;; grammar of C++; the weak one just figures anything id or curly on
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
899 ;;; the left begins a defun. The constant "c++-match-header-strongly"
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
900 ;;; determines which to use; the default is the weak one.
e5ba2ba35226 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
901
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
902 ;; (defvar c++-match-header-strongly nil
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
903 ;; "*If nil, use `c++-defun-header-weak' to identify beginning of definitions.
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
904 ;; If non-nil, use `c++-defun-header-strong'.")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
905 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
906 ;; (defvar c++-defun-header-strong-struct-equivs "\\(class\\|struct\\|enum\\)"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
907 ;; "Regexp to match names of structure declaration blocks in C++.")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
908 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
909 ;; (defconst c++-defun-header-strong
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
910 ;; (let*
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
911 ;; (; valid identifiers
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
912 ;; ;; There's a real weirdness here -- if I switch the below
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
913 ;; (id "\\(\\w\\|_\\)+")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
914 ;; ;; to be
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
915 ;; ;; (id "\\(_\\|\\w\\)+")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
916 ;; ;; things no longer work right. Try it and see!
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
917 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
918 ;; ; overloadable operators
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
919 ;; (op-sym1
6309
9217f29851c2 Don't use triple-hyphen in a character class.
Karl Heuer <kwzh@gnu.org>
parents: 5957
diff changeset
920 ;; "[-+*/%^&|~!=<>]\\|[-+*/%^&|<>=!]=\\|<<=?\\|>>=?")
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
921 ;; (op-sym2
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
922 ;; "&&\\|||\\|\\+\\+\\|--\\|()\\|\\[\\]")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
923 ;; (op-sym (concat "\\(" op-sym1 "\\|" op-sym2 "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
924 ;; ; whitespace
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
925 ;; (middle "[^\\*]*\\(\\*+[^/\\*][^\\*]*\\)*")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
926 ;; (c-comment (concat "/\\*" middle "\\*+/"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
927 ;; (wh (concat "\\(\\s \\|\n\\|//.*$\\|" c-comment "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
928 ;; (wh-opt (concat wh "*"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
929 ;; (wh-nec (concat wh "+"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
930 ;; (oper (concat "\\(" "operator" "\\("
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
931 ;; wh-opt op-sym "\\|" wh-nec id "\\)" "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
932 ;; (dcl-list "([^():]*)")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
933 ;; (func-name (concat "\\(" oper "\\|" id "::" id "\\|" id "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
934 ;; (inits
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
935 ;; (concat "\\(:"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
936 ;; "\\(" wh-opt id "(.*\\()" wh-opt "," "\\)\\)*"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
937 ;; wh-opt id "(.*)" wh-opt "{"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
938 ;; "\\|" wh-opt "{\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
939 ;; (type-name (concat
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
940 ;; "\\(" c++-defun-header-strong-struct-equivs wh-nec "\\)?"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
941 ;; id))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
942 ;; (type (concat "\\(const" wh-nec "\\)?"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
943 ;; "\\(" type-name "\\|" type-name wh-opt "\\*+" "\\|"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
944 ;; type-name wh-opt "&" "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
945 ;; (modifier "\\(inline\\|virtual\\|overload\\|auto\\|static\\)")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
946 ;; (modifiers (concat "\\(" modifier wh-nec "\\)*"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
947 ;; (func-header
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
948 ;; ;; type arg-dcl
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
949 ;; (concat modifiers type wh-nec func-name wh-opt dcl-list wh-opt inits))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
950 ;; (inherit (concat "\\(:" wh-opt "\\(public\\|private\\)?"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
951 ;; wh-nec id "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
952 ;; (cs-header (concat
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
953 ;; c++-defun-header-strong-struct-equivs
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
954 ;; wh-nec id wh-opt inherit "?" wh-opt "{")))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
955 ;; (concat "^\\(" func-header "\\|" cs-header "\\)"))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
956 ;; "Strongly-defined regexp to match beginning of structure or function def.")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
957 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
958 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
959 ;; ;; This part has to do with recognizing defuns.
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
960 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
961 ;; ;; The weak convention we will use is that a defun begins any time
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
962 ;; ;; there is a left curly brace, or some identifier on the left margin,
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
963 ;; ;; followed by a left curly somewhere on the line. (This will also
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
964 ;; ;; incorrectly match some continued strings, but this is after all
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
965 ;; ;; just a weak heuristic.) Suggestions for improvement (short of the
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
966 ;; ;; strong scheme shown above) are welcomed.
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
967 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
968 ;; (defconst c++-defun-header-weak "^{\\|^[_a-zA-Z].*{"
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
969 ;; "Weakly-defined regexp to match beginning of structure or function def.")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
970 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
971 ;; (defun c++-beginning-of-defun (arg)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
972 ;; (interactive "p")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
973 ;; (let ((c++-defun-header (if c++-match-header-strongly
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
974 ;; c++-defun-header-strong
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
975 ;; c++-defun-header-weak)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
976 ;; (cond ((or (= arg 0) (and (> arg 0) (bobp))) nil)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
977 ;; ((and (not (looking-at c++-defun-header))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
978 ;; (let ((curr-pos (point))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
979 ;; (open-pos (if (search-forward "{" nil 'move)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
980 ;; (point)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
981 ;; (beg-pos
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
982 ;; (if (re-search-backward c++-defun-header nil 'move)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
983 ;; (match-beginning 0))))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
984 ;; (if (and open-pos beg-pos
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
985 ;; (< beg-pos curr-pos)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
986 ;; (> open-pos curr-pos))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
987 ;; (progn
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
988 ;; (goto-char beg-pos)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
989 ;; (if (= arg 1) t nil));; Are we done?
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
990 ;; (goto-char curr-pos)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
991 ;; nil))))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
992 ;; (t
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
993 ;; (if (and (looking-at c++-defun-header) (not (bobp)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
994 ;; (forward-char (if (< arg 0) 1 -1)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
995 ;; (and (re-search-backward c++-defun-header nil 'move (or arg 1))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
996 ;; (goto-char (match-beginning 0)))))))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
997 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
998 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
999 ;; (defun c++-end-of-defun (arg)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1000 ;; (interactive "p")
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1001 ;; (let ((c++-defun-header (if c++-match-header-strongly
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1002 ;; c++-defun-header-strong
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1003 ;; c++-defun-header-weak)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1004 ;; (if (and (eobp) (> arg 0))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1005 ;; nil
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1006 ;; (if (and (> arg 0) (looking-at c++-defun-header)) (forward-char 1))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1007 ;; (let ((pos (point)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1008 ;; (c++-beginning-of-defun
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1009 ;; (if (< arg 0)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1010 ;; (- (- arg (if (eobp) 0 1)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1011 ;; arg))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1012 ;; (if (and (< arg 0) (bobp))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1013 ;; t
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1014 ;; (if (re-search-forward c++-defun-header nil 'move)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1015 ;; (progn (forward-char -1)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1016 ;; (forward-sexp)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1017 ;; (beginning-of-line 2)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1018 ;; (if (and (= pos (point))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1019 ;; (re-search-forward c++-defun-header nil 'move))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1020 ;; (c++-end-of-defun 1))))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1021 ;; t)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1022 ;;
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1023 ;; (defun c++-indent-defun ()
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1024 ;; "Indents the current function definition, struct or class declaration."
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1025 ;; (interactive)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1026 ;; (let ((restore (point)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1027 ;; (c++-end-of-defun 1)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1028 ;; (beginning-of-line 1)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1029 ;; (let ((end (point)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1030 ;; (c++-beginning-of-defun 1)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1031 ;; (while (<= (point) end)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1032 ;; (c++-indent-line)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1033 ;; (next-line 1)
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1034 ;; (beginning-of-line 1)))
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 798
diff changeset
1035 ;; (goto-char restore)))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 257
diff changeset
1036
3806
d43666cf0dbb Comment changes for renaming from c++-mode.el to cplus-md.el.
Richard M. Stallman <rms@gnu.org>
parents: 3627
diff changeset
1037 ;;; cplus-md.el ends here