Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/advocacy.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/prim/advocacy.el	Mon Aug 13 08:46:35 2007 +0200
@@ -41,15 +41,23 @@
  	  (max-faces (length (face-list))))
       (with-output-to-temp-buffer "*Praise*"
 	(set-buffer "*Praise*")
+        (if (glyphp xemacs-logo)
+            (let ((p (point)))
+              (insert "\n")
+              (indent-to (startup-center-spaces xemacs-logo))
+              (set-extent-begin-glyph (make-extent (point) (point)) xemacs-logo)
+              (insert "\n\n")))
 	(while (> count 0)
 	  (progn
 	    (insert-face xemacs-praise-message
 			 (get-face (nth (random max-faces) (face-list))))
 	    (setq count (- count 1))))))
     (let ((sound-file
-	   (or (file-exists-p xemacs-praise-sound-file)
-	       (file-exists-p
-		(concat data-directory xemacs-praise-sound-file)))))
+	   (or (and (file-exists-p xemacs-praise-sound-file)
+		    xemacs-praise-sound-file)
+	       (and (file-exists-p
+		     (concat data-directory xemacs-praise-sound-file))
+		    (concat data-directory xemacs-praise-sound-file)))))
       (if (and (device-sound-enabled-p) sound-file)
 	  (progn
 	    (sit-for 0)