procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* play/animate.el (animate-string): For good effect, make sure

Browse source 
`indent-tabs-mode' and `show-trailing-whitespace' are nil.

* play/animate.el (animate-sequence, animate-birthday-present):
* misc.el (butterfly): Don't set `indent-tabs-mode'.
This commit is contained in:
Juanma Barranquero 2009-10-06 11:15:01 +00:00
parent 353f2607c2
commit bde79dc058
3 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2009-10-06 Juanma Barranquero <lekktu@gmail.com>
* play/animate.el (animate-string): For good effect, make sure
`indent-tabs-mode' and `show-trailing-whitespace' are nil.
* play/animate.el (animate-sequence, animate-birthday-present):
* misc.el (butterfly): Don't set `indent-tabs-mode'.
2009-10-06 Glenn Morris <rgm@gnu.org>
* emacs-lisp/byte-run.el (define-obsolete-face-alias): Doc fix.

1
lisp/misc.el
View file

@ -122,7 +122,6 @@ variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'."
(switch-to-buffer (get-buffer-create "*butterfly*"))
(erase-buffer)
(sit-for 0)
(setq indent-tabs-mode nil)
(animate-string "Amazing physics going on..."
(/ (window-height) 2) (- (/ (window-width) 2) 12))
(sit-for (* 5 (/ (abs (random)) (float most-positive-fixnum))))

10
lisp/play/animate.el
View file

@ -105,7 +105,11 @@ in the current window."
(or hpos
;; HPOS unspecified, so compute
;; it so as to center the string.
(max 0 (/ (- (window-width) (length string)) 2))))))
(max 0 (/ (- (window-width) (length string)) 2)))))
(show-trailing-whitespace nil)
;; Make sure indentation does not use tabs.
;; They would confuse things.
(indent-tabs-mode nil))
(dotimes (i animate-n-steps)
;; Bind buffer-undo-list so it will be unchanged when we are done.
;; (We're going to undo all our changes anyway.)
@ -145,7 +149,6 @@ Strings will be separated from each other by SPACE lines."
(switch-to-buffer (get-buffer-create "*Animation*"))
(erase-buffer)
(sit-for 0)
(setq indent-tabs-mode nil)
(while list-of-strings
(animate-string (car list-of-strings) vpos)
(setq vpos (+ vpos space 1))
@ -162,9 +165,6 @@ You can specify the one's name by NAME; the default value is \"Sarah\"."
(erase-buffer)
;; Display the empty buffer.
(sit-for 0)
;; Make sure indentation does not use tabs.
;; They would confuse things.
(setq indent-tabs-mode nil)
(animate-string "Happy Birthday," 6)
(animate-string (format "%s" name) 7)