comparison lisp/startup.el @ 90286:5b7d410e31f9

Revision: [e-mail]/emacs--unicode--0--patch-7 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 4-14) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (base, patch 1-7) - tag of [e-mail]--gnu-2005/gnus--rel--5.10--patch-187 - Update from CVS - Merge from emacs--devo--0 * [e-mail]--gnu-2005/gnus--rel--5.10 (patch 187) - Update from CVS

90285:5251b70632c4

(defgroup initialization nil
  "Emacs start-up procedure."
  :group 'internal)

(defcustom inhibit-splash-screen nil
  "*Non-nil inhibits the startup screen.
This is for use in your personal init file, once you are familiar
with the contents of the startup screen."
  :type 'boolean
  :group 'initialization)

;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

")
  "Initial message displayed in *scratch* buffer at startup.
If this is nil, no message will be displayed."
  :type '(choice (text :tag "Message")
		 (const :tag "none" nil))
  :group 'initialization)



          ;; This includes our standard options' long versions
          ;; and long versions of what's on command-switch-alist.
          (longopts
           (append '(("--funcall") ("--load") ("--insert") ("--kill")
                     ("--directory") ("--eval") ("--execute") ("--no-splash")
                     ("--find-file") ("--visit") ("--file"))
                   (mapcar (lambda (elt)
                             (list (concat "-" (car elt))))
                           command-switch-alist)))
          (line 0)
          (column 0))

                     (error "File name omitted from `-insert' option"))
                 (insert-file-contents (command-line-normalize-file-name tem)))

                ((equal argi "-kill")
                 (kill-emacs t))

                ((string-match "^\\+[0-9]+\\'" argi)
                 (setq line (string-to-number argi)))

                ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi)

90286:5b7d410e31f9

(defgroup initialization nil
  "Emacs start-up procedure."
  :group 'internal)

(defcustom inhibit-splash-screen nil
  "Non-nil inhibits the startup screen.
It also inhibits display of the initial message in the *scratch* buffer.

This is for use in your personal init file, once you are familiar
with the contents of the startup screen."
  :type 'boolean
  :group 'initialization)

;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

")
  "Initial message displayed in *scratch* buffer at startup.
If this is nil, no message will be displayed.
If `inhibit-splash-screen' is non-nil, then no message is displayed,
regardless of the value of this variable."
  :type '(choice (text :tag "Message")
		 (const :tag "none" nil))
  :group 'initialization)



          ;; This includes our standard options' long versions
          ;; and long versions of what's on command-switch-alist.
          (longopts
           (append '(("--funcall") ("--load") ("--insert") ("--kill")
                     ("--directory") ("--eval") ("--execute") ("--no-splash")
                     ("--find-file") ("--visit") ("--file") ("--no-desktop"))
                   (mapcar (lambda (elt)
                             (list (concat "-" (car elt))))
                           command-switch-alist)))
          (line 0)
          (column 0))

                     (error "File name omitted from `-insert' option"))
                 (insert-file-contents (command-line-normalize-file-name tem)))

                ((equal argi "-kill")
                 (kill-emacs t))

		;; This is for when they use --no-desktop with -q, or
		;; don't load Desktop in their .emacs.  If desktop.el
		;; _is_ loaded, it will handle this switch, and we
		;; won't see it by the time we get here.
		((equal argi "-no-desktop")
		 (message "\"--no-desktop\" ignored because the Desktop package is not loaded"))

                ((string-match "^\\+[0-9]+\\'" argi)
                 (setq line (string-to-number argi)))

                ((string-match "^\\+\\([0-9]+\\):\\([0-9]+\\)\\'" argi)