From e5caa08e5423cb969fd4b6d558f022691566f4db Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Mar 1998 06:52:23 +0000 Subject: [PATCH] (c-initialize-cc-mode): Moved require's to top level. (c-initialize-on-load): Variable removed. --- lisp/progmodes/cc-mode.el | 38 ++++++++++++-------------------------- 1 file changed, 12 insertions(+), 26 deletions(-) diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el index 09e4862dc15..e222ce1b033 100644 --- a/lisp/progmodes/cc-mode.el +++ b/lisp/progmodes/cc-mode.el @@ -9,7 +9,7 @@ ;; Created: a long, long, time ago. adapted from the original c-mode.el ;; Keywords: c languages oop -(defconst c-version "5.20" +(defconst c-version "5.21" "CC Mode version number.") ;; NOTE: Read the commentary below for the right way to submit bug reports! @@ -79,6 +79,9 @@ ;;; Code: + +(require 'cc-defs) + ;; sigh. give in to the pressure, but make really sure all the ;; definitions we need are here (if (or (not (fboundp 'functionp)) @@ -88,9 +91,13 @@ (not (fboundp 'unless))) (require 'cc-mode-19)) -(eval-when-compile - (require 'cc-menus)) -(require 'cc-defs) +(require 'cc-menus) +(require 'cc-vars) +(require 'cc-engine) +(require 'cc-langs) +(require 'cc-align) +(require 'cc-styles) +(require 'cc-cmds) (defvar c-buffer-is-cc-mode nil "Non-nil for all buffers with a `major-mode' derived from CC Mode. @@ -101,9 +108,6 @@ other non-CC Mode mode that calls `c-initialize-cc-mode' (make-variable-buffer-local 'c-buffer-is-cc-mode) (put 'c-buffer-is-cc-mode 'permanent-local t) -(defvar c-initialize-on-load t - "When non-nil, CC Mode initializes when the cc-mode.el file is loaded.") - ;; Other modes and packages which depend on CC Mode should do the @@ -116,15 +120,7 @@ other non-CC Mode mode that calls `c-initialize-cc-mode' ;;;###autoload (defun c-initialize-cc-mode (&optional skip-styles) (setq c-buffer-is-cc-mode t) - ;; make sure all necessary components of CC Mode are loaded in. (let ((initprop 'cc-mode-is-initialized)) - (require 'cc-vars) - (require 'cc-engine) - (require 'cc-langs) - (require 'cc-menus) - (require 'cc-align) - (require 'cc-styles) - (require 'cc-cmds) ;; run the initialization hook, but only once (or (get 'c-initialize-cc-mode initprop) (progn @@ -416,19 +412,9 @@ Key bindings: (format "c-emacs-features: %s\n" c-features) ))) nil - "Dear Barry," + "Dear Barry and Martin," )))) - -;; Initialize everything. This is backwards compatible with older -;; .emacs files that just did a (require 'cc-mode) and expected -;; everything to work (e.g. for CC Mode 4). Maybe this should just -;; happen by default, but previous versions of CC Mode 5 did not -;; initialize by default. I'm really not sure what is the right thing -;; to do. -(when c-initialize-on-load - (c-initialize-cc-mode)) - (provide 'cc-mode) ;;; cc-mode.el ends here -- 2.39.2