larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Disable bell and avoid flyspell-errors.

Browse Source
This commit is contained in:
Lars Tveito 2014-01-02 16:32:31 +01:00
parent 98dbd3303a
commit 0baec2b264
2 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
init.el
View File

@ -75,6 +75,7 @@ PACKAGE is installed and the current version is deleted."
(setq initial-scratch-message nil ; Clean scratch buffer. (setq initial-scratch-message nil ; Clean scratch buffer.
inhibit-startup-message t ; No splash screen please. inhibit-startup-message t ; No splash screen please.
default-input-method "TeX" ; Use TeX when toggeling input method. default-input-method "TeX" ; Use TeX when toggeling input method.
ring-bell-function 'ignore ; Quite as a mouse.
doc-view-continuous t ; At page edge goto next/previous. doc-view-continuous t ; At page edge goto next/previous.
echo-keystrokes 0.1 ; Show keystrokes asap. echo-keystrokes 0.1 ; Show keystrokes asap.
) )
@ -260,6 +261,16 @@ PACKAGE is installed and the current version is deleted."
(forward-sexp)) (forward-sexp))
ad-do-it)) ad-do-it))
(defadvice turn-on-flyspell (around check nil activate)
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
ad-do-it))
(defadvice flyspell-prog-mode (around check nil activate)
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
ad-do-it))
(dolist (mode '(slime-repl-mode inferior-lisp-mode inferior-scheme-mode)) (dolist (mode '(slime-repl-mode inferior-lisp-mode inferior-scheme-mode))
(add-to-list 'pretty-lambda-auto-modes mode)) (add-to-list 'pretty-lambda-auto-modes mode))

23
init.org
View File

@ -143,6 +143,7 @@
(setq initial-scratch-message nil ; Clean scratch buffer. (setq initial-scratch-message nil ; Clean scratch buffer.
inhibit-startup-message t ; No splash screen please. inhibit-startup-message t ; No splash screen please.
default-input-method "TeX" ; Use TeX when toggeling input method. default-input-method "TeX" ; Use TeX when toggeling input method.
ring-bell-function 'ignore ; Quite as a mouse.
doc-view-continuous t ; At page edge goto next/previous. doc-view-continuous t ; At page edge goto next/previous.
echo-keystrokes 0.1 ; Show keystrokes asap. echo-keystrokes 0.1 ; Show keystrokes asap.
) )
@ -170,7 +171,7 @@
(when (file-exists-p default-directory) (when (file-exists-p default-directory)
(normal-top-level-add-to-load-path '(".")) (normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path))) (normal-top-level-add-subdirs-to-load-path)))
#+END_SRC #+END_SRC
Answering /yes/ and /no/ to each question from Emacs can be tedious, a Answering /yes/ and /no/ to each question from Emacs can be tedious, a
single /y/ or /n/ will suffice. single /y/ or /n/ will suffice.
@ -482,7 +483,7 @@
#+BEGIN_SRC emacs-lisp :tangle yes #+BEGIN_SRC emacs-lisp :tangle yes
(global-set-key (kbd "C-c m") 'magit-status) (global-set-key (kbd "C-c m") 'magit-status)
#+END_SRC #+END_SRC
Bindings for [[https://github.com/winterTTr/ace-jump-mode][ace-jump-mode]]. Bindings for [[https://github.com/winterTTr/ace-jump-mode][ace-jump-mode]].
#+BEGIN_SRC emacs-lisp :tangle yes #+BEGIN_SRC emacs-lisp :tangle yes
@ -531,6 +532,24 @@
ad-do-it)) ad-do-it))
#+END_SRC #+END_SRC
=Flyspell= signals an error if there is no spell-checking tool is
installed. We can advice =turn-on=flyspell= and =flyspell-prog-mode= to
only try to enable =flyspell= if a spell-checking tool is avalible.
#+BEGIN_SRC emacs-lisp :tangle yes
(defadvice turn-on-flyspell (around check nil activate)
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
ad-do-it))
#+END_SRC
#+BEGIN_SRC emacs-lisp :tangle yes
(defadvice flyspell-prog-mode (around check nil activate)
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
ad-do-it))
#+END_SRC
* Language mode specific * Language mode specific
** Lisp ** Lisp