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)