comparison lisp/startup.el @ 83098:0643dc72a250

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-213 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-214 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-215 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-216 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-217 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-138

83097:01716205773e

Set this to nil if you want to prevent `auto-save-list-file-name'
from being initialized."
  :type '(choice (const :tag "Don't record a session's auto save list" nil)
		 string)
  :group 'auto-save)

(defvar init-file-debug nil)

(defvar init-file-had-error nil)

			(error "Option `%s' is ambiguous" argi))
		    (setq argi (substring (car elt) 1)))
		(setq argval nil
                      argi orig-argi)))))
	(cond
	 ((member argi '("-q" "-no-init-file"))
	  (setq init-file-user nil))
	 ((member argi '("-u" "-user"))
	  (setq init-file-user (or argval (pop args))
		argval nil))

  (when (fboundp 'frame-initialize)
    (frame-initialize))

  ;; If frame was created with a menu bar, set menu-bar-mode on.
  (unless (or noninteractive
              (and (memq initial-window-system '(x w32))
                   (<= (frame-parameter nil 'menu-bar-lines) 0)))
    (menu-bar-mode 1))

  ;; If frame was created with a tool bar, switch tool-bar-mode on.
  (unless (or noninteractive
              (not (display-graphic-p))
              (<= (frame-parameter nil 'tool-bar-lines) 0))
    (tool-bar-mode 1))

  ;; Can't do this init in defcustom because initial-window-system isn't set.
  (unless (or noninteractive
              (eq system-type 'ms-dos)
              (not (memq initial-window-system '(x w32))))
    (setq-default blink-cursor t)
    (blink-cursor-mode 1))

		   (eq tty-erase-char 8)))
      (setq-default normal-erase-is-backspace t)
      (normal-erase-is-backspace-mode 1)))

  (unless (or noninteractive
              (not (display-graphic-p))
              (not (fboundp 'x-show-tip)))
    (setq-default tooltip-mode t)
    (tooltip-mode 1))

	 (image-width (and img (car (image-size img))))
	 (window-width (window-width (selected-window))))
    (when img
      (when (> window-width image-width)
	;; Center the image in the window.
	(let ((pos (/ (- window-width image-width) 2)))
	  (insert (propertize " " 'display `(space :align-to ,pos))))

	;; Change the color of the XPM version of the splash image
	;; so that it is visible with a dark frame background.
	(when (and (memq 'xpm img)
		   (eq (frame-parameter nil 'background-mode) 'dark))

           (not inhibit-startup-buffer-menu)
           (or (get-buffer-window first-file-buffer)
               (list-buffers)))))

  ;; Maybe display a startup screen.
  (when (and (not inhibit-startup-message) (not noninteractive)
	     ;; Don't display startup screen if init file
	     ;; has started some sort of server.
	     (not (and (fboundp 'process-list)
		       (process-list))))
    ;; Display a startup screen, after some preparations.

    ;; If there are no switches to process, we might as well
    ;; run this hook now, and there may be some need to do it
    ;; before doing any output.

83098:0643dc72a250

Set this to nil if you want to prevent `auto-save-list-file-name'
from being initialized."
  :type '(choice (const :tag "Don't record a session's auto save list" nil)
		 string)
  :group 'auto-save)

(defvar emacs-quick-startup nil)

(defvar init-file-debug nil)

(defvar init-file-had-error nil)

			(error "Option `%s' is ambiguous" argi))
		    (setq argi (substring (car elt) 1)))
		(setq argval nil
                      argi orig-argi)))))
	(cond
	 ((equal argi "-Q")
	  (setq init-file-user nil
		site-run-file nil
		emacs-quick-startup t)
	  (push '(vertical-scroll-bars . nil) initial-frame-alist))
	 ((member argi '("-q" "-no-init-file"))
	  (setq init-file-user nil))
	 ((member argi '("-u" "-user"))
	  (setq init-file-user (or argval (pop args))
		argval nil))

  (when (fboundp 'frame-initialize)
    (frame-initialize))

  ;; If frame was created with a menu bar, set menu-bar-mode on.
  (unless (or noninteractive
	      emacs-quick-startup
              (and (memq initial-window-system '(x w32))
                   (<= (frame-parameter nil 'menu-bar-lines) 0)))
    (menu-bar-mode 1))

  ;; If frame was created with a tool bar, switch tool-bar-mode on.
  (unless (or noninteractive
	      emacs-quick-startup
              (not (display-graphic-p))
              (<= (frame-parameter nil 'tool-bar-lines) 0))
    (tool-bar-mode 1))

  ;; Can't do this init in defcustom because initial-window-system isn't set.
  (unless (or noninteractive
	      emacs-quick-startup
              (eq system-type 'ms-dos)
              (not (memq initial-window-system '(x w32))))
    (setq-default blink-cursor t)
    (blink-cursor-mode 1))

		   (eq tty-erase-char 8)))
      (setq-default normal-erase-is-backspace t)
      (normal-erase-is-backspace-mode 1)))

  (unless (or noninteractive
	      emacs-quick-startup
              (not (display-graphic-p))
              (not (fboundp 'x-show-tip)))
    (setq-default tooltip-mode t)
    (tooltip-mode 1))

	 (image-width (and img (car (image-size img))))
	 (window-width (window-width (selected-window))))
    (when img
      (when (> window-width image-width)
	;; Center the image in the window.
	(insert (propertize " " 'display
			    `(space :align-to (+ center (-0.5 . ,img)))))

	;; Change the color of the XPM version of the splash image
	;; so that it is visible with a dark frame background.
	(when (and (memq 'xpm img)
		   (eq (frame-parameter nil 'background-mode) 'dark))

           (not inhibit-startup-buffer-menu)
           (or (get-buffer-window first-file-buffer)
               (list-buffers)))))

  ;; Maybe display a startup screen.
  (unless (or inhibit-startup-message
	      noninteractive
	      emacs-quick-startup
	     ;; Don't display startup screen if init file
	     ;; has started some sort of server.
	     (and (fboundp 'process-list)
		  (process-list)))
    ;; Display a startup screen, after some preparations.

    ;; If there are no switches to process, we might as well
    ;; run this hook now, and there may be some need to do it
    ;; before doing any output.