(remove, remq): New functions.

[gnu-emacs] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index 0c92c4b6a133fa668a8268ef8de761963213ca55..42a7dcffbcb0c31d69232118c8269d69b1c9ac84 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -647,6 +647,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
               (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0)))
       (menu-bar-mode t))
 
+  ;; Can't do this init in defcustom because window-system isn't set.
+  (when (and (not noninteractive)
+            (not (eq system-type 'ms-dos))
+            (memq window-system '(x w32)))
+    (setq-default blink-cursor t)
+    (blink-cursor-mode 1))
+
   (run-hooks 'before-init-hook)
 
   ;; Run the site-start library if it exists.  The point of this file is
@@ -898,7 +905,7 @@ Getting New Versions        How to obtain the latest version of Emacs.
 ")
                             (insert "\n\n" (emacs-version)
                                     "
-Copyright (C) 1999 Free Software Foundation, Inc."))
+Copyright (C) 2000 Free Software Foundation, Inc."))
                         ;; If keys have their default meanings,
                         ;; use precomputed string to save lots of time.
                         (if (and (eq (key-binding "\C-h") 'help-command)
@@ -960,7 +967,7 @@ If you have no Meta key, you may instead type ESC followed by the character.)")
 
                         (insert "\n\n" (emacs-version)
                                 "
-Copyright (C) 1999 Free Software Foundation, Inc.")
+Copyright (C) 2000 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))