ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

EMACS: Moved message settings, added flyspell

Browse source
This commit is contained in:
Tom Willemsen 2011-08-18 10:13:21 +02:00
parent 60aba39362
commit 816654f07c
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
.emacs.d/functions.el
View file

@ -174,10 +174,6 @@ Currently adds | & ! . + = - / % * , < > ? : ->"
(setq fill-column 73) (setq fill-column 73)
(auto-fill-mode)) (auto-fill-mode))
(defun on-mail-mode ()
(turn-on-auto-fill)
(search-forward "\n\n"))
(defun pretty-lambdas () (defun pretty-lambdas ()
(font-lock-add-keywords (font-lock-add-keywords
nil `(("(\\(lambda\\>\\)" nil `(("(\\(lambda\\>\\)"

10
.emacs.d/init.el
View file

@ -133,6 +133,13 @@
;;; bidi ;;; bidi
(setq-default bidi-display-reordering nil) (setq-default bidi-display-reordering nil)
;;; Message
(add-to-list 'auto-mode-alist '(".*mutt.*" . message-mode))
(add-hook 'message-mode-hook
(lambda ()
(turn-on-auto-fill)
(turn-on-flyspell)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; AUTOLOADS ;; ;; AUTOLOADS ;;
@ -174,7 +181,6 @@
(setq ido-auto-merge-delay-time 2) ; Wait before fixing names (setq ido-auto-merge-delay-time 2) ; Wait before fixing names
(setq mouse-autoselect-window t) (setq mouse-autoselect-window t)
(setq pop-up-windows nil) (setq pop-up-windows nil)
(setq mail-header-separator "")
(setq frame-title-format ; I don't like emacs@cloud, must have file (setq frame-title-format ; I don't like emacs@cloud, must have file
'(:eval ; name '(:eval ; name
@ -223,7 +229,6 @@
(add-to-list 'auto-mode-alist '("\\.cmake$" . cmake-mode)) (add-to-list 'auto-mode-alist '("\\.cmake$" . cmake-mode))
(add-to-list 'auto-mode-alist '("\\.css$" . css-mode)) (add-to-list 'auto-mode-alist '("\\.css$" . css-mode))
(add-to-list 'auto-mode-alist '("stumpwmrc" . stumpwm-mode)) (add-to-list 'auto-mode-alist '("stumpwmrc" . stumpwm-mode))
(add-to-list 'auto-mode-alist '(".*mutt.*" . message-mode))
(add-to-list 'auto-mode-alist '("COMMIT_EDITMSG$" . git-commit-mode)) (add-to-list 'auto-mode-alist '("COMMIT_EDITMSG$" . git-commit-mode))
(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8)) (add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8))
@ -257,7 +262,6 @@
(add-hook 'c-mode-hook 'on-c-mode) (add-hook 'c-mode-hook 'on-c-mode)
(add-hook 'html-mode-hook 'on-html-mode) (add-hook 'html-mode-hook 'on-html-mode)
(add-hook 'message-mode-hook 'on-mail-mode)
(add-hook 'git-commit-mode-hook 'auto-fill-mode) (add-hook 'git-commit-mode-hook 'auto-fill-mode)
(add-hook 'css-mode-hook 'rainbow-mode) (add-hook 'css-mode-hook 'rainbow-mode)