Mercurial > emacs
annotate lisp/progmodes/cc-compat.el @ 102615:6192629dc5c9
* minibuf.texi (Basic Completion): Note that
read-file-name-completion-ignore-case and
read-buffer-completion-ignore-case can override
completion-ignore-case.
(Minibuffer Completion): Document completing-read changes.
(Completion Commands): Avoid mentioning partial completion mode.
Document minibuffer-completion-confirm changes, and
minibuffer-confirm-exit-commands.
(High-Level Completion): Document new require-match behavior for
read-buffer. Document read-buffer-completion-ignore-case.
(Reading File Names): Document new require-match behavior for
read-file-name.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 17 Mar 2009 04:54:03 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
18720 | 1 ;;; cc-compat.el --- cc-mode compatibility with c-mode.el confusion |
2 | |
74372 | 3 ;; Copyright (C) 1985, 1987, 1992, 1993, 1994, 1995, 1996, 1997, 1998, |
100908 | 4 ;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
75347 | 5 ;; Free Software Foundation, Inc. |
18720 | 6 |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
49598
diff
changeset
|
7 ;; Authors: 1998- Martin Stjernholm |
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
49598
diff
changeset
|
8 ;; 1994-1999 Barry A. Warsaw |
30405 | 9 ;; Maintainer: bug-cc-mode@gnu.org |
18720 | 10 ;; Created: August 1994, split from cc-mode.el |
20141 | 11 ;; Version: See cc-mode.el |
18720 | 12 ;; Keywords: c languages oop |
13 | |
14 ;; This file is part of GNU Emacs. | |
15 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
16 ;; GNU Emacs is free software: you can redistribute it and/or modify |
18720 | 17 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
18 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
19 ;; (at your option) any later version. |
18720 | 20 |
21 ;; GNU Emacs is distributed in the hope that it will be useful, | |
22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
24 ;; GNU General Public License for more details. | |
25 | |
26 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
27 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
18720 | 28 |
29 ;;; Commentary: | |
30 ;; | |
31 ;; Boring old c-mode.el (BOCM) is confusion and brain melt. cc-mode.el | |
32 ;; is clarity of thought and purity of chi. If you are still unwilling | |
33 ;; to accept enlightenment, this might help, or it may prolong your | |
34 ;; agony. | |
35 ;; | |
36 ;; To use, add the following to your c-mode-hook: | |
37 ;; | |
38 ;; (require 'cc-compat) | |
39 ;; (c-set-style "BOCM") | |
36920 | 40 ;; |
41 ;; This file is completely unsupported! Although it has been patched | |
42 ;; superficially to keep pace with the rest of CC Mode, it hasn't been | |
43 ;; tested for a long time. | |
18720 | 44 |
45 ;;; Code: | |
46 | |
47 (eval-when-compile | |
26817 | 48 (let ((load-path |
36920 | 49 (if (and (boundp 'byte-compile-dest-file) |
50 (stringp byte-compile-dest-file)) | |
51 (cons (file-name-directory byte-compile-dest-file) load-path) | |
26817 | 52 load-path))) |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
49598
diff
changeset
|
53 (load "cc-bytecomp" nil t))) |
36920 | 54 |
55 (cc-require 'cc-defs) | |
56 (cc-require 'cc-vars) | |
57 (cc-require 'cc-styles) | |
58 (cc-require 'cc-engine) | |
18720 | 59 |
60 | |
61 ;; In case c-mode.el isn't loaded | |
62 (defvar c-indent-level 2 | |
63 "*Indentation of C statements with respect to containing block.") | |
70590
63b772bfba93
Move `safe-local-variable' declarations to the respective files.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69140
diff
changeset
|
64 ;;;###autoload(put 'c-indent-level 'safe-local-variable 'integerp) |
63b772bfba93
Move `safe-local-variable' declarations to the respective files.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
69140
diff
changeset
|
65 |
18720 | 66 (defvar c-brace-imaginary-offset 0 |
67 "*Imagined indentation of a C open brace that actually follows a statement.") | |
68 (defvar c-brace-offset 0 | |
69 "*Extra indentation for braces, compared with other text in same context.") | |
70 (defvar c-argdecl-indent 5 | |
71 "*Indentation level of declarations of C function arguments.") | |
72 (defvar c-label-offset -2 | |
73 "*Offset of C label lines and case statements relative to usual indentation.") | |
74 (defvar c-continued-statement-offset 2 | |
75 "*Extra indent for lines not starting new statements.") | |
76 (defvar c-continued-brace-offset 0 | |
77 "*Extra indent for substatements that start with open-braces. | |
78 This is in addition to c-continued-statement-offset.") | |
79 | |
80 | |
81 | |
82 ;; these offsets are taken by brute force testing c-mode.el, since | |
83 ;; there's no logic to what it does. | |
84 (let* ((offsets '(c-offsets-alist . | |
85 ((defun-block-intro . cc-block-intro-offset) | |
86 (statement-block-intro . cc-block-intro-offset) | |
87 (defun-open . 0) | |
88 (class-open . 0) | |
89 (inline-open . c-brace-offset) | |
90 (block-open . c-brace-offset) | |
91 (block-close . cc-block-close-offset) | |
92 (brace-list-open . c-brace-offset) | |
93 (substatement-open . cc-substatement-open-offset) | |
94 (substatement . c-continued-statement-offset) | |
95 (knr-argdecl-intro . c-argdecl-indent) | |
96 (case-label . c-label-offset) | |
97 (access-label . c-label-offset) | |
98 (label . c-label-offset) | |
99 )))) | |
100 (c-add-style "BOCM" offsets)) | |
101 | |
102 | |
103 (defun cc-block-intro-offset (langelem) | |
104 ;; taken directly from calculate-c-indent confusion | |
105 (save-excursion | |
106 (c-backward-syntactic-ws) | |
107 (if (eq (char-before) ?{) | |
108 (forward-char -1) | |
109 (goto-char (cdr langelem))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
49598
diff
changeset
|
110 (let* ((curcol (save-excursion |
18720 | 111 (goto-char (cdr langelem)) |
112 (current-column))) | |
113 (bocm-lossage | |
114 ;; If no previous statement, indent it relative to line | |
115 ;; brace is on. For open brace in column zero, don't let | |
116 ;; statement start there too. If c-indent-level is zero, | |
117 ;; use c-brace-offset + c-continued-statement-offset | |
118 ;; instead. For open-braces not the first thing in a line, | |
119 ;; add in c-brace-imaginary-offset. | |
120 (+ (if (and (bolp) (zerop c-indent-level)) | |
121 (+ c-brace-offset c-continued-statement-offset) | |
122 c-indent-level) | |
123 ;; Move back over whitespace before the openbrace. If | |
124 ;; openbrace is not first nonwhite thing on the line, | |
125 ;; add the c-brace-imaginary-offset. | |
126 (progn (skip-chars-backward " \t") | |
127 (if (bolp) 0 c-brace-imaginary-offset)) | |
128 ;; If the openbrace is preceded by a parenthesized exp, | |
129 ;; move to the beginning of that; possibly a different | |
130 ;; line | |
131 (progn | |
132 (if (eq (char-before) ?\)) | |
24282 | 133 (c-forward-sexp -1)) |
18720 | 134 ;; Get initial indentation of the line we are on. |
135 (current-indentation))))) | |
136 (- bocm-lossage curcol)))) | |
137 | |
138 | |
139 (defun cc-block-close-offset (langelem) | |
140 (save-excursion | |
141 (let* ((here (point)) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
49598
diff
changeset
|
142 bracep |
18720 | 143 (curcol (progn |
144 (goto-char (cdr langelem)) | |
145 (current-column))) | |
146 (bocm-lossage (progn | |
147 (goto-char (cdr langelem)) | |
148 (if (eq (char-after) ?{) | |
149 (setq bracep t) | |
150 (goto-char here) | |
151 (beginning-of-line) | |
152 (backward-up-list 1) | |
153 (forward-char 1) | |
154 (c-forward-syntactic-ws)) | |
155 (current-column)))) | |
156 (- bocm-lossage curcol | |
157 (if bracep 0 c-indent-level))))) | |
51714
bc91cbf50c24
Updated CC Mode to version 5.30.
Martin Stjernholm <mast@lysator.liu.se>
parents:
49598
diff
changeset
|
158 |
18720 | 159 |
160 (defun cc-substatement-open-offset (langelem) | |
161 (+ c-continued-statement-offset c-continued-brace-offset)) | |
162 | |
163 | |
36920 | 164 (cc-provide 'cc-compat) |
52401 | 165 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79717
diff
changeset
|
166 ;; arch-tag: 564dab2f-e6ad-499c-a4a3-fedec3ecc192 |
18720 | 167 ;;; cc-compat.el ends here |