Re: emacs seems to think tab width is two spaces

[William Payne]

"William Payne" <mikas_n_o_s_p_a_m_493@student.liu.se> wrote in message
news:c6phfp$em3$1@news.island.liu.se...
> Hello, I use emacs for programming in C and C++. I have been modifying my
> .emacs some lately, and now I noticed that emacs seems to think that the
tab
> width is suddenly two spaces instead of of three...I'm sure it's a simple
> error in my .emacs, so I am posting it here:
>
> (if (eq window-system 'w32)
>     (progn
>       (add-to-list 'load-path "c:/emacs-21.3/cc-mode-5.30.8")
>       (set-face-font 'default
> "-raster-Courier-normal-r-normal-normal-16-120-96-96-c-*-iso8859-1")
>       (w32-send-sys-command ?\xf030) ; Start as maximized. Or use $
> emacs --fullscreen
>       ))
>
> (standard-display-european t)
> (global-font-lock-mode t)
> (setq font-lock-maximum-decoration t)
>
> (setq scroll-bar-mode-explicit t)
> (set-scroll-bar-mode 'right)
>
> (setq line-number-mode t) ; Show line number in status bar.
> (setq column-number-mode t) ; Show column in status bar.
> (setq tab-width 3)
> (setq case-fold-search t) ; A and a differs in search.
> (setq default-case-fold-search nil) ; A and a does not differ in search.
> (setq default-major-mode 'text-mode) ; Mode for unknown file type.
> (setq blink-matching-paren-distance nil) ; Always show corresponding
> parenthesis.
> (setq next-line-add-newlines nil) ; Don't add new lines after EOF
> (setq inhibit-startup-message t) ; No start-up message
> (setq ask-about-buffer-names t) ; Be helpful
> (setq completion-auto-help t) ; ...with buffer names.
> (setq display-time-day-and-date t)
> (setq display-time-24hr-format t)
> (display-time) ; Show time formatted as specified above.
> (setq-default indent-tabs-mode nil) ; Use spaces, not tabs, for
indentation.
>
>
> ;; Pre-selected colors.
> (set-background-color "Black")
> (set-foreground-color "White")
> (set-cursor-color "Cyan")
>
> ;; Set mode depending on file type.
> (setq auto-mode-alist
>       (append
>        (list
>         '("\\Makefile" . makefile-mode) ; Maybe use \\Makefile$ ?
>         )
>        auto-mode-alist
>        )
>       )
>
> (defun williams-common-hook ()
>   (c-toggle-hungry-state 1)
>   (setq c-basic-offset 3)
> (add-hook 'c-mode-common-hook 'williams-common-hook))
>
> (defun my-c-hook ()
>   (setq c-offsets-alist
>         '(
>           (string                . +)
>           (c                     . c-lineup-C-comments)
>           (defun-open            . 0)
>           (defun-close           . 0)
>           (defun-block-intro     . +)
> ;;          (class-open            . 0)
> ;;          (class-close           . 0)
>           (inline-open           . 0)
>           (inline-close          . 0)
>           (ansi-funcdecl-cont    . +)
> ;;          (catch-clause          . 0)
>           (knr-argdecl-intro     . +)
>           (knr-argdecl           . 0)
>           (topmost-intro         . 0)
>           (topmost-intro-cont    . 0)
>           (member-init-intro     . +) ; Maybe remove for C code?
>           (member-init-cont      . 0) ; Maybe remove for C code?
> ;;          (inher-intro           . +)
> ;;          (inher-cont            . c-lineup-multi-inher)
>           (block-open            . 0)
>           (block-close           . 0)
>           (brace-list-open       . 0)
>           (brace-list-close      . 0)
>           (brace-list-intro      . +)
>           (brace-list-entry      . 0)
>           (statement             . 0)
>           (statement-cont        . +) ; Strings over multiple lines looks
> good.
>           (statement-block-intro . +)
>           (statement-case-intro  . +)
>           (statement-case-open   . 0)
> ;;          (namespace-open        . 0)
> ;;          (namespace-close       . 0)
> ;;          (innamespace           . +)
>           (substatement          . +)
>           (substatement-open     . 0)
>           (case-label            . +)
>           (access-label          . -) ; Maybe remove for C code?
>           (label                 . 2) ; Hmm?
>           (do-while-closure      . 0)
>           (else-clause           . 0)
>           (comment-intro         . c-lineup-comment)
>           (arglist-intro         . +)
>           (arglist-cont          . 0)
>           (arglist-cont-nonempty . c-lineup-arglist)
>           (arglist-close         . +)
> ;;          (stream-op             . c-lineup-streamop)
> ;;          (inclass               . +)
>           (cpp-macro             . -) ;1000)
> ;;          (friend                . 0)
>           )))
> (add-hook 'c-mode-hook 'my-c-hook)
>
> (defun williams-c++-hook ()
>   (setq c-offsets-alist
>         '(
>           (string                . +)
>           (c                     . c-lineup-C-comments)
>           (defun-open            . 0)
>           (defun-close           . 0)
>           (defun-block-intro     . +)
>           (class-open            . 0)
>           (class-close           . 0)
>           (inline-open           . 0)
>           (inline-close          . 0)
>           (ansi-funcdecl-cont    . +)
>           (catch-clause          . 0)
> ;          (knr-argdecl-intro     . +)
> ;          (knr-argdecl           . 0)
>           (topmost-intro         . 0)
>           (topmost-intro-cont    . 0)
>           (member-init-intro     . +)
>           (member-init-cont      . 0)
>           (inher-intro           . +)
>           (inher-cont            . c-lineup-multi-inher)
>           (block-open            . 0)
>           (block-close           . 0)
>           (brace-list-open       . 0)
>           (brace-list-close      . 0)
>           (brace-list-intro      . +)
>           (brace-list-entry      . 0)
>           (statement             . 0)
>           (statement-cont        . +) ; Strings over multiple lines looks
> good.
>           (statement-block-intro . +)
>           (statement-case-intro  . +)
>           (statement-case-open   . 0)
>           (namespace-open        . 0)
>           (namespace-close       . 0)
>           (innamespace           . +)
>           (substatement          . +)
>           (substatement-open     . 0)
>           (case-label            . +)
>           (access-label          . -)
>           (label                 . 2) ; Hmm?
>           (do-while-closure      . 0)
>           (else-clause           . 0)
>           (comment-intro         . c-lineup-comment)
>           (arglist-intro         . +)
>           (arglist-cont          . 0)
>           (arglist-cont-nonempty . c-lineup-arglist)
>           (arglist-close         . +)
>           (stream-op             . c-lineup-streamop)
>           (inclass               . +)
>           (cpp-macro             . -1000)
>           (friend                . 0)
>           )))
> (add-hook 'c++-mode-hook 'williams-c++-hook)
>
> ;; Change order of CR/LF. Will indent every new line.
> (setq foo (global-key-binding "\C-m"))              ; Save CR binding.
> (global-set-key "\C-m" (global-key-binding "\C-j")) ; Set CR to LF.
> (global-set-key "\C-j" foo)                         ; Set LF to old CR.
>
> (custom-set-variables)
> (custom-set-faces
>  '(font-lock-comment-face ((t (:foreground "Green"))))
>  '(font-lock-reference-face ((((class color) (background light))
> (:foreground "LightGreen"))))
>  '(font-lock-string-face ((t (:foreground "Gray"))))
>  '(font-lock-keyword-face ((t (:bold t :foreground "Cyan"))))
>  '(font-lock-constant-face ((t (:foreground "Yellow"))))
>  '(font-lock-type-face ((t (:bold t :foreground "White"))))
>  '(font-lock-variable-name-face ((t (:foreground "Yellow"))))
>  '(font-lock-function-name-face ((t (:foreground "Cyan"))))
>  '(font-lock-builtin-face ((t (:bold t :foreground "LightGreen")))))
>
> Sorry for posting the entire file, lots of it I am sure is not relevant
for
> the problem but I didn't want to risk leaving anything out that could be
the
> cause of this problem..If you happen notice improvements I could make to
> this file I'd be happy to hear them as well.
>
> Thanks for any replies
>
> / WP
>
>

Ok, think I found the problem...I needed to add my common rules to both
c-mode and cc-mode, like this:

(defun williams-common-hook ()
  (c-toggle-hungry-state 1)
  (setq c-basic-offset 3))

(add-hook 'c-mode-common-hook 'williams-common-hook)
(add-hook 'cc-mode-common-hook 'william-common-hook)

before I was just adding it the c-mode (and I was now testing with a c++
source file)

/ WP