rlbr
/
emacs_config_prelude
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Add some missing docstrings

custom
Bozhidar Batsov 13 years ago
parent
f24e116421
commit
f7d126fae9
1 changed files with 10 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 10
      core/prelude-editor.el

10
core/prelude-editor.el
View File

@ -145,22 +145,29 @@ Will only occur if prelude-whitespace is also enabled."
;; automatically save buffers associated with files on buffer switch ;; automatically save buffers associated with files on buffer switch
;; and on windows switch ;; and on windows switch
(defun prelude-auto-save-command () (defun prelude-auto-save-command ()
"Save the current buffer if `prelude-auto-save' is not nil."
(when (and prelude-auto-save (when (and prelude-auto-save
buffer-file-name buffer-file-name
(buffer-modified-p (current-buffer))) (buffer-modified-p (current-buffer)))
(save-buffer))) (save-buffer)))
(defadvice switch-to-buffer (before save-buffer-now activate) (defadvice switch-to-buffer (before save-buffer-now activate)
"Invoke `prelude-auto-save-command' before `switch-to-window'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(defadvice other-window (before other-window-now activate) (defadvice other-window (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `other-window'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(defadvice windmove-up (before other-window-now activate) (defadvice windmove-up (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `windmove-up'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(defadvice windmove-down (before other-window-now activate) (defadvice windmove-down (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `windmove-down'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(defadvice windmove-left (before other-window-now activate) (defadvice windmove-left (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `windmove-left'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(defadvice windmove-right (before other-window-now activate) (defadvice windmove-right (before other-window-now activate)
"Invoke `prelude-auto-save-command' before `windmove-right'."
(prelude-auto-save-command)) (prelude-auto-save-command))
(add-hook 'mouse-leave-buffer-hook 'prelude-auto-save-command) (add-hook 'mouse-leave-buffer-hook 'prelude-auto-save-command)
@ -227,14 +234,17 @@ Will only occur if prelude-whitespace is also enabled."
ispell-extra-args '("--sug-mode=ultra")) ispell-extra-args '("--sug-mode=ultra"))
(defun prelude-enable-flyspell () (defun prelude-enable-flyspell ()
"Enable command `flyspell-mode' if `prelude-flyspell' is not nil."
(when (and prelude-flyspell (executable-find ispell-program-name)) (when (and prelude-flyspell (executable-find ispell-program-name))
(flyspell-mode +1))) (flyspell-mode +1)))
(defun prelude-cleanup-maybe () (defun prelude-cleanup-maybe ()
"Invoke `whitespace-cleanup' if `prelude-clean-whitespace-on-save' is not nil."
(when prelude-clean-whitespace-on-save (when prelude-clean-whitespace-on-save
(whitespace-cleanup))) (whitespace-cleanup)))
(defun prelude-enable-whitespace () (defun prelude-enable-whitespace ()
"Enable `whitespace-mode' if `prelude-whitespace' is not nil."
(when prelude-whitespace (when prelude-whitespace
;; keep the whitespace decent all the time (in this buffer) ;; keep the whitespace decent all the time (in this buffer)
(add-hook 'before-save-hook 'prelude-cleanup-maybe nil t) (add-hook 'before-save-hook 'prelude-cleanup-maybe nil t)

Write Preview
Loading…
Cancel
Save