(command-line-1): Don't call make-mode-line-mouse-sensitive.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56f9588264ac344d12c30c9f616ff562d93466e9..e1dbf0ae27d31218fe2b36d4e5f5350d2392376b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2000-02-09  Dave Love  <fx@gnu.org>
+
+       * bindings.el (mode-line-input-method-map): New variable.
+       (mode-line-mule-info): Use it; fix last change.
+       (mode-line-mode-menu): Move definition.
+       (mode-line-mouse-sensitive-p): Deleted.
+       (mode-line-mode-name): Don't use mode-line-mouse-sensitive-p.
+       (make-mode-line-mouse-sensitive): Deleted.  Body moved to top
+       level.
+
+       * startup.el (command-line-1): Don't call
+       make-mode-line-mouse-sensitive.
+
 2000-02-07  Francesco Potorti`  <F.Potorti@cnuce.cnr.it>
 
        * mail/rmail.el (rmail-retry-failure): Use

diff --git a/lisp/startup.el b/lisp/startup.el
index e0fac7127880fc7bc8e084605cea27c9502c7228..e997eaea72fc49dee2eb82c3215bf3f4a0fc2b72 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -820,9 +820,6 @@ If this is nil, no message will be displayed."
                   "For information about the GNU Project and its goals, type C-h C-p."
                 (substitute-command-keys
                  "For information about the GNU Project and its goals, type \\[describe-project]."))))
-  (when (and (not noninteractive)
-            (memq window-system '(x w32 pc)))
-    (make-mode-line-mouse-sensitive))
   (if (null command-line-args-left)
       (cond ((and (not inhibit-startup-message) (not noninteractive)
                  ;; Don't clobber a non-scratch buffer if init file