Mercurial > emacs

comparison lisp/startup.el @ 87558:b848b52f4da3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-about-screen): Remove reference to deleted `fancy-splash-help-echo' variable.
author Glenn Morris <rgm@gnu.org>
date Fri, 04 Jan 2008 03:13:06 +0000
parents 6a0c500ca3a9
children 606f2d163a64
comparison
equal deleted inserted replaced
87557:9ada3b121e1f 87558:b848b52f4da3
1 ;;; startup.el --- process Emacs shell arguments 1 ;;; startup.el --- process Emacs shell arguments
2 2
3 ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 3 ;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 4 ;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
5 ;; Free Software Foundation, Inc.
5 6
6 ;; Maintainer: FSF 7 ;; Maintainer: FSF
7 ;; Keywords: internal 8 ;; Keywords: internal
8 9
9 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
1533 (insert pure-space-overflow-message)) 1534 (insert pure-space-overflow-message))
1534 (fancy-splash-head) 1535 (fancy-splash-head)
1535 (dolist (text fancy-about-text) 1536 (dolist (text fancy-about-text)
1536 (apply #'fancy-splash-insert text) 1537 (apply #'fancy-splash-insert text)
1537 (insert "\n")) 1538 (insert "\n"))
1538 (unless (current-message)
1539 (message "%s" (or fancy-splash-help-echo "")))
1540 (set-buffer-modified-p nil) 1539 (set-buffer-modified-p nil)
1541 (goto-char (point-min)) 1540 (goto-char (point-min))
1542 (force-mode-line-update)) 1541 (force-mode-line-update))
1543 (use-local-map splash-screen-keymap) 1542 (use-local-map splash-screen-keymap)
1544 (setq tab-width 22) 1543 (setq tab-width 22)