Mercurial > hg > xemacs-beta

comparison lisp/startup.el @ 3643:86be8d3dd45d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-10-30 11:17:43 by malcolmp] Prevent a frame appearing when starting with -unmapped.
author malcolmp
date Mon, 30 Oct 2006 11:17:46 +0000
parents 316fddbf58e2
children 92013722573f
comparison
equal deleted inserted replaced
3642:688f75d3668d 3643:86be8d3dd45d
1363 (splash-hack-version-string) 1363 (splash-hack-version-string)
1364 (goto-char (point-max)) 1364 (goto-char (point-max))
1365 (let* ((after-change-functions nil) ; no font-lock, thank you 1365 (let* ((after-change-functions nil) ; no font-lock, thank you
1366 (elements (cond (tty (splash-screen-tty-body)) 1366 (elements (cond (tty (splash-screen-tty-body))
1367 (t (splash-screen-window-body))))) 1367 (t (splash-screen-window-body)))))
1368 (pop-to-buffer (current-buffer))
1369 (delete-other-windows)
1370 (splash-screen-present elements) 1368 (splash-screen-present elements)
1371 (set-buffer-modified-p nil)))) 1369 (set-buffer-modified-p nil))))
1372 1370
1373 (defun xemacs-splash-buffer () 1371 (defun xemacs-splash-buffer ()
1374 "Display XEmacs splash screen in a buffer." 1372 "Display XEmacs splash screen in a buffer."
1375 (interactive) 1373 (interactive)
1376 (let ((buffer (get-buffer-create "*Splash*"))) 1374 (let ((buffer (get-buffer-create "*Splash*")))
1377 (set-buffer buffer) 1375 (set-buffer buffer)
1378 (setq buffer-read-only nil) 1376 (setq buffer-read-only nil)
1379 (erase-buffer buffer) 1377 (erase-buffer buffer)
1378 (pop-to-buffer buffer)
1379 (delete-other-windows)
1380 (display-splash-screen))) 1380 (display-splash-screen)))
1381 1381
1382 ;; (let ((present-file 1382 ;; (let ((present-file
1383 ;; #'(lambda (f) 1383 ;; #'(lambda (f)
1384 ;; (splash-screen-present 1384 ;; (splash-screen-present