changeset 19250:23f71af4d504

(c-symbol-key): First character must be a letter or underscore. (c-styles-are-initialized): Variable deleted. (c-common-init): Don't initialize styles here. (idl-mode-abbrev-table): New variable. (idl-mode-map, idl-mode-syntax-table): New variables. (c-idl-menu): New menu.

--- a/lisp/progmodes/cc-langs.el	Sat Aug 09 17:35:22 1997 +0000
+++ b/lisp/progmodes/cc-langs.el	Sat Aug 09 18:26:19 1997 +0000
@@ -7,7 +7,7 @@
 ;;             1985 Richard M. Stallman
 ;; Maintainer: [e-mail]
 ;; Created:    22-Apr-1997 (split from cc-mode.el)
-;; Version:    5.13
+;; Version:    5.14
 ;; Keywords:   c languages oop
 
 ;; This file is part of GNU Emacs.
@@ -197,17 +197,8 @@
 For use with the variable `java-mode-hook'."
   (c-set-style "java"))
 
-(defvar c-styles-are-initialized nil)
-
 (defun c-common-init ()
   ;; Common initializations for all modes.
-  (if c-styles-are-initialized
-      nil
-    (require 'cc-styles)
-    (c-initialize-builtin-style)
-    (if c-style-variables-are-local-p
-	(c-make-styles-buffer-local))
-    (setq c-styles-are-initialized t))
   ;; these variables should always be buffer local; they do not affect
   ;; indentation style.
   (make-local-variable 'paragraph-start)
@@ -430,7 +421,7 @@
 ;; Support for C
 
 (defvar c-mode-abbrev-table nil
-  "Abbrev table in use in c-mode buffers.")
+  "Abbreviation table used in c-mode buffers.")
 (define-abbrev-table 'c-mode-abbrev-table ())
 
 (defvar c-mode-map ()
@@ -468,7 +459,7 @@
 ;; Support for C++
 
 (defvar c++-mode-abbrev-table nil
-  "Abbrev table in use in c++-mode buffers.")
+  "Abbreviation table used in c++-mode buffers.")
 (define-abbrev-table 'c++-mode-abbrev-table ())
 
 (defvar c++-mode-map ()
@@ -506,7 +497,7 @@
 ;; Support for Objective-C
 
 (defvar objc-mode-abbrev-table nil
-  "Abbrev table in use in objc-mode buffers.")
+  "Abbreviation table used in objc-mode buffers.")
 (define-abbrev-table 'objc-mode-abbrev-table ())
 
 (defvar objc-mode-map ()
@@ -536,7 +527,7 @@
 ;; Support for Java
 
 (defvar java-mode-abbrev-table nil
-  "Abbrev table in use in java-mode buffers.")
+  "Abbreviation table used in java-mode buffers.")
 (define-abbrev-table 'java-mode-abbrev-table ())
 
 (defvar java-mode-map ()
@@ -563,5 +554,34 @@
 		  (c-mode-menu "Java"))
 
 
+;; Support for CORBA's IDL language
+
+(defvar idl-mode-abbrev-table nil
+  "Abbreviation table used in idl-mode buffers.")
+(define-abbrev-table 'idl-mode-abbrev-table ())
+
+(defvar idl-mode-map ()
+  "Keymap used in idl-mode buffers.")
+(if idl-mode-map
+    nil
+  (setq idl-mode-map (c-make-inherited-keymap))
+  ;; additional bindings
+  (define-key idl-mode-map "/" 'c-electric-slash))
+
+(defvar idl-mode-syntax-table nil
+  "Syntax table used in idl-mode buffers.")
+(if idl-mode-syntax-table
+    nil
+  (setq idl-mode-syntax-table (make-syntax-table))
+  (c-populate-syntax-table idl-mode-syntax-table)
+  ;; add extra comment syntax
+  (c-setup-dual-comments idl-mode-syntax-table)
+  )
+
+(easy-menu-define c-idl-menu idl-mode-map "IDL Mode Commands"
+		  (c-mode-menu "IDL"))
+
+
+
 (provide 'cc-langs)
 ;;; cc-langs.el ends here