Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents 90d73dddcdc4
children 558f606b08ae
comparison
equal deleted inserted replaced
281:090b52736db2 282:c42ec1d1cded
979 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) 979 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)"))))
980 980
981 (defun startup-splash-frame () 981 (defun startup-splash-frame ()
982 (let ((p (point)) 982 (let ((p (point))
983 (logo (cond ((featurep 'infodock) 983 (logo (cond ((featurep 'infodock)
984 (make-glyph (locate-data-file "altrasoft-logo.xpm"))) 984 (make-glyph (locate-data-file "altrasoft-slogo.xpm")))
985 (t xemacs-logo))) 985 (t xemacs-logo)))
986 (cramped-p (eq 'tty (console-type)))) 986 (cramped-p (eq 'tty (console-type))))
987 (unless cramped-p (insert "\n")) 987 (unless cramped-p (insert "\n"))
988 (indent-to (startup-center-spaces logo)) 988 (indent-to (startup-center-spaces logo))
989 (set-extent-begin-glyph (make-extent (point) (point)) logo) 989 (set-extent-begin-glyph (make-extent (point) (point)) logo)