jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Add some missing docstrings

Browse source
This commit is contained in:
Bozhidar Batsov 2013-04-28 16:37:09 +03:00
parent f24e116421
commit f7d126fae9
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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)