Mercurial > hg > xemacs-beta

comparison lisp/prim/advocacy.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
39 0 39 0
40 arg)) 40 arg))
41 (max-faces (length (face-list)))) 41 (max-faces (length (face-list))))
42 (with-output-to-temp-buffer "*Praise*" 42 (with-output-to-temp-buffer "*Praise*"
43 (set-buffer "*Praise*") 43 (set-buffer "*Praise*")
44 (if (glyphp xemacs-logo)
45 (let ((p (point)))
46 (insert "\n")
47 (indent-to (startup-center-spaces xemacs-logo))
48 (set-extent-begin-glyph (make-extent (point) (point)) xemacs-logo)
49 (insert "\n\n")))
44 (while (> count 0) 50 (while (> count 0)
45 (progn 51 (progn
46 (insert-face xemacs-praise-message 52 (insert-face xemacs-praise-message
47 (get-face (nth (random max-faces) (face-list)))) 53 (get-face (nth (random max-faces) (face-list))))
48 (setq count (- count 1)))))) 54 (setq count (- count 1))))))
49 (let ((sound-file 55 (let ((sound-file
50 (or (file-exists-p xemacs-praise-sound-file) 56 (or (and (file-exists-p xemacs-praise-sound-file)
51 (file-exists-p 57 xemacs-praise-sound-file)
52 (concat data-directory xemacs-praise-sound-file))))) 58 (and (file-exists-p
59 (concat data-directory xemacs-praise-sound-file))
60 (concat data-directory xemacs-praise-sound-file)))))
53 (if (and (device-sound-enabled-p) sound-file) 61 (if (and (device-sound-enabled-p) sound-file)
54 (progn 62 (progn
55 (sit-for 0) 63 (sit-for 0)
56 (play-sound-file sound-file)) 64 (play-sound-file sound-file))
57 (sit-for 10))))) 65 (sit-for 10)))))