diff options
| author | Richard M. Stallman | 1997-08-11 22:11:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-11 22:11:27 +0000 |
| commit | 611c76a75cd669317de0ae20d0101149cad38c02 (patch) | |
| tree | 17c81fd1f0b5160c7cb89c20723075f18ad2ccbd | |
| parent | d278ad4fd2957232b1668d6d8be0302d8cc23b69 (diff) | |
| download | emacs-611c76a75cd669317de0ae20d0101149cad38c02.tar.gz emacs-611c76a75cd669317de0ae20d0101149cad38c02.zip | |
(c-initialize-cc-mode): Set c-buffer-is-cc-mode to t.
(c-initialize-cc-mode): Require 'cc-mode-19
if functionp is not bound. Check cc-mode-19 interface requirements.
(c-mode, c++-mode, objc-mode, java-mode, idl-mode):
Don't set comment-multi-line here.
(c-mode): c-comment-start-regexp uses
c-C++-comment-start-regexp to support line oriented comments.
| -rw-r--r-- | lisp/progmodes/cc-mode.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 2474b68857a..cd38565480b 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | ;; 1985 Richard M. Stallman | 7 | ;; 1985 Richard M. Stallman |
| 8 | ;; Maintainer: cc-mode-help@python.org | 8 | ;; Maintainer: cc-mode-help@python.org |
| 9 | ;; Created: a long, long, time ago. adapted from the original c-mode.el | 9 | ;; Created: a long, long, time ago. adapted from the original c-mode.el |
| 10 | ;; Version: 5.14 | 10 | ;; Version: 5.15 |
| 11 | ;; Keywords: c languages oop | 11 | ;; Keywords: c languages oop |
| 12 | 12 | ||
| 13 | ;; NOTE: Read the commentary below for the right way to submit bug reports! | 13 | ;; NOTE: Read the commentary below for the right way to submit bug reports! |
| @@ -91,6 +91,13 @@ | |||
| 91 | 91 | ||
| 92 | ;;;###autoload | 92 | ;;;###autoload |
| 93 | (defun c-initialize-cc-mode () | 93 | (defun c-initialize-cc-mode () |
| 94 | (setq c-buffer-is-cc-mode t) | ||
| 95 | ;; sigh. give in to the pressure, but make really sure all the | ||
| 96 | ;; definitions we need are here | ||
| 97 | (if (or (not (fboundp 'functionp)) | ||
| 98 | (not (fboundp 'char-before)) | ||
| 99 | (not (c-safe (char-after) t))) | ||
| 100 | (require 'cc-mode-19)) | ||
| 94 | ;; make sure all necessary components of CC Mode are loaded in. | 101 | ;; make sure all necessary components of CC Mode are loaded in. |
| 95 | (let ((initprop 'cc-mode-is-initialized)) | 102 | (let ((initprop 'cc-mode-is-initialized)) |
| 96 | (require 'cc-vars) | 103 | (require 'cc-vars) |
| @@ -136,11 +143,10 @@ Key bindings: | |||
| 136 | (c-common-init) | 143 | (c-common-init) |
| 137 | (setq comment-start "/* " | 144 | (setq comment-start "/* " |
| 138 | comment-end " */" | 145 | comment-end " */" |
| 139 | comment-multi-line t | ||
| 140 | c-conditional-key c-C-conditional-key | 146 | c-conditional-key c-C-conditional-key |
| 141 | c-class-key c-C-class-key | 147 | c-class-key c-C-class-key |
| 142 | c-baseclass-key nil | 148 | c-baseclass-key nil |
| 143 | c-comment-start-regexp c-C-comment-start-regexp | 149 | c-comment-start-regexp c-C++-comment-start-regexp |
| 144 | imenu-generic-expression cc-imenu-c-generic-expression) | 150 | imenu-generic-expression cc-imenu-c-generic-expression) |
| 145 | (run-hooks 'c-mode-common-hook) | 151 | (run-hooks 'c-mode-common-hook) |
| 146 | (run-hooks 'c-mode-hook) | 152 | (run-hooks 'c-mode-hook) |
| @@ -175,7 +181,6 @@ Key bindings: | |||
| 175 | (c-common-init) | 181 | (c-common-init) |
| 176 | (setq comment-start "// " | 182 | (setq comment-start "// " |
| 177 | comment-end "" | 183 | comment-end "" |
| 178 | comment-multi-line nil | ||
| 179 | c-conditional-key c-C++-conditional-key | 184 | c-conditional-key c-C++-conditional-key |
| 180 | c-comment-start-regexp c-C++-comment-start-regexp | 185 | c-comment-start-regexp c-C++-comment-start-regexp |
| 181 | c-class-key c-C++-class-key | 186 | c-class-key c-C++-class-key |
| @@ -216,7 +221,6 @@ Key bindings: | |||
| 216 | (c-common-init) | 221 | (c-common-init) |
| 217 | (setq comment-start "// " | 222 | (setq comment-start "// " |
| 218 | comment-end "" | 223 | comment-end "" |
| 219 | comment-multi-line nil | ||
| 220 | c-conditional-key c-C-conditional-key | 224 | c-conditional-key c-C-conditional-key |
| 221 | c-comment-start-regexp c-C++-comment-start-regexp | 225 | c-comment-start-regexp c-C++-comment-start-regexp |
| 222 | c-class-key c-ObjC-class-key | 226 | c-class-key c-ObjC-class-key |
| @@ -259,7 +263,6 @@ Key bindings: | |||
| 259 | (c-common-init) | 263 | (c-common-init) |
| 260 | (setq comment-start "// " | 264 | (setq comment-start "// " |
| 261 | comment-end "" | 265 | comment-end "" |
| 262 | comment-multi-line nil | ||
| 263 | c-conditional-key c-Java-conditional-key | 266 | c-conditional-key c-Java-conditional-key |
| 264 | c-comment-start-regexp c-Java-comment-start-regexp | 267 | c-comment-start-regexp c-Java-comment-start-regexp |
| 265 | c-class-key c-Java-class-key | 268 | c-class-key c-Java-class-key |
| @@ -305,7 +308,6 @@ Key bindings: | |||
| 305 | (c-common-init) | 308 | (c-common-init) |
| 306 | (setq comment-start "// " | 309 | (setq comment-start "// " |
| 307 | comment-end "" | 310 | comment-end "" |
| 308 | comment-multi-line nil | ||
| 309 | c-conditional-key c-C++-conditional-key | 311 | c-conditional-key c-C++-conditional-key |
| 310 | c-comment-start-regexp c-C++-comment-start-regexp | 312 | c-comment-start-regexp c-C++-comment-start-regexp |
| 311 | c-class-key c-C++-class-key | 313 | c-class-key c-C++-class-key |
| @@ -319,7 +321,7 @@ Key bindings: | |||
| 319 | 321 | ||
| 320 | 322 | ||
| 321 | ;; defuns for submitting bug reports | 323 | ;; defuns for submitting bug reports |
| 322 | (defconst c-version "5.14" | 324 | (defconst c-version "5.15" |
| 323 | "CC Mode version number.") | 325 | "CC Mode version number.") |
| 324 | 326 | ||
| 325 | (defconst c-mode-help-address | 327 | (defconst c-mode-help-address |