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

(animate-string): Doc fix. Use a buffer

Browse source 
name with stars in it.
(animate-sequence): New function.
From Richard M. Stallman <rms@gnu.org>.
This commit is contained in:
Gerd Moellmann 2001-08-10 18:10:40 +00:00
parent 030f453737
commit 242e5463b7
2 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2001-08-10 Gerd Moellmann <gerd@gnu.org>
* play/animate.el (animate-string): Doc fix. Use a buffer
name with stars in it.
(animate-sequence): New function.
From Richard Stallman <rms@gnu.org>.
* frame.el (select-frame-set-input-focus): New function
extracted from other-frame.
(other-frame): Use it.

22
lisp/play/animate.el
View file

@ -132,12 +132,30 @@ in the current window."
;; will undo the "animate" calls one by one.
(undo-boundary)))
;;;###autoload
(defun animate-sequence (list-of-strings space)
"Display strings from LIST-OF-STRING with animation in a new buffer.
Strings will be separated from each other by SPACE lines."
(let ((vpos (/ (- (window-height)
1 ;; For the mode-line
(* (1- (length list-of-strings)) space)
(length list-of-strings))
2)))
(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))
(setq list-of-strings (cdr list-of-strings)))))
;;;###autoload
(defun animate-birthday-present ()
"Display Sarah's birthday present."
"Display Sarah's birthday present in a new buffer."
(interactive)
;; Make a suitable buffer to display the birthday present in.
(switch-to-buffer (get-buffer-create "Sarah"))
(switch-to-buffer (get-buffer-create "*Sarah*"))
(erase-buffer)
;; Display the empty buffer.
(sit-for 0)