comparison lisp/progmodes/cc-mode.el @ 90998:539530fa389c

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 832-838) - Remove lisp/erc/erc-nicklist.el - Update some .arch-inventory files - Fix void function definition error in cus-edit.el - Update from CVS - Restore lisp/emacs-lisp/cl-loaddefs.el - Merge from emacs--rel--22 * emacs--rel--22 (patch 75-83) - Update from CVS - Remove lisp/erc/erc-nicklist.el - Update some .arch-inventory files - Indicate that emacs--devo--0--patch-834 does not need to be applied - Merge from gnus--rel--5.10 - Restore lisp/emacs-lisp/cl-loaddefs.el * gnus--rel--5.10 (patch 239-241) - Merge from emacs--devo--0 - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-239
author Miles Bader <miles@gnu.org>
date Fri, 03 Aug 2007 05:20:51 +0000
parents f55f9811f5d7 d80d780fd6b4
children bdb3fe0ba9fa
comparison
equal deleted inserted replaced
90997:12fc8f96710b 90998:539530fa389c
152 ;; derived-mode-ex.el>. 152 ;; derived-mode-ex.el>.
153 153
154 (defun c-leave-cc-mode-mode () 154 (defun c-leave-cc-mode-mode ()
155 (setq c-buffer-is-cc-mode nil)) 155 (setq c-buffer-is-cc-mode nil))
156 156
157 ;; Make the `c-lang-setvar' variables buffer local in the current buffer.
158 ;; These are typically standard emacs variables such as `comment-start'.
159 (defmacro c-make-emacs-variables-local ()
160 `(progn
161 ,@(mapcar (lambda (init)
162 `(make-local-variable ',(car init)))
163 (cdr c-emacs-variable-inits))))
164
165 (defun c-init-language-vars-for (mode) 157 (defun c-init-language-vars-for (mode)
166 "Initialize the language variables for one of the language modes 158 "Initialize the language variables for one of the language modes
167 directly supported by CC Mode. This can be used instead of the 159 directly supported by CC Mode. This can be used instead of the
168 `c-init-language-vars' macro if the language you want to use is one of 160 `c-init-language-vars' macro if the language you want to use is one of
169 those, rather than a derived language defined through the language 161 those, rather than a derived language defined through the language
170 variable system (see \"cc-langs.el\")." 162 variable system (see \"cc-langs.el\")."
171 (c-make-emacs-variables-local)
172 (cond ((eq mode 'c-mode) (c-init-language-vars c-mode)) 163 (cond ((eq mode 'c-mode) (c-init-language-vars c-mode))
173 ((eq mode 'c++-mode) (c-init-language-vars c++-mode)) 164 ((eq mode 'c++-mode) (c-init-language-vars c++-mode))
174 ((eq mode 'objc-mode) (c-init-language-vars objc-mode)) 165 ((eq mode 'objc-mode) (c-init-language-vars objc-mode))
175 ((eq mode 'java-mode) (c-init-language-vars java-mode)) 166 ((eq mode 'java-mode) (c-init-language-vars java-mode))
176 ((eq mode 'idl-mode) (c-init-language-vars idl-mode)) 167 ((eq mode 'idl-mode) (c-init-language-vars idl-mode))