TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

if -> when

Browse source
This commit is contained in:
syl20bnr 2015-02-14 23:41:51 -05:00
parent a8c9516c8b
commit fef6d5a3cb
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
core/core-spacemacs-buffer.el
View file

@ -92,15 +92,14 @@ buffer, right justified."
SPACEMACS-TITLE-LENGTH. New loading title is displayed by chunk SPACEMACS-TITLE-LENGTH. New loading title is displayed by chunk
of size LOADING-DOTS-CHUNK-THRESHOLD." of size LOADING-DOTS-CHUNK-THRESHOLD."
(setq spacemacs-loading-counter (1+ spacemacs-loading-counter)) (setq spacemacs-loading-counter (1+ spacemacs-loading-counter))
(if (>= spacemacs-loading-counter spacemacs-loading-dots-chunk-threshold) (when (>= spacemacs-loading-counter spacemacs-loading-dots-chunk-threshold)
(progn (setq spacemacs-loading-counter 0)
(setq spacemacs-loading-counter 0) (let ((i 0))
(let ((i 0)) (while (< i spacemacs-loading-dots-chunk-size)
(while (< i spacemacs-loading-dots-chunk-size) (setq spacemacs-loading-text (concat spacemacs-loading-text "."))
(setq spacemacs-loading-text (concat spacemacs-loading-text ".")) (setq i (1+ i))))
(setq i (1+ i)))) (spacemacs/replace-last-line-of-buffer spacemacs-loading-text)
(spacemacs/replace-last-line-of-buffer spacemacs-loading-text) (redisplay)))
(redisplay))))
(defun spacemacs/insert-buttons () (defun spacemacs/insert-buttons ()
(goto-char (point-max)) (goto-char (point-max))