Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 294:4b85ae5eabfb r21-0b45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b45
author cvs
date Mon, 13 Aug 2007 10:38:01 +0200
parents c9fe270a4101
children 33bdb3d4b97f
comparison
equal deleted inserted replaced
293:403535bfea94 294:4b85ae5eabfb
977 "which you can use to read online documentation.\n" 977 "which you can use to read online documentation.\n"
978 (face (bold red) ( "\ 978 (face (bold red) ( "\
979 For tips and answers to frequently asked questions, see the XEmacs FAQ. 979 For tips and answers to frequently asked questions, see the XEmacs FAQ.
980 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) 980 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)"))))
981 981
982 (defvar xemacs-startup-logo-function nil 982 ;; I really hate global variables, oh well.
983 "If non-nil, function called to provide the startup logo. 983 ;(defvar xemacs-startup-logo-function nil
984 This function should return an initialized glyph if it is used.") 984 ; "If non-nil, function called to provide the startup logo.
985 ;This function should return an initialized glyph if it is used.")
985 986
986 (defun startup-splash-frame () 987 (defun startup-splash-frame ()
987 (let ((p (point)) 988 (let ((p (point))
988 (logo (cond (xemacs-startup-logo-function 989 ; (logo (cond (xemacs-startup-logo-function
989 (funcall xemacs-startup-logo-function)) 990 ; (funcall xemacs-startup-logo-function))
990 (t xemacs-logo))) 991 ; (t xemacs-logo)))
992 (logo xemacs-logo)
991 (cramped-p (eq 'tty (console-type)))) 993 (cramped-p (eq 'tty (console-type))))
992 (unless cramped-p (insert "\n")) 994 (unless cramped-p (insert "\n"))
993 (indent-to (startup-center-spaces logo)) 995 (indent-to (startup-center-spaces logo))
994 (set-extent-begin-glyph (make-extent (point) (point)) logo) 996 (set-extent-begin-glyph (make-extent (point) (point)) logo)
995 (insert (if cramped-p "\n" "\n\n")) 997 (insert (if cramped-p "\n" "\n\n"))