[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog misc.el play/animate.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog misc.el play/animate.el |
Date: |
Tue, 06 Oct 2009 11:15:07 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 09/10/06 11:15:07
Modified files:
lisp : ChangeLog misc.el
lisp/play : animate.el
Log message:
* 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'.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16374&r2=1.16375
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/misc.el?cvsroot=emacs&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/animate.el?cvsroot=emacs&r1=1.24&r2=1.25
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16374
retrieving revision 1.16375
diff -u -b -r1.16374 -r1.16375
--- ChangeLog 6 Oct 2009 03:43:23 -0000 1.16374
+++ ChangeLog 6 Oct 2009 11:15:01 -0000 1.16375
@@ -1,3 +1,11 @@
+2009-10-06 Juanma Barranquero <address@hidden>
+
+ * 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 <address@hidden>
* emacs-lisp/byte-run.el (define-obsolete-face-alias): Doc fix.
Index: misc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/misc.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- misc.el 5 Jan 2009 03:19:34 -0000 1.25
+++ misc.el 6 Oct 2009 11:15:06 -0000 1.26
@@ -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))))
Index: play/animate.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/animate.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- play/animate.el 5 Jan 2009 03:23:06 -0000 1.24
+++ play/animate.el 6 Oct 2009 11:15:06 -0000 1.25
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog misc.el play/animate.el,
Juanma Barranquero <=