From: "William Payne" <mikas_n_o_s_p_a_m_493@student.liu.se>
Subject: Re: emacs seems to think tab width is two spaces
Date: Thu, 29 Apr 2004 02:24:02 +0200 [thread overview]
Message-ID: <c6phv1$eml$1@news.island.liu.se> (raw)
In-Reply-To: c6phfp$em3$1@news.island.liu.se
"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
next prev parent reply other threads:[~2004-04-29 0:24 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-04-29 0:15 emacs seems to think tab width is two spaces William Payne
2004-04-29 0:24 ` William Payne [this message]
2004-04-29 6:06 ` Matthieu Moy
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='c6phv1$eml$1@news.island.liu.se' \
--to=mikas_n_o_s_p_a_m_493@student.liu.se \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.