[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/startup.el,v

From: Eli Zaretskii
Subject: [Emacs-diffs] Changes to emacs/lisp/startup.el,v
Date: Sat, 23 Aug 2008 16:59:19 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/08/23 16:59:19

Index: startup.el
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.502
retrieving revision 1.503
diff -u -b -r1.502 -r1.503
--- startup.el  7 Aug 2008 03:10:08 -0000       1.502
+++ startup.el  23 Aug 2008 16:59:19 -0000      1.503
@@ -737,20 +737,24 @@
     (setq eol-mnemonic-dos  "(DOS)"
           eol-mnemonic-mac  "(Mac)")))
-  ;; Make sure window system's init file was loaded in loadup.el if using a 
window system.
+  ;; Make sure window system's init file was loaded in loadup.el if
+  ;; using a window system.
   (condition-case error
     (unless noninteractive
       (if (and initial-window-system
               (not (featurep
-                    (intern (concat (symbol-name initial-window-system) 
+                    (intern
+                     (concat (symbol-name initial-window-system) "-win")))))
          (error "Unsupported window system `%s'" initial-window-system))
       ;; Process window-system specific command line parameters.
       (setq command-line-args
-           (funcall (or (cdr (assq initial-window-system 
+           (funcall
+            (or (cdr (assq initial-window-system handle-args-function-alist))
                         (error "Unsupported window system `%s'" 
       ;; Initialize the window system. (Open connection, etc.)
-      (funcall (or (cdr (assq initial-window-system 
+      (funcall
+       (or (cdr (assq initial-window-system 
                   (error "Unsupported window system `%s'" 
     ;; If there was an error, print the error message and exit.
@@ -926,7 +930,11 @@
   ;; since users can connect to color-capable terminals and also
   ;; switch color support on or off in mid-session by setting the
   ;; tty-color-mode frame parameter.
-  (tty-register-default-colors)
+  ;; Exception: the `pc' ``window system'' has only 16 fixed colors,
+  ;; and they are already set at this point by a suitable function in
+  ;; window-system-initialization-alist.
+  (or (eq initial-window-system 'pc)
+      (tty-register-default-colors))
   ;; Record whether the tool-bar is present before the user and site
   ;; init files are processed.  frame-notice-user-settings uses this

reply via email to

[Prev in Thread] Current Thread [Next in Thread]