Set the fci-rule-column to 101 for lisps

This commit is contained in:
Tom Willemsen 2012-12-19 11:43:00 +01:00
parent 19cc94fc81
commit 25adcab0c3
2 changed files with 8 additions and 0 deletions

View file

@ -302,6 +302,7 @@
(add-hook 'css-mode-hook 'oni:css-mode-func) (add-hook 'css-mode-hook 'oni:css-mode-func)
(add-hook 'diary-display-hook 'oni:diary-display-func) (add-hook 'diary-display-hook 'oni:diary-display-func)
(add-hook 'emacs-lisp-mode-hook 'oni:emacs-lisp-mode-func) (add-hook 'emacs-lisp-mode-hook 'oni:emacs-lisp-mode-func)
(add-hook 'emacs-lisp-mode-hook 'oni:generic-lisp-mode-hook)
(add-hook 'erc-mode-hook 'oni:erc-mode-func) (add-hook 'erc-mode-hook 'oni:erc-mode-func)
(add-hook 'eshell-mode-hook 'oni:eshell-mode-func) (add-hook 'eshell-mode-hook 'oni:eshell-mode-func)
(add-hook 'flymake-mode-hook 'oni:flymake-mode-func) (add-hook 'flymake-mode-hook 'oni:flymake-mode-func)
@ -314,6 +315,7 @@
(add-hook 'java-mode-hook 'oni:java-mode-func) (add-hook 'java-mode-hook 'oni:java-mode-func)
(add-hook 'js-mode-hook 'oni:js-mode-func) (add-hook 'js-mode-hook 'oni:js-mode-func)
(add-hook 'js2-mode-hook 'oni:js2-mode-func) (add-hook 'js2-mode-hook 'oni:js2-mode-func)
(add-hook 'lisp-mode-hook 'oni:generic-lisp-mode-hook)
(add-hook 'lua-mode-hook 'oni:lua-mode-func) (add-hook 'lua-mode-hook 'oni:lua-mode-func)
(add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func) (add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func)
(add-hook 'markdown-mode-hook 'oni:markdown-mode-func) (add-hook 'markdown-mode-hook 'oni:markdown-mode-func)
@ -323,6 +325,7 @@
(add-hook 'prog-mode-hook 'oni:prog-mode-func) (add-hook 'prog-mode-hook 'oni:prog-mode-func)
(add-hook 'python-mode-hook 'oni:python-mode-func) (add-hook 'python-mode-hook 'oni:python-mode-func)
(add-hook 'rst-mode-hook 'oni:rst-mode-func) (add-hook 'rst-mode-hook 'oni:rst-mode-func)
(add-hook 'scheme-mode-hook 'oni:generic-lisp-mode-hook)
(add-hook 'term-mode-hook 'oni:term-mode-func) (add-hook 'term-mode-hook 'oni:term-mode-func)
(add-hook 'texinfo-mode-hook 'oni:texinfo-mode-func) (add-hook 'texinfo-mode-hook 'oni:texinfo-mode-func)
(add-hook 'write-file-hooks 'oni:write-file-func) (add-hook 'write-file-hooks 'oni:write-file-func)

View file

@ -179,6 +179,11 @@ DOT are intentionally being skipped."
(local-set-key [M-P] 'flymake-goto-prev-error) (local-set-key [M-P] 'flymake-goto-prev-error)
(local-set-key [M-N] 'flymake-goto-next-error)) (local-set-key [M-N] 'flymake-goto-next-error))
(defun oni:generic-lisp-mode-hook ()
"Function for `emacs-lisp-mode-hook', `lisp-mode-hook' and
`scheme-mode-hook'."
(setq fci-column 101))
(defun oni:go-mode-func () (defun oni:go-mode-func ()
"Function for `go-mode-hook'." "Function for `go-mode-hook'."
(setq indent-tabs-mode nil) (setq indent-tabs-mode nil)