comparison lisp/startup.el @ 75347:e3694f1cb928

Add 2007 to copyright years.

75346:7a3f13e2dd57

;;; startup.el --- process Emacs shell arguments

;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
;;   2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: internal

;; This file is part of GNU Emacs.

    (fancy-splash-insert :face `(variable-pitch :foreground ,fg)
			 "\nThis is "
			 (emacs-version)
			 "\n"
			 :face '(variable-pitch :height 0.5)
			 "Copyright (C) 2006 Free Software Foundation, Inc.")
    (and auto-save-list-file-prefix
	 ;; Don't signal an error if the
	 ;; directory for auto-save-list files
	 ;; does not yet exist.
	 (file-directory-p (file-name-directory

Getting New Versions	How to obtain the latest version of Emacs
More Manuals / Ordering Manuals    How to order printed manuals from the FSF
")
                (insert "\n\n" (emacs-version)
                        "
Copyright (C) 2006 Free Software Foundation, Inc."))

            ;; No mouse menus, so give help using kbd commands.

            ;; If keys have their default meanings,
            ;; use precomputed string to save lots of time.

\(`C-' means use the CTRL key.  `M-' means use the Meta (or Alt) key.
If you have no Meta key, you may instead type ESC followed by the character.)")

            (insert "\n\n" (emacs-version)
                    "
Copyright (C) 2006 Free Software Foundation, Inc.")

            (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
                     (eq (key-binding "\C-h\C-d") 'describe-distribution)
                     (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
                (insert

75347:e3694f1cb928

;;; startup.el --- process Emacs shell arguments

;; Copyright (C) 1985, 1986, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
;;   2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: internal

;; This file is part of GNU Emacs.

    (fancy-splash-insert :face `(variable-pitch :foreground ,fg)
			 "\nThis is "
			 (emacs-version)
			 "\n"
			 :face '(variable-pitch :height 0.5)
			 "Copyright (C) 2007 Free Software Foundation, Inc.")
    (and auto-save-list-file-prefix
	 ;; Don't signal an error if the
	 ;; directory for auto-save-list files
	 ;; does not yet exist.
	 (file-directory-p (file-name-directory

Getting New Versions	How to obtain the latest version of Emacs
More Manuals / Ordering Manuals    How to order printed manuals from the FSF
")
                (insert "\n\n" (emacs-version)
                        "
Copyright (C) 2007 Free Software Foundation, Inc."))

            ;; No mouse menus, so give help using kbd commands.

            ;; If keys have their default meanings,
            ;; use precomputed string to save lots of time.

\(`C-' means use the CTRL key.  `M-' means use the Meta (or Alt) key.
If you have no Meta key, you may instead type ESC followed by the character.)")

            (insert "\n\n" (emacs-version)
                    "
Copyright (C) 2007 Free Software Foundation, Inc.")

            (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
                     (eq (key-binding "\C-h\C-d") 'describe-distribution)
                     (eq (key-binding "\C-h\C-w") 'describe-no-warranty))
                (insert