annotate lisp/progmodes/c-mode.el @ 1803:5752a95053f2

* xterm.c (x_window_to_scrollbar): Search frames' condemned_scrollbars list as well; input might arrive during redisplay. (x_scrollbar_report_motion): Don't forget to BLOCK_INPUT. (XTjudge_scrollbars): Clear the condemned scrollbar list before traversing it, so we don't try to process an event on a scrollbar we've killed.
author Jim Blandy <jimb@redhat.com>
date Sat, 16 Jan 1993 05:58:15 +0000
parents e0463f021e2f
children fe2bebf150c7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 472
diff changeset
1 ;;; c-mode.el --- C code editing commands for Emacs
909
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
2 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 837
diff changeset
3
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 759
diff changeset
4 ;; Maintainer: FSF
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 759
diff changeset
5 ;; Keywords: c
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 759
diff changeset
6
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
7 ;; This file is part of GNU Emacs.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
8
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
9 ;; GNU Emacs is free software; you can redistribute it and/or modify
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
10 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 759
diff changeset
11 ;; the Free Software Foundation; either version 2, or (at your option)
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
12 ;; any later version.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
13
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
14 ;; GNU Emacs is distributed in the hope that it will be useful,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
17 ;; GNU General Public License for more details.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
18
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
19 ;; You should have received a copy of the GNU General Public License
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
20 ;; along with GNU Emacs; see the file COPYING. If not, write to
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
22
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 759
diff changeset
23 ;;; Code:
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
24
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
25 (defvar c-mode-abbrev-table nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
26 "Abbrev table in use in C mode.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
27 (define-abbrev-table 'c-mode-abbrev-table ())
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
28
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
29 (defvar c-mode-map ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
30 "Keymap used in C mode.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
31 (if c-mode-map
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
32 ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
33 (setq c-mode-map (make-sparse-keymap))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
34 (define-key c-mode-map "{" 'electric-c-brace)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
35 (define-key c-mode-map "}" 'electric-c-brace)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
36 (define-key c-mode-map ";" 'electric-c-semi)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
37 (define-key c-mode-map "#" 'electric-c-sharp-sign)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
38 (define-key c-mode-map ":" 'electric-c-terminator)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
39 (define-key c-mode-map "\e\C-h" 'mark-c-function)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
40 (define-key c-mode-map "\e\C-q" 'indent-c-exp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
41 (define-key c-mode-map "\ea" 'c-beginning-of-statement)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
42 (define-key c-mode-map "\ee" 'c-end-of-statement)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
43 (define-key c-mode-map "\eq" 'c-fill-paragraph)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
44 (define-key c-mode-map "\177" 'backward-delete-char-untabify)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
45 (define-key c-mode-map "\t" 'c-indent-command))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
46
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
47 ;; cmacexp is lame because it uses no preprocessor symbols.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
48 ;; It isn't very extensible either -- hardcodes /lib/cpp.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
49 (autoload 'c-macro-expand "cmacexp"
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
50 "Display the result of expanding all C macros occurring in the region.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
51 The expansion is entirely correct because it uses the C preprocessor."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
52 t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
53
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
54 (defvar c-mode-syntax-table nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
55 "Syntax table in use in C-mode buffers.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
56
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
57 (if c-mode-syntax-table
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
58 ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
59 (setq c-mode-syntax-table (make-syntax-table))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
60 (modify-syntax-entry ?\\ "\\" c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
61 (modify-syntax-entry ?/ ". 14" c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
62 (modify-syntax-entry ?* ". 23" c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
63 (modify-syntax-entry ?+ "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
64 (modify-syntax-entry ?- "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
65 (modify-syntax-entry ?= "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
66 (modify-syntax-entry ?% "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
67 (modify-syntax-entry ?< "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
68 (modify-syntax-entry ?> "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
69 (modify-syntax-entry ?& "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
70 (modify-syntax-entry ?| "." c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
71 (modify-syntax-entry ?\' "\"" c-mode-syntax-table))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
72
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
73 (defconst c-indent-level 2
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
74 "*Indentation of C statements with respect to containing block.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
75 (defconst c-brace-imaginary-offset 0
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
76 "*Imagined indentation of a C open brace that actually follows a statement.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
77 (defconst c-brace-offset 0
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
78 "*Extra indentation for braces, compared with other text in same context.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
79 (defconst c-argdecl-indent 5
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
80 "*Indentation level of declarations of C function arguments.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
81 (defconst c-label-offset -2
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
82 "*Offset of C label lines and case statements relative to usual indentation.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
83 (defconst c-continued-statement-offset 2
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
84 "*Extra indent for lines not starting new statements.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
85 (defconst c-continued-brace-offset 0
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
86 "*Extra indent for substatements that start with open-braces.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
87 This is in addition to c-continued-statement-offset.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
88 (defconst c-style-alist
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
89 '(("GNU"
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
90 (c-indent-level . 2)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
91 (c-argdecl-indent . 5)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
92 (c-brace-offset . 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
93 (c-label-offset . -2)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
94 (c-continued-statement-offset . 2))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
95 ("K&R"
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
96 (c-indent-level . 5)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
97 (c-argdecl-indent . 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
98 (c-brace-offset . -5)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
99 (c-label-offset . -5)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
100 (c-continued-statement-offset . 5))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
101 ("BSD"
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
102 (c-indent-level . 4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
103 (c-argdecl-indent . 4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
104 (c-brace-offset . -4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
105 (c-label-offset . -4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
106 (c-continued-statement-offset . 4))
1661
26d8a65a6e32 * c-mode.el (c-style-alist): Add quotes around C++ style name.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1205
diff changeset
107 ("C++"
472
e6b49c51a9bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 453
diff changeset
108 (c-indent-level . 4)
e6b49c51a9bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 453
diff changeset
109 (c-continued-statement-offset . 4)
e6b49c51a9bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 453
diff changeset
110 (c-brace-offset . -4)
e6b49c51a9bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 453
diff changeset
111 (c-argdecl-indent . 0)
e6b49c51a9bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 453
diff changeset
112 (c-label-offset . -4)
e6b49c51a9bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 453
diff changeset
113 (c-auto-newline . t))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
114 ("Whitesmith"
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
115 (c-indent-level . 4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
116 (c-argdecl-indent . 4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
117 (c-brace-offset . 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
118 (c-label-offset . -4)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
119 (c-continued-statement-offset . 4))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
120
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
121 (defconst c-auto-newline nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
122 "*Non-nil means automatically newline before and after braces,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
123 and after colons and semicolons, inserted in C code.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
124 If you do not want a leading newline before braces then use:
1159
14a07c6ffb04 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1086
diff changeset
125 (define-key c-mode-map \"{\" 'electric-c-semi)")
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
126
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
127 (defconst c-tab-always-indent t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
128 "*Non-nil means TAB in C mode should always reindent the current line,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
129 regardless of where in the line point is when the TAB command is used.")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
130
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
131 (defun c-mode ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
132 "Major mode for editing C code.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
133 Expression and list commands understand all C brackets.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
134 Tab indents for C code.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
135 Comments are delimited with /* ... */.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
136 Paragraphs are separated by blank lines only.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
137 Delete converts tabs to spaces as it moves back.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
138 \\{c-mode-map}
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
139 Variables controlling indentation style:
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
140 c-tab-always-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
141 Non-nil means TAB in C mode should always reindent the current line,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
142 regardless of where in the line point is when the TAB command is used.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
143 c-auto-newline
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
144 Non-nil means automatically newline before and after braces,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
145 and after colons and semicolons, inserted in C code.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
146 c-indent-level
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
147 Indentation of C statements within surrounding block.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
148 The surrounding block's indentation is the indentation
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
149 of the line on which the open-brace appears.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
150 c-continued-statement-offset
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
151 Extra indentation given to a substatement, such as the
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
152 then-clause of an if or body of a while.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
153 c-continued-brace-offset
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
154 Extra indentation given to a brace that starts a substatement.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
155 This is in addition to c-continued-statement-offset.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
156 c-brace-offset
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
157 Extra indentation for line if it starts with an open brace.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
158 c-brace-imaginary-offset
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
159 An open brace following other text is treated as if it were
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
160 this far to the right of the start of its line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
161 c-argdecl-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
162 Indentation level of declarations of C function arguments.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
163 c-label-offset
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
164 Extra indentation for line that is a label, or case or default.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
165
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
166 Settings for K&R and BSD indentation styles are
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
167 c-indent-level 5 8
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
168 c-continued-statement-offset 5 8
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
169 c-brace-offset -5 -8
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
170 c-argdecl-indent 0 8
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
171 c-label-offset -5 -8
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
172
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
173 Turning on C mode calls the value of the variable c-mode-hook with no args,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
174 if that value is non-nil."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
175 (interactive)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
176 (kill-all-local-variables)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
177 (use-local-map c-mode-map)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
178 (setq major-mode 'c-mode)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
179 (setq mode-name "C")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
180 (setq local-abbrev-table c-mode-abbrev-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
181 (set-syntax-table c-mode-syntax-table)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
182 (make-local-variable 'paragraph-start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
183 (setq paragraph-start (concat "^$\\|" page-delimiter))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
184 (make-local-variable 'paragraph-separate)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
185 (setq paragraph-separate paragraph-start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
186 (make-local-variable 'paragraph-ignore-fill-prefix)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
187 (setq paragraph-ignore-fill-prefix t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
188 (make-local-variable 'indent-line-function)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
189 (setq indent-line-function 'c-indent-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
190 (make-local-variable 'indent-region-function)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
191 (setq indent-region-function 'c-indent-region)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
192 (make-local-variable 'require-final-newline)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
193 (setq require-final-newline t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
194 (make-local-variable 'comment-start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
195 (setq comment-start "/* ")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
196 (make-local-variable 'comment-end)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
197 (setq comment-end " */")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
198 (make-local-variable 'comment-column)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
199 (setq comment-column 32)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
200 (make-local-variable 'comment-start-skip)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
201 (setq comment-start-skip "/\\*+ *")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
202 (make-local-variable 'comment-indent-hook)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
203 (setq comment-indent-hook 'c-comment-indent)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
204 (make-local-variable 'parse-sexp-ignore-comments)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
205 (setq parse-sexp-ignore-comments t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
206 (run-hooks 'c-mode-hook))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
207
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
208 ;; This is used by indent-for-comment
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
209 ;; to decide how much to indent a comment in C code
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
210 ;; based on its context.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
211 (defun c-comment-indent ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
212 (if (looking-at "^/\\*")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
213 0 ;Existing comment at bol stays there.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
214 (let ((opoint (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
215 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
216 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
217 (cond ((looking-at "[ \t]*}[ \t]*\\($\\|/\\*\\)")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
218 ;; A comment following a solitary close-brace
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
219 ;; should have only one space.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
220 (search-forward "}")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
221 (1+ (current-column)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
222 ((or (looking-at "^#[ \t]*endif[ \t]*")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
223 (looking-at "^#[ \t]*else[ \t]*"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
224 7) ;2 spaces after #endif
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
225 ((progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
226 (goto-char opoint)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
227 (skip-chars-backward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
228 (and (= comment-column 0) (bolp)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
229 ;; If comment-column is 0, and nothing but space
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
230 ;; before the comment, align it at 0 rather than 1.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
231 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
232 (t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
233 (max (1+ (current-column)) ;Else indent at comment column
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
234 comment-column))))))) ; except leave at least one space.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
235
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
236 (defun c-fill-paragraph (&optional arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
237 "Like \\[fill-paragraph] but handle C comments.
1081
4e7d09b779eb *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
238 If any of the current line is a comment or within a comment,
4e7d09b779eb *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
239 fill the comment or the paragraph of it that point is in,
4e7d09b779eb *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
240 preserving the comment indentation or line-starting decorations."
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
241 (interactive "P")
1086
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
242 (let* (comment-start-place
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
243 (first-line
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
244 ;; Check for obvious entry to comment.
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
245 (save-excursion
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
246 (beginning-of-line)
1701
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
247 (skip-chars-forward " \t\n")
1086
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
248 (and (looking-at comment-start-skip)
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
249 (setq comment-start-place (point))))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
250 (if (or first-line
1064
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
251 ;; t if we enter a comment between start of function and this line.
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
252 (eq (calculate-c-indent) t)
1081
4e7d09b779eb *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1064
diff changeset
253 ;; t if this line contains a comment starter.
1181
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
254 (setq first-line
1701
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
255 (save-excursion
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
256 (beginning-of-line)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
257 (prog1
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
258 (re-search-forward comment-start-skip
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
259 (save-excursion (end-of-line)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
260 (point))
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
261 t)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
262 (setq comment-start-place (point))))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
263 ;; Inside a comment: fill one comment paragraph.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
264 (let ((fill-prefix
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
265 ;; The prefix for each line of this paragraph
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
266 ;; is the appropriate part of the start of this line,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
267 ;; up to the column at which text should be indented.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
268 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
269 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
270 (if (looking-at "[ \t]*/\\*.*\\*/")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
271 (progn (re-search-forward comment-start-skip)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
272 (make-string (current-column) ?\ ))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
273 (if first-line (forward-line 1))
1701
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
274
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
275 (let ((line-width (progn (end-of-line) (current-column))))
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
276 (beginning-of-line)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
277 (prog1
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
278 (buffer-substring
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
279 (point)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
280
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
281 ;; How shall we decide where the end of the
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
282 ;; fill-prefix is?
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
283 ;; calculate-c-indent-within-comment bases its value
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
284 ;; on the indentation of previous lines; if they're
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
285 ;; indented specially, it could return a column
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
286 ;; that's well into the current line's text. So
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
287 ;; we'll take at most that many space, tab, or *
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
288 ;; characters, and use that as our fill prefix.
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
289 (let ((max-prefix-end
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
290 (progn
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
291 (move-to-column
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
292 (calculate-c-indent-within-comment t)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
293 t)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
294 (point))))
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
295 (beginning-of-line)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
296 (skip-chars-forward " \t*" max-prefix-end)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
297 (point)))
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
298
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
299 ;; If the comment is only one line followed by a blank
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
300 ;; line, calling move-to-column above may have added
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
301 ;; some spaces and tabs to the end of the line; the
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
302 ;; fill-paragraph function will then delete it and the
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
303 ;; newline following it, so we'll lose a blank line
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
304 ;; when we shouldn't. So delete anything
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
305 ;; move-to-column added to the end of the line. We
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
306 ;; record the line width instead of the position of the
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
307 ;; old line end because move-to-column might break a
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
308 ;; tab into spaces, and the new characters introduced
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
309 ;; there shouldn't be deleted.
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
310
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
311 ;; If you can see a better way to do this, please make
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
312 ;; the change. This seems very messy to me.
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
313 (delete-region (progn (move-to-column line-width)
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
314 (point))
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
315 (progn (end-of-line) (point))))))))
e0463f021e2f * c-mode.el (c-fill-paragraph): Calculating the proper fill-prefix
Jim Blandy <jimb@redhat.com>
parents: 1662
diff changeset
316
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
317 (paragraph-start
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
318 ;; Lines containing just a comment start or just an end
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
319 ;; should not be filled into paragraphs they are next to.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
320 (concat paragraph-start
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
321 "\\|^[ \t]*/\\*[ \t]*$\\|^[ \t]*\\*/[ \t]*$\\|^[^ \t/*]"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
322 (paragraph-separate
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
323 (concat paragraph-separate
1181
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
324 "\\|^[ \t]*/\\*[ \t]*$\\|^[ \t]*\\*/[ \t]*$\\|^[^ \t/*]"))
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
325 (chars-to-delete 0))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
326 (save-restriction
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
327 ;; Don't fill the comment together with the code following it.
1086
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
328 ;; So temporarily exclude everything before the comment start,
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
329 ;; and everything after the line where the comment ends.
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
330 ;; If comment-start-place is non-nil, the comment starter is there.
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
331 ;; Otherwise, point is inside the comment.
1181
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
332 (narrow-to-region (save-excursion
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
333 (if comment-start-place
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
334 (goto-char comment-start-place)
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
335 (search-backward "/*"))
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
336 ;; Protect text before the comment start
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
337 ;; by excluding it. Add spaces to bring back
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
338 ;; proper indentation of that point.
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
339 (let ((column (current-column)))
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
340 (prog1 (point)
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
341 (setq chars-to-delete column)
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
342 (insert-char ?\ column))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
343 (save-excursion
1086
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
344 (if comment-start-place
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
345 (goto-char (+ comment-start-place 2)))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
346 (search-forward "*/" nil 'move)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
347 (forward-line 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
348 (point)))
1181
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
349
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
350 (fill-paragraph arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
351 (save-excursion
1181
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
352 ;; Delete the chars we inserted to avoid clobbering
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
353 ;; the stuff before the comment start.
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
354 (goto-char (point-min))
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
355 (if (> chars-to-delete 0)
5897b220ad8e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1177
diff changeset
356 (delete-region (point) (+ (point) chars-to-delete)))
1086
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
357 ;; Find the comment ender (should be on last line of buffer,
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
358 ;; given the narrowing) and don't leave it on its own line.
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
359 (goto-char (point-max))
273918bf0a95 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1081
diff changeset
360 (forward-line -1)
1662
ee7f627ef26e Fri Dec 4 00:31:30 1992 Jim Blandy (jimb@totoro.cs.oberlin.edu)
Jim Blandy <jimb@redhat.com>
parents: 1661
diff changeset
361 (search-forward "*/" nil 'move)
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
362 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
363 (if (looking-at "[ \t]*\\*/")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
364 (delete-indentation)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
365 ;; Outside of comments: do ordinary filling.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
366 (fill-paragraph arg))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
367
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
368 (defun electric-c-brace (arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
369 "Insert character and correct line's indentation."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
370 (interactive "P")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
371 (let (insertpos)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
372 (if (and (not arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
373 (eolp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
374 (or (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
375 (skip-chars-backward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
376 (bolp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
377 (if c-auto-newline (progn (c-indent-line) (newline) t) nil)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
378 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
379 (insert last-command-char)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
380 (c-indent-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
381 (if c-auto-newline
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
382 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
383 (newline)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
384 ;; (newline) may have done auto-fill
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
385 (setq insertpos (- (point) 2))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
386 (c-indent-line)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
387 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
388 (if insertpos (goto-char (1+ insertpos)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
389 (delete-char -1))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
390 (if insertpos
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
391 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
392 (goto-char insertpos)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
393 (self-insert-command (prefix-numeric-value arg)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
394 (self-insert-command (prefix-numeric-value arg)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
395
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
396 (defun electric-c-sharp-sign (arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
397 "Insert character and correct line's indentation."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
398 (interactive "P")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
399 (if (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
400 (skip-chars-backward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
401 (bolp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
402 (let ((c-auto-newline nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
403 (electric-c-terminator arg))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
404 (self-insert-command (prefix-numeric-value arg))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
405
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
406 (defun electric-c-semi (arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
407 "Insert character and correct line's indentation."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
408 (interactive "P")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
409 (if c-auto-newline
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
410 (electric-c-terminator arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
411 (self-insert-command (prefix-numeric-value arg))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
412
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
413 (defun electric-c-terminator (arg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
414 "Insert character and correct line's indentation."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
415 (interactive "P")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
416 (let (insertpos (end (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
417 (if (and (not arg) (eolp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
418 (not (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
419 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
420 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
421 (or (= (following-char) ?#)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
422 ;; Colon is special only after a label, or case ....
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
423 ;; So quickly rule out most other uses of colon
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
424 ;; and do no indentation for them.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
425 (and (eq last-command-char ?:)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
426 (not (looking-at "case[ \t'/(]\\|default\\>"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
427 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
428 (skip-chars-forward "a-zA-Z0-9_$")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
429 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
430 (< (point) end)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
431 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
432 (beginning-of-defun)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
433 (let ((pps (parse-partial-sexp (point) end)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
434 (or (nth 3 pps) (nth 4 pps) (nth 5 pps))))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
435 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
436 (insert last-command-char)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
437 (c-indent-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
438 (and c-auto-newline
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
439 (not (c-inside-parens-p))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
440 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
441 (newline)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
442 ;; (newline) may have done auto-fill
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
443 (setq insertpos (- (point) 2))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
444 (c-indent-line)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
445 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
446 (if insertpos (goto-char (1+ insertpos)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
447 (delete-char -1))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
448 (if insertpos
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
449 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
450 (goto-char insertpos)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
451 (self-insert-command (prefix-numeric-value arg)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
452 (self-insert-command (prefix-numeric-value arg)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
454 (defun c-inside-parens-p ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
455 (condition-case ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
456 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
457 (save-restriction
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
458 (narrow-to-region (point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
459 (progn (beginning-of-defun) (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
460 (goto-char (point-max))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
461 (= (char-after (or (scan-lists (point) -1 1) (point-min))) ?\()))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
462 (error nil)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
463
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
464 (defun c-indent-command (&optional whole-exp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
465 "Indent current line as C code, or in some cases insert a tab character.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
466 If `c-tab-always-indent' is non-nil (the default), always indent current line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
467 Otherwise, indent the current line only if point is at the left margin or
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
468 in the line's indentation; otherwise insert a tab.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
469
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
470 A numeric argument, regardless of its value, means indent rigidly all the
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
471 lines of the expression starting after point so that this line becomes
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
472 properly indented. The relative indentation among the lines of the
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
473 expression are preserved."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
474 (interactive "P")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
475 (if whole-exp
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
476 ;; If arg, always indent this line as C
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
477 ;; and shift remaining lines of expression the same amount.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
478 (let ((shift-amt (c-indent-line))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
479 beg end)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
480 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
481 (if c-tab-always-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
482 (beginning-of-line))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
483 ;; Find beginning of following line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
484 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
485 (forward-line 1) (setq beg (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
486 ;; Find first beginning-of-sexp for sexp extending past this line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
487 (while (< (point) beg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
488 (forward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
489 (setq end (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
490 (skip-chars-forward " \t\n")))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
491 (if (> end beg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
492 (indent-code-rigidly beg end shift-amt "#")))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
493 (if (and (not c-tab-always-indent)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
494 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
495 (skip-chars-backward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
496 (not (bolp))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
497 (insert-tab)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
498 (c-indent-line))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
499
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
500 (defun c-indent-line ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
501 "Indent current line as C code.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
502 Return the amount the indentation changed by."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
503 (let ((indent (calculate-c-indent nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
504 beg shift-amt
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
505 (case-fold-search nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
506 (pos (- (point-max) (point))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
507 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
508 (setq beg (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
509 (cond ((eq indent nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
510 (setq indent (current-indentation)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
511 ((eq indent t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
512 (setq indent (calculate-c-indent-within-comment)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
513 ((looking-at "[ \t]*#")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
514 (setq indent 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
515 (t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
516 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
517 (if (listp indent) (setq indent (car indent)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
518 (cond ((or (looking-at "case[ \t'/(]\\|default\\>")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
519 (and (looking-at "[A-Za-z]")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
520 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
521 (forward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
522 (looking-at ":"))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
523 (setq indent (max 1 (+ indent c-label-offset))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
524 ((and (looking-at "else\\b")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
525 (not (looking-at "else\\s_")))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
526 (setq indent (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
527 (c-backward-to-start-of-if)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
528 (current-indentation))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
529 ((looking-at "}[ \t]*else")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
530 (setq indent (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
531 (forward-char)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
532 (backward-sexp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
533 (current-indentation))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
534 ((and (looking-at "while\\b")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
535 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
536 (c-backward-to-start-of-do)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
537 ;; This is a `while' that ends a do-while.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
538 (setq indent (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
539 (c-backward-to-start-of-do)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
540 (current-indentation))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
541 ((= (following-char) ?})
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
542 (setq indent (- indent c-indent-level)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
543 ((= (following-char) ?{)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
544 (setq indent (+ indent c-brace-offset))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
545 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
546 (setq shift-amt (- indent (current-column)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
547 (if (zerop shift-amt)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
548 (if (> (- (point-max) pos) (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
549 (goto-char (- (point-max) pos)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
550 (delete-region beg (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
551 (indent-to indent)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
552 ;; If initial point was within line's indentation,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
553 ;; position after the indentation. Else stay at same point in text.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
554 (if (> (- (point-max) pos) (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
555 (goto-char (- (point-max) pos))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
556 shift-amt))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
557
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
558 (defun calculate-c-indent (&optional parse-start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
559 "Return appropriate indentation for current line as C code.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
560 In usual case returns an integer: the column to indent to.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
561 Returns nil if line starts inside a string, t if in a comment."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
562 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
563 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
564 (let ((indent-point (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
565 (case-fold-search nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
566 state
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
567 containing-sexp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
568 (if parse-start
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
569 (goto-char parse-start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
570 (beginning-of-defun))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
571 (while (< (point) indent-point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
572 (setq parse-start (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
573 (setq state (parse-partial-sexp (point) indent-point 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
574 (setq containing-sexp (car (cdr state))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
575 (cond ((or (nth 3 state) (nth 4 state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
576 ;; return nil or t if should not change this line
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
577 (nth 4 state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
578 ((null containing-sexp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
579 ;; Line is at top level. May be data or function definition,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
580 ;; or may be function argument declaration.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
581 ;; Indent like the previous top level line
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
582 ;; unless that ends in a closeparen without semicolon,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
583 ;; in which case this line is the first argument decl.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
584 (goto-char indent-point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
585 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
586 (if (= (following-char) ?{)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
587 0 ; Unless it starts a function body
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
588 (c-backward-to-noncomment (or parse-start (point-min)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
589 ;; Look at previous line that's at column 0
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
590 ;; to determine whether we are in top-level decls
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
591 ;; or function's arg decls. Set basic-indent accordingly.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
592 (let ((basic-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
593 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
594 (re-search-backward "^[^ \^L\t\n#]" nil 'move)
759
58b7fc91b74a *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 662
diff changeset
595 (let (comment lim)
1064
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
596 ;; Recognize the DEFUN macro in Emacs.
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
597 (if (save-excursion
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
598 ;; Move down to the (putative) argnames line.
1184
5f4300ccc93f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1181
diff changeset
599 (while (and (not (eobp))
5f4300ccc93f entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 1181
diff changeset
600 (not (looking-at " *[({}#/]")))
1064
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
601 (forward-line 1))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
602 ;; Go back to the DEFUN, if it is one.
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
603 (condition-case nil
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
604 (backward-sexp 1)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
605 (error))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
606 (beginning-of-line)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
607 (looking-at "DEFUN\\b"))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
608 c-argdecl-indent
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
609 (if (and (looking-at "\\sw\\|\\s_")
1205
56d315ca10ee (calculate-c-indent): When testing for function-start line,
Richard M. Stallman <rms@gnu.org>
parents: 1184
diff changeset
610 ;; This is careful to stop at the first
56d315ca10ee (calculate-c-indent): When testing for function-start line,
Richard M. Stallman <rms@gnu.org>
parents: 1184
diff changeset
611 ;; paren if we have
56d315ca10ee (calculate-c-indent): When testing for function-start line,
Richard M. Stallman <rms@gnu.org>
parents: 1184
diff changeset
612 ;; int foo Proto ((int, int));
56d315ca10ee (calculate-c-indent): When testing for function-start line,
Richard M. Stallman <rms@gnu.org>
parents: 1184
diff changeset
613 (looking-at "[^\"\n=(]*(")
1064
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
614 (progn
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
615 (goto-char (1- (match-end 0)))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
616 (setq lim (point))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
617 (condition-case nil
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
618 (forward-sexp 1)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
619 (error))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
620 (skip-chars-forward " \t\f")
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
621 (and (< (point) indent-point)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
622 (not (memq (following-char)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
623 '(?\, ?\;)))))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
624 ;; Make sure the "function decl" we found
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
625 ;; is not inside a comment.
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
626 (progn
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
627 (beginning-of-line)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
628 (while (and (not comment)
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
629 (search-forward "/*" lim t))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
630 (setq comment
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
631 (not (search-forward "*/" lim t))))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
632 (not comment)))
e699ce19609f *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 1054
diff changeset
633 c-argdecl-indent 0))))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
634 basic-indent)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
635
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
636 ;; ;; Now add a little if this is a continuation line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
637 ;; (+ basic-indent (if (or (bobp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
638 ;; (memq (preceding-char) '(?\) ?\; ?\}))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
639 ;; ;; Line with zero indentation
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
640 ;; ;; is probably the return-type
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
641 ;; ;; of a function definition,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
642 ;; ;; so following line is function name.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
643 ;; (= (current-indentation) 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
644 ;; 0 c-continued-statement-offset))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
645
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
646 ((/= (char-after containing-sexp) ?{)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
647 ;; line is expression, not statement:
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
648 ;; indent to just after the surrounding open.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
649 (goto-char (1+ containing-sexp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
650 (current-column))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
651 (t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
652 ;; Statement level. Is it a continuation or a new statement?
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
653 ;; Find previous non-comment character.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
654 (goto-char indent-point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
655 (c-backward-to-noncomment containing-sexp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
656 ;; Back up over label lines, since they don't
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
657 ;; affect whether our line is a continuation.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
658 (while (or (eq (preceding-char) ?\,)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
659 (and (eq (preceding-char) ?:)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
660 (or (eq (char-after (- (point) 2)) ?\')
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
661 (memq (char-syntax (char-after (- (point) 2)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
662 '(?w ?_)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
663 (if (eq (preceding-char) ?\,)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
664 (progn (forward-char -1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
665 (c-backward-to-start-of-continued-exp containing-sexp)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
666 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
667 (c-backward-to-noncomment containing-sexp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
668 ;; Check for a preprocessor statement or its continuation lines.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
669 ;; Move back to end of previous non-preprocessor line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
670 (let ((found (point)) stop)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
671 (while (not stop)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
672 (cond ((save-excursion (end-of-line 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
673 (= (preceding-char) ?\\))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
674 (end-of-line 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
675 ;; This line is not preceded by a backslash.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
676 ;; So either it starts a preprocessor command
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
677 ;; or any following continuation lines
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
678 ;; should not be skipped.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
679 ((progn (beginning-of-line) (= (following-char) ?#))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
680 (end-of-line 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
681 (setq found (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
682 (t (setq stop t))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
683 (goto-char found))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
684 ;; Now we get the answer.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
685 (if (and (not (memq (preceding-char) '(nil ?\, ?\; ?\} ?\{)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
686 ;; But don't treat a line with a close-brace
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
687 ;; as a continuation. It is probably the
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
688 ;; end of an enum type declaration.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
689 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
690 (goto-char indent-point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
691 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
692 (not (= (following-char) ?}))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
693 ;; This line is continuation of preceding line's statement;
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
694 ;; indent c-continued-statement-offset more than the
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
695 ;; previous line of the statement.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
696 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
697 (c-backward-to-start-of-continued-exp containing-sexp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
698 (+ c-continued-statement-offset (current-column)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
699 (if (save-excursion (goto-char indent-point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
700 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
701 (eq (following-char) ?{))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
702 c-continued-brace-offset 0)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
703 ;; This line starts a new statement.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
704 ;; Position following last unclosed open.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
705 (goto-char containing-sexp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
706 ;; Is line first statement after an open-brace?
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
707 (or
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
708 ;; If no, find that first statement and indent like it.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
709 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
710 (forward-char 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
711 (let ((colon-line-end 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
712 (while (progn (skip-chars-forward " \t\n")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
713 (looking-at "#\\|/\\*\\|case[ \t\n'/(].*:\\|[a-zA-Z0-9_$]*:"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
714 ;; Skip over comments and labels following openbrace.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
715 (cond ((= (following-char) ?\#)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
716 (forward-line 1))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
717 ((= (following-char) ?\/)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
718 (forward-char 2)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
719 (search-forward "*/" nil 'move))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
720 ;; case or label:
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
721 (t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
722 (save-excursion (end-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
723 (setq colon-line-end (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
724 (search-forward ":"))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
725 ;; The first following code counts
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
726 ;; if it is before the line we want to indent.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
727 (and (< (point) indent-point)
1054
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
728 (-
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
729 (if (> colon-line-end (point))
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
730 (- (current-indentation) c-label-offset)
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
731 (current-column))
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
732 ;; If prev stmt starts with open-brace, that
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
733 ;; open brace was offset by c-brace-offset.
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
734 ;; Compensate to get the column where
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
735 ;; an ordinary statement would start.
f6f13367d93c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 909
diff changeset
736 (if (= (following-char) ?\{) c-brace-offset 0)))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
737 ;; If no previous statement,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
738 ;; indent it relative to line brace is on.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
739 ;; For open brace in column zero, don't let statement
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
740 ;; start there too. If c-indent-level is zero,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
741 ;; use c-brace-offset + c-continued-statement-offset instead.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
742 ;; For open-braces not the first thing in a line,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
743 ;; add in c-brace-imaginary-offset.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
744 (+ (if (and (bolp) (zerop c-indent-level))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
745 (+ c-brace-offset c-continued-statement-offset)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
746 c-indent-level)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
747 ;; Move back over whitespace before the openbrace.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
748 ;; If openbrace is not first nonwhite thing on the line,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
749 ;; add the c-brace-imaginary-offset.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
750 (progn (skip-chars-backward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
751 (if (bolp) 0 c-brace-imaginary-offset))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
752 ;; If the openbrace is preceded by a parenthesized exp,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
753 ;; move to the beginning of that;
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
754 ;; possibly a different line
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
755 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
756 (if (eq (preceding-char) ?\))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
757 (forward-sexp -1))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
758 ;; Get initial indentation of the line we are on.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
759 (current-indentation))))))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
760
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
761 (defun calculate-c-indent-within-comment (&optional after-star)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
762 "Return the indentation amount for line inside a block comment.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
763 Optional arg AFTER-STAR means, if lines in the comment have a leading star,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
764 return the indentation of the text that would follow this star."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
765 (let (end star-start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
766 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
767 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
768 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
769 (setq star-start (= (following-char) ?\*))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
770 (skip-chars-backward " \t\n")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
771 (setq end (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
772 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
773 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
774 (if after-star
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
775 (and (looking-at "\\*")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
776 (re-search-forward "\\*[ \t]*")))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
777 (and (re-search-forward "/\\*[ \t]*" end t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
778 star-start
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
779 (not after-star)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
780 (goto-char (1+ (match-beginning 0))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
781 (if (and (looking-at "[ \t]*$") (= (preceding-char) ?\*))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
782 (1+ (current-column))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
783 (current-column)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
784
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
785
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
786 (defun c-backward-to-noncomment (lim)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
787 (let (opoint stop)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
788 (while (not stop)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
789 (skip-chars-backward " \t\n\f" lim)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
790 (setq opoint (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
791 (if (and (>= (point) (+ 2 lim))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
792 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
793 (forward-char -2)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
794 (looking-at "\\*/")))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
795 (search-backward "/*" lim 'move)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
796 (setq stop (or (<= (point) lim)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
797 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
798 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
799 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
800 (not (looking-at "#")))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
801 (or stop (beginning-of-line))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
802
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
803 (defun c-backward-to-start-of-continued-exp (lim)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
804 (if (memq (preceding-char) '(?\) ?\"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
805 (forward-sexp -1))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
806 (beginning-of-line)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
807 (if (<= (point) lim)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
808 (goto-char (1+ lim)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
809 (skip-chars-forward " \t"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
810
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
811 (defun c-backward-to-start-of-if (&optional limit)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
812 "Move to the start of the last \"unbalanced\" `if'."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
813 (or limit (setq limit (save-excursion (beginning-of-defun) (point))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
814 (let ((if-level 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
815 (case-fold-search nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
816 (while (and (not (bobp)) (not (zerop if-level)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
817 (backward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
818 (cond ((looking-at "else\\b")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
819 (setq if-level (1+ if-level)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
820 ((looking-at "if\\b")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
821 (setq if-level (1- if-level)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
822 ((< (point) limit)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
823 (setq if-level 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
824 (goto-char limit))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
825
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
826 (defun c-backward-to-start-of-do (&optional limit)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
827 "If point follows a `do' statement, move to beginning of it and return t.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
828 Otherwise return nil and don't move point."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
829 (or limit (setq limit (save-excursion (beginning-of-defun) (point))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
830 (let ((first t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
831 (startpos (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
832 (done nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
833 (while (not done)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
834 (let ((next-start (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
835 (condition-case nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
836 ;; Move back one token or one brace or paren group.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
837 (backward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
838 ;; If we find an open-brace, we lose.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
839 (error (setq done 'fail)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
840 (if done
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
841 nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
842 ;; If we reached a `do', we win.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
843 (if (looking-at "do\\b")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
844 (setq done 'succeed)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
845 ;; Otherwise, if we skipped a semicolon, we lose.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
846 ;; (Exception: we can skip one semicolon before getting
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
847 ;; to a the last token of the statement, unless that token
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
848 ;; is a close brace.)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
849 (if (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
850 (forward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
851 (or (and (not first) (= (preceding-char) ?}))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
852 (search-forward ";" next-start t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
853 (if (and first
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
854 (/= (preceding-char) ?}))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
855 2 1))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
856 (setq done 'fail)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
857 (setq first nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
858 ;; If we go too far back in the buffer, we lose.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
859 (if (< (point) limit)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
860 (setq done 'fail)))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
861 (if (eq done 'succeed)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
862 t
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
863 (goto-char startpos)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
864 nil)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
865
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
866 (defun c-beginning-of-statement (count)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
867 "Go to the beginning of the innermost C statement.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
868 With prefix arg, go back N - 1 statements. If already at the beginning of a
871
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
869 statement then go to the beginning of the preceeding one.
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
870 If within a string or comment, move by sentences instead of statements."
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
871 (interactive "p")
871
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
872 (let ((here (point)) state)
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
873 (save-excursion
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
874 (beginning-of-defun)
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
875 (setq state (parse-partial-sexp (point) here nil nil)))
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
876 (if (or (nth 3 state) (nth 4 state))
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
877 (forward-sentence (- count))
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
878 (while (> count 0)
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
879 (c-beginning-of-statement-1)
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
880 (setq count (1- count)))
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
881 (while (< count 0)
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
882 (c-end-of-statement-1)
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
883 (setq count (1+ count))))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
884
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
885 (defun c-end-of-statement (count)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
886 "Go to the end of the innermost C statement.
871
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
887 With prefix arg, go forward N - 1 statements.
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
888 Move forward to end of the next statement if already at end.
34b6b37092c7 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 861
diff changeset
889 If within a string or comment, move by sentences instead of statements."
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
890 (interactive "p")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
891 (c-beginning-of-statement (- count)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
892
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
893 (defun c-beginning-of-statement-1 ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
894 (let ((last-begin (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
895 (first t))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
896 (condition-case ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
897 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
898 (while (and (not (bobp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
899 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
900 (backward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
901 (or first
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
902 (not (re-search-forward "[;{}]" last-begin t)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
903 (setq last-begin (point) first nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
904 (goto-char last-begin))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
905 (error (if first (backward-up-list 1) (goto-char last-begin))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
906
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
907 (defun c-end-of-statement-1 ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
908 (condition-case ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
909 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
910 (while (and (not (eobp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
911 (let ((beg (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
912 (forward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
913 (let ((end (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
914 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
915 (goto-char beg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
916 (not (re-search-forward "[;{}]" end t)))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
917 (re-search-backward "[;}]")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
918 (forward-char 1))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
919 (error
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
920 (let ((beg (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
921 (backward-up-list -1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
922 (let ((end (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
923 (goto-char beg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
924 (search-forward ";" end 'move))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
925
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
926 (defun mark-c-function ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
927 "Put mark at end of C function, point at beginning."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
928 (interactive)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
929 (push-mark (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
930 (end-of-defun)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
931 (push-mark (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
932 (beginning-of-defun)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
933 (backward-paragraph))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
934
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
935 (defun indent-c-exp (&optional endpos)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
936 "Indent each line of the C grouping following point.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
937 If optional arg ENDPOS is given, indent each line, stopping when
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
938 ENDPOS is encountered."
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
939 (interactive)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
940 (let* ((indent-stack (list nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
941 (opoint (point)) ;; May be altered below.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
942 (contain-stack
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
943 (list (if endpos
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
944 (let (funbeg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
945 ;; Find previous fcn-start.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
946 (save-excursion (forward-char 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
947 (beginning-of-defun)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
948 (setq funbeg (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
949 ;; Try to find containing open,
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
950 ;; but don't scan past that fcn-start.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
951 (save-restriction
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
952 (narrow-to-region funbeg (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
953 (condition-case nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
954 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
955 (backward-up-list 1) (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
956 ;; We gave up: must be between fcns.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
957 ;; Set opoint to beg of prev fcn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
958 ;; since otherwise calculate-c-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
959 ;; will get wrong answers.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
960 (error (setq opoint funbeg)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
961 (point)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
962 (point))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
963 (case-fold-search nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
964 restart outer-loop-done inner-loop-done state ostate
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
965 this-indent last-sexp
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
966 at-else at-brace at-while
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
967 last-depth
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
968 (next-depth 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
969 ;; If the braces don't match, get an error right away.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
970 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
971 (forward-sexp 1))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
972 ;; Realign the comment on the first line, even though we don't reindent it.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
973 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
974 (let ((beg (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
975 (and (re-search-forward
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
976 comment-start-skip
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
977 (save-excursion (end-of-line) (point)) t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
978 ;; Make sure the comment starter we found
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
979 ;; is not actually in a string or quoted.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
980 (let ((new-state
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
981 (parse-partial-sexp beg (point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
982 nil nil state)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
983 (and (not (nth 3 new-state)) (not (nth 5 new-state))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
984 (progn (indent-for-comment) (beginning-of-line)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
985 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
986 (setq outer-loop-done nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
987 (while (and (not (eobp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
988 (if endpos (< (point) endpos)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
989 (not outer-loop-done)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
990 (setq last-depth next-depth)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
991 ;; Compute how depth changes over this line
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
992 ;; plus enough other lines to get to one that
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
993 ;; does not end inside a comment or string.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
994 ;; Meanwhile, do appropriate indentation on comment lines.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
995 (setq inner-loop-done nil)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
996 (while (and (not inner-loop-done)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
997 (not (and (eobp) (setq outer-loop-done t))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
998 (setq ostate state)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
999 (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1000 nil nil state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1001 (setq next-depth (car state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1002 (if (and (car (cdr (cdr state)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1003 (>= (car (cdr (cdr state))) 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1004 (setq last-sexp (car (cdr (cdr state)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1005 (if (or (nth 4 ostate))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1006 (c-indent-line))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1007 (if (or (nth 3 state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1008 (forward-line 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1009 (setq inner-loop-done t)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1010 (and endpos
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1011 (while (< next-depth 0)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1012 (setq indent-stack (append indent-stack (list nil)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1013 (setq contain-stack (append contain-stack (list nil)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1014 (setq next-depth (1+ next-depth))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1015 (setq last-depth (1+ last-depth))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1016 (setcar (nthcdr 6 state) (1+ (nth 6 state)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1017 (setq outer-loop-done (and (not endpos) (<= next-depth 0)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1018 (if outer-loop-done
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1019 nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1020 ;; If this line had ..))) (((.. in it, pop out of the levels
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1021 ;; that ended anywhere in this line, even if the final depth
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1022 ;; doesn't indicate that they ended.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1023 (while (> last-depth (nth 6 state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1024 (setq indent-stack (cdr indent-stack)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1025 contain-stack (cdr contain-stack)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1026 last-depth (1- last-depth)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1027 (if (/= last-depth next-depth)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1028 (setq last-sexp nil))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1029 ;; Add levels for any parens that were started in this line.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1030 (while (< last-depth next-depth)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1031 (setq indent-stack (cons nil indent-stack)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1032 contain-stack (cons nil contain-stack)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1033 last-depth (1+ last-depth)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1034 (if (null (car contain-stack))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1035 (setcar contain-stack (or (car (cdr state))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1036 (save-excursion (forward-sexp -1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1037 (point)))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1038 (forward-line 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1039 (skip-chars-forward " \t")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1040 (if (eolp)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1041 nil
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1042 (if (and (car indent-stack)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1043 (>= (car indent-stack) 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1044 ;; Line is on an existing nesting level.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1045 ;; Lines inside parens are handled specially.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1046 (if (/= (char-after (car contain-stack)) ?{)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1047 (setq this-indent (car indent-stack))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1048 ;; Line is at statement level.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1049 ;; Is it a new statement? Is it an else?
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1050 ;; Find last non-comment character before this line
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1051 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1052 (setq at-else (looking-at "else\\W"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1053 (setq at-brace (= (following-char) ?{))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1054 (setq at-while (looking-at "while\\b"))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1055 (c-backward-to-noncomment opoint)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1056 (if (not (memq (preceding-char) '(nil ?\, ?\; ?} ?: ?{)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1057 ;; Preceding line did not end in comma or semi;
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1058 ;; indent this line c-continued-statement-offset
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1059 ;; more than previous.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1060 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1061 (c-backward-to-start-of-continued-exp (car contain-stack))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1062 (setq this-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1063 (+ c-continued-statement-offset (current-column)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1064 (if at-brace c-continued-brace-offset 0))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1065 ;; Preceding line ended in comma or semi;
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1066 ;; use the standard indent for this level.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1067 (cond (at-else (progn (c-backward-to-start-of-if opoint)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1068 (setq this-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1069 (current-indentation))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1070 ((and at-while (c-backward-to-start-of-do opoint))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1071 (setq this-indent (current-indentation)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1072 (t (setq this-indent (car indent-stack)))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1073 ;; Just started a new nesting level.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1074 ;; Compute the standard indent for this level.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1075 (let ((val (calculate-c-indent
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1076 (if (car indent-stack)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1077 (- (car indent-stack))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1078 opoint))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1079 (setcar indent-stack
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1080 (setq this-indent val))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1081 ;; Adjust line indentation according to its contents
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1082 (if (or (looking-at "case[ \t'/(]\\|default\\>")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1083 (and (looking-at "[A-Za-z]")
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1084 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1085 (forward-sexp 1)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1086 (looking-at ":"))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1087 (setq this-indent (max 1 (+ this-indent c-label-offset))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1088 (if (= (following-char) ?})
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1089 (setq this-indent (- this-indent c-indent-level)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1090 (if (= (following-char) ?{)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1091 (setq this-indent (+ this-indent c-brace-offset)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1092 ;; Don't leave indentation in empty lines.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1093 (if (eolp) (setq this-indent 0))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1094 ;; Put chosen indentation into effect.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1095 (or (= (current-column) this-indent)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1096 (= (following-char) ?\#)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1097 (progn
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1098 (delete-region (point) (progn (beginning-of-line) (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1099 (indent-to this-indent)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1100 ;; Indent any comment following the text.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1101 (or (looking-at comment-start-skip)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1102 (let ((beg (point)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1103 (and (re-search-forward
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1104 comment-start-skip
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1105 (save-excursion (end-of-line) (point)) t)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1106 ;; Make sure the comment starter we found
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1107 ;; is not actually in a string or quoted.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1108 (let ((new-state
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1109 (parse-partial-sexp beg (point)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1110 nil nil state)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1111 (and (not (nth 3 new-state)) (not (nth 5 new-state))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1112 (progn (indent-for-comment) (beginning-of-line)))))))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1113
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1114 ;; Look at all comment-start strings in the current line after point.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1115 ;; Return t if one of them starts a real comment.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1116 ;; This is not used yet, because indent-for-comment
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1117 ;; isn't smart enough to handle the cases this can find.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1118 (defun indent-c-find-real-comment ()
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1119 (let (win)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1120 (while (and (not win)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1121 (re-search-forward comment-start-skip
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1122 (save-excursion (end-of-line) (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1123 t))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1124 ;; Make sure the comment start is not quoted.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1125 (let ((state-1
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1126 (parse-partial-sexp
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1127 (save-excursion (beginning-of-line) (point))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1128 (point) nil nil state)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1129 (setq win (and (null (nth 3 state-1)) (null (nth 5 state-1))))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1130 win))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1131
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1132 ;; Indent every line whose first char is between START and END inclusive.
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1133 (defun c-indent-region (start end)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1134 (save-excursion
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1135 (goto-char start)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1136 (let ((endmark (copy-marker end)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1137 (and (bolp) (not (eolp))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1138 (c-indent-line))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1139 (indent-c-exp endmark)
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1140 (set-marker endmark nil))))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1141
837
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1142 (defun set-c-style (style &optional global)
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1143 "Set C-mode variables to use one of several different indentation styles.
837
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1144 The arguments are a string representing the desired style
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1145 and a flag which, if non-nil, means to set the style globally.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1146 \(Interactively, the flag comes from the prefix argument.)
861
345296f94a1e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 846
diff changeset
1147 Available styles are GNU, K&R, BSD and Whitesmith."
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1148 (interactive (list (completing-read "Use which C indentation style? "
837
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1149 c-style-alist nil t)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1150 current-prefix-arg))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1151 (let ((vars (cdr (assoc style c-style-alist))))
837
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1152 (or vars
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1153 (error "Invalid C indentation style `%s'" style))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1154 (while vars
837
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1155 (or global
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1156 (make-local-variable (car (car vars))))
453
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1157 (set (car (car vars)) (cdr (car vars)))
7c8c17669828 Initial revision
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
diff changeset
1158 (setq vars (cdr vars)))))
837
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1159
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1160 ;;; This page handles insertion and removal of backslashes for C macros.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1161
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1162 (defvar c-backslash-column 48
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1163 "*Minimum column for end-of-line backslashes of macro definitions.")
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1164
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1165 (defun c-backslash-region (from to delete-flag)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1166 "Insert, align, or delete end-of-line backslashes on the lines in the region.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1167 With no argument, inserts backslashes and aligns existing backslashes.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1168 With an argument, deletes the backslashes.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1169
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1170 This function does not modify the last line of the region if the region ends
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1171 right at the start of the following line; it does not modify blank lines
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1172 at the start of the region. So you can put the region around an entire macro
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1173 definition and conveniently use this command."
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1174 (interactive "r\nP")
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1175 (save-excursion
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1176 (goto-char from)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1177 (let ((column c-backslash-column)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1178 (endmark (make-marker)))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1179 (move-marker endmark to)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1180 ;; Compute the smallest column number past the ends of all the lines.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1181 (if (not delete-flag)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1182 (while (< (point) to)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1183 (end-of-line)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1184 (if (= (preceding-char) ?\\)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1185 (progn (forward-char -1)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1186 (skip-chars-backward " \t")))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1187 (setq column (max column (1+ (current-column))))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1188 (forward-line 1)))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1189 ;; Adjust upward to a tab column, if that doesn't push past the margin.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1190 (if (> (% column tab-width) 0)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1191 (let ((adjusted (* (/ (+ column tab-width -1) tab-width) tab-width)))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1192 (if (< adjusted (window-width))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1193 (setq column adjusted))))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1194 ;; Don't modify blank lines at start of region.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1195 (goto-char from)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1196 (while (and (< (point) endmark) (eolp))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1197 (forward-line 1))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1198 ;; Add or remove backslashes on all the lines.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1199 (while (and (< (point) endmark)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1200 ;; Don't backslashify the last line
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1201 ;; if the region ends right at the start of the next line.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1202 (save-excursion
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1203 (forward-line 1)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1204 (< (point) endmark)))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1205 (if (not delete-flag)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1206 (c-append-backslash column)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1207 (c-delete-backslash))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1208 (forward-line 1))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1209 (move-marker endmark nil))))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1210
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1211 (defun c-append-backslash (column)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1212 (end-of-line)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1213 ;; Note that "\\\\" is needed to get one backslash.
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1214 (if (= (preceding-char) ?\\)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1215 (progn (forward-char -1)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1216 (delete-horizontal-space)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1217 (indent-to column))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1218 (indent-to column)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1219 (insert "\\")))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1220
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1221 (defun c-delete-backslash ()
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1222 (end-of-line)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1223 (forward-char -1)
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1224 (if (looking-at "\\\\")
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1225 (delete-region (1+ (point))
a8aef92e0025 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 807
diff changeset
1226 (progn (skip-chars-backward " \t") (point)))))
909
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1227
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1228 (defun c-up-conditional (count)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1229 "Move back to the containing preprocessor conditional, leaving mark behind.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1230 A prefix argument acts as a repeat count. With a negative argument,
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1231 move forward to the end of the containing preprocessor conditional.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1232 When going backwards, `#elif' is treated like `#else' followed by `#if'.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1233 When going forwards, `#elif' is ignored."
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1234 (interactive "p")
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1235 (let* ((forward (< count 0))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1236 (increment (if forward -1 1))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1237 (search-function (if forward 're-search-forward 're-search-backward))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1238 (opoint (point))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1239 (new))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1240 (save-excursion
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1241 (while (/= count 0)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1242 (if forward (end-of-line))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1243 (let ((depth 0) found)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1244 (save-excursion
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1245 ;; Find the "next" significant line in the proper direction.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1246 (while (and (not found)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1247 ;; Rather than searching for a # sign that comes
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1248 ;; at the beginning of a line aside from whitespace,
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1249 ;; search first for a string starting with # sign.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1250 ;; Then verify what precedes it.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1251 ;; This is faster on account of the fastmap feature of
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1252 ;; the regexp matcher.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1253 (funcall search-function
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1254 "#[ \t]*\\(if\\|elif\\|endif\\)"
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1255 nil t)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1256 (progn
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1257 (beginning-of-line)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1258 (looking-at "^[ \t]*#[ \t]*\\(if\\|elif\\|endif\\)")))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1259 ;; Update depth according to what we found.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1260 (beginning-of-line)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1261 (cond ((looking-at "[ \t]*#[ \t]*endif")
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1262 (setq depth (+ depth increment)))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1263 ((looking-at "[ \t]*#[ \t]*elif")
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1264 (if (and forward (= depth 0))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1265 (setq found (point))))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1266 (t (setq depth (- depth increment))))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1267 ;; If this line exits a level of conditional, exit inner loop.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1268 (if (< depth 0)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1269 (setq found (point)))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1270 ;; When searching forward, start from end of line
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1271 ;; so that we don't find the same line again.
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1272 (if forward (end-of-line))))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1273 (or found
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1274 (error "No containing preprocessor conditional"))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1275 (goto-char (setq new found)))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1276 (setq count (- count increment))))
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1277 (push-mark)
4c6cdb66c74c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 871
diff changeset
1278 (goto-char new)))
662
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 472
diff changeset
1279
8a533acedb77 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 472
diff changeset
1280 ;;; c-mode.el ends here