Mercurial > emacs
changeset 105489:8db047b72241
* 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'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 06 Oct 2009 11:15:01 +0000 |
| parents | efd1475ab299 |
| children | ac6211903363 |
| files | lisp/ChangeLog lisp/misc.el lisp/play/animate.el |
| diffstat | 3 files changed, 13 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Oct 06 06:40:40 2009 +0000 +++ b/lisp/ChangeLog Tue Oct 06 11:15:01 2009 +0000 @@ -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.
--- a/lisp/misc.el Tue Oct 06 06:40:40 2009 +0000 +++ b/lisp/misc.el Tue Oct 06 11:15:01 2009 +0000 @@ -122,7 +122,6 @@ (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))))
--- a/lisp/play/animate.el Tue Oct 06 06:40:40 2009 +0000 +++ b/lisp/play/animate.el Tue Oct 06 11:15:01 2009 +0000 @@ -105,7 +105,11 @@ (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 @@ (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 @@ (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)