/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.287 by eliz, Fri Jan 25 13:20:18 2002 UTC revision 1.288 by eliz, Fri Jan 25 17:29:34 2002 UTC
# Line 514  or `CVS', and any subdirectory that cont Line 514  or `CVS', and any subdirectory that cont
514                               (or (null bg)                               (or (null bg)
515                                   (member bg '(unspecified "unspecified-bg")))))                                   (member bg '(unspecified "unspecified-bg")))))
516                    (setq term (getenv "TERM"))                    (setq term (getenv "TERM"))
517                      ;; Some files in lisp/term do a better job with the
518                      ;; background mode, but we leave this here anyway, in
519                      ;; case they remove those files.
520                    (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"                    (if (string-match "^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
521                                      term)                                      term)
522                        (setq frame-background-mode 'light)))                        (setq frame-background-mode 'light)))

Legend:
Removed from v.1.287  
changed lines
  Added in v.1.288

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26