(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.

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 2474b68857a1d50158339966f99e5a0bf09e65e6..cd38565480b56eb9c81a72c0075a482281587ae9 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -7,7 +7,7 @@
 ;;             1985 Richard M. Stallman
 ;; Maintainer: cc-mode-help@python.org
 ;; Created:    a long, long, time ago. adapted from the original c-mode.el
-;; Version:    5.14
+;; Version:    5.15
 ;; Keywords:   c languages oop
 
 ;; NOTE: Read the commentary below for the right way to submit bug reports!
@@ -91,6 +91,13 @@
 
 ;;;###autoload
 (defun c-initialize-cc-mode ()
+  (setq c-buffer-is-cc-mode t)
+  ;; sigh.  give in to the pressure, but make really sure all the
+  ;; definitions we need are here
+  (if (or (not (fboundp 'functionp))
+         (not (fboundp 'char-before))
+         (not (c-safe (char-after) t)))
+      (require 'cc-mode-19))
   ;; make sure all necessary components of CC Mode are loaded in.
   (let ((initprop 'cc-mode-is-initialized))
     (require 'cc-vars)
@@ -136,11 +143,10 @@ Key bindings:
   (c-common-init)
   (setq comment-start "/* "
        comment-end   " */"
-       comment-multi-line t
        c-conditional-key c-C-conditional-key
        c-class-key c-C-class-key
        c-baseclass-key nil
-       c-comment-start-regexp c-C-comment-start-regexp
+       c-comment-start-regexp c-C++-comment-start-regexp
        imenu-generic-expression cc-imenu-c-generic-expression)
   (run-hooks 'c-mode-common-hook)
   (run-hooks 'c-mode-hook)
@@ -175,7 +181,6 @@ Key bindings:
   (c-common-init)
   (setq comment-start "// "
        comment-end ""
-       comment-multi-line nil
        c-conditional-key c-C++-conditional-key
        c-comment-start-regexp c-C++-comment-start-regexp
        c-class-key c-C++-class-key
@@ -216,7 +221,6 @@ Key bindings:
   (c-common-init)
   (setq comment-start "// "
        comment-end   ""
-       comment-multi-line nil
        c-conditional-key c-C-conditional-key
        c-comment-start-regexp c-C++-comment-start-regexp
        c-class-key c-ObjC-class-key
@@ -259,7 +263,6 @@ Key bindings:
   (c-common-init)
   (setq comment-start "// "
        comment-end   ""
-       comment-multi-line nil
        c-conditional-key c-Java-conditional-key
        c-comment-start-regexp c-Java-comment-start-regexp
        c-class-key c-Java-class-key
@@ -305,7 +308,6 @@ Key bindings:
   (c-common-init)
   (setq comment-start "// "
        comment-end ""
-       comment-multi-line nil
        c-conditional-key c-C++-conditional-key
        c-comment-start-regexp c-C++-comment-start-regexp
        c-class-key c-C++-class-key
@@ -319,7 +321,7 @@ Key bindings:
 
 \f
 ;; defuns for submitting bug reports
-(defconst c-version "5.14"
+(defconst c-version "5.15"
   "CC Mode version number.")
 
 (defconst c-mode-help-address