help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

using the cc mode


From: Baloff
Subject: using the cc mode
Date: 31 Jul 2005 05:29:34 +1000
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.4

Hello

when I am writing stuff in a .cpp file, emacs is using the cc mode by default? 
correct
in the mode line I have (C++/ah Abbrev Fill).
If I have stuff in my .emacs, does that cancel the default cc mode or adds to 
it?

not before I study emacs and Lisp in more details will I be able to answer my 
question. 
so here is my .emacs .......... many thanks

(load "~/.emacs-mc394") ;; This defines the mc304-style.  We put it in a
;; load file so that we can use it or not, as needed

(add-hook 'octave-mode-hook
          '(lambda ()
             (local-set-key [f9] 'octave-send-line)))
                          
(add-hook 'c++-mode-hook
          '(lambda ()
             (turn-on-auto-fill) ;;Insert a newline if line gets to long.
             (c-toggle-auto-state 1) ;;Make ; and { and } and : all electric
             (c-set-style "mc394-style")))


;; Color highlighting stuff
(defvar xemacs-p
  (string-match "XEmacs" emacs-version))
(if (not xemacs-p)
    (progn
      (global-font-lock-mode t)
                                        ; If using global-font-lock-mode, make 
control-L update colors
      (global-set-key "\C-l"
                      (function (lambda (arg) (interactive "P")
                                  (font-lock-fontify-block 100)
                                  (recenter arg))))))

(setq auto-mode-alist (append '(("\\.h$" . c++-mode)) auto-mode-alist))

(setq auto-mode-alist
  (append '(
    ("configure.in" . m4-mode)
    ("\\.m4\\'" . m4-mode)
    ("\\.am\\'" . makefile-mode))
   auto-mode-alist))

(defun other-window-backward (&optional n)
    "Select Nth previous window"
    (interactive "P")
    (other-window (- (prefix-numeric-value n))))
(global-set-key "\C-x\C-p" 'other-window-backward) 

(windmove-default-keybindings)


(global-set-key [f5]      'cut-ctrlM)   ; cut all ^M.
(defun cut-ctrlM ()  
  "Cut all visible ^M."
  (interactive)
  (beginning-of-buffer)
  (while (search-forward "\r" nil t)
    (replace-match "" nil t))
  )


(global-set-key [f6] 'setnu-mode)      ;set-number use twice after C-y
(global-set-key "\C-x\C-b" 'buffer-menu) ;binds the key C-x C-b to buffer-menu
(global-set-key [f7] (kbd "M-h C-c C-c")) ;comment region
(global-set-key [f8] (kbd "M-h C-u C-c C-c")) ;uncomment region
(global-set-key [f11] 'compile)         ;compiles a program
(global-set-key [f12] 'clipboard-kill-ring-save);copy marked region to Primary 
Selection, M-w copies to Clipboard, middle mouse botton to paste Primary, M-y 
pastes the clipboard contents


(setq user-full-name "Baloff")
(setq user-mail-address "washdc@wash.edu")
(setq fill-column 70)                  ;Text lines limited to 70 chars
(setq make-backup-files nil)            ;don't make backup files
(setq kill-whole-line t)                ;killing line also deletes \n
(setq next-line-add-newlines nil)      ;down arror won't add \n at end
(setq line-number-mode t)               ;put line number in display
(setq column-number-mode t)             ;put column number in display
(setq inhibit-startup-message t)        ;disable startup message
(setq display-time-24hr-format t)       ;display 24h time formate
(display-time)
(setq transient-mark-mode t)            ;highlight marked 
(setq default-major-mode 'text-mode)    ;new buffers are text mode
(add-hook 'text-mode-hook 'turn-on-auto-fill) ;line limit in text mode
(add-hook 'text-mode-hook 'flyspell-mode t) ; check spelling
(add-hook 'text-mode-hook 'text-mode-hook-identify)
(setq scroll-step 1)                    ;scroll 1 line at a time
(setq-default visible-bell t)           ; no beeps, flash on errors
(setq semantic-load-turn-useful-things-on t)
   ;; Replace the path below with the install location.
(load-file "/usr/share/emacs/site-lisp/cedet-common/cedet.el")
(setq semanticdb-project-roots
      (list "/Exercies/ThinkingInC++/Vol1/C03/9/main.cpp"
            "/Exercies/ThinkingInC++/Vol1/C03/8/main.cpp"
            "/Exercies/ThinkingInC++/Vol1/C03/7/main.cpp"
            "/Exercies/ThinkingInC++/Vol1/C03/6/main.cpp"))
            
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on);ls not show ^[[0m
(add-hook 'comint-output-filter-functions 
'comint-watch-for-password-prompt)      ;don't show password


(defun htv-horizontal-to-vertical () ;makes a vertical split along the 
horisontal line
  (interactive)
  (let ((one-buf (window-buffer (selected-window)))
        (buf-point (point)))
    (other-window 1)
    (delete-other-windows)
    (split-window-horizontally)
    (switch-to-buffer one-buf)
    (goto-char buf-point)))



(defun vth-vertical-to-horizontal () ;makes a vertical split along the 
horisontal line
  (interactive)
  (let ((one-buf (window-buffer (selected-window)))
        (buf-point (point)))
    (other-window 1)
    (delete-other-windows)
    (split-window-vertically)
    (switch-to-buffer one-buf)
    (goto-char buf-point)))

(add-hook 'c++-mode-hook 'setnu-mode)   ;line numbers
(add-hook 'c++-mode-hook 'bar-cursor-mode) ;cursor to a bar
(add-hook 'c++-mode-hook 'show-paren-mode) ;marrying brackets show

(require 'xcscope) ;"$man cscope" for more info
(custom-set-variables
 ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
 ;; Your init file should contain only one such instance.
 '(ecb-options-version "2.27"))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )

;; Modified by Mike Hvidsten from MC38J emacs file
;;  Feb. 4, 2004

(c-add-style "mc394-style"
             '("cc-mode"
               (c-basic-offset . 3)      ; In general, indent 3 spaces
               (c-hanging-braces-alist
                (defun-open after))      ; brace that opens a function 
definition
               (c-cleanup-list brace-else-brace
                               brace-elseif-brace
                               empty-defun-braces
                               defun-close-semi
                               scope-operator)
               (c-hanging-braces-alist
                ; These determine whether a newline appears before
                ; and/or after a brace in various situations.
                (brace-list-open)
                (block-open after)       ; statement block open brace
                (defun-open after)       ; brace that opens a function 
definition
                (substatement-open after); the brace that opens a substatement 
block
                (block-close . c-snug-do-while))
               (c-hanging-colons-alist
                (access-label after)) ; Newline after protected: or private:
               (c-hungry-delete-key t))) ; delete black space all at once

;; Variable should be t if we are running xemacs.
(defvar xemacs-p
  (string-match "XEmacs" emacs-version))

(if (not xemacs-p)
    (progn
      (global-font-lock-mode t)
       ; If using global-font-lock-mode, make control-L update colors
      (global-set-key "\C-l"
                      (function (lambda (arg) (interactive "P")
                                  (font-lock-fontify-block 100)
                                  (recenter arg))))))
(setq auto-mode-alist (append '(("\\.h$" . c++-mode)) auto-mode-alist))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]