comparison lisp/term/xterm.el @ 106973:9b98e092d459

(xterm-maybe-set-dark-background-mode): Rename from xterm-set-background-mode. Return t if the background mode was set. (terminal-init-xterm): Move tty-set-up-initial-frame-faces earlier, call it again in case the background mode has changed.

106971:9fa45b0cc7d9

      ;; made in the .emacs file.
      (set-keymap-parent map (keymap-parent input-decode-map))
      (set-keymap-parent input-decode-map map)))

    (xterm-register-default-colors)

    ;; Try to turn on the modifyOtherKeys feature on modern xterms.
    ;; When it is turned on many more key bindings work: things like
    ;; C-. C-, etc.
    ;; To do that we need to find out if the current terminal supports
    ;; modifyOtherKeys. At this time only xterm does.
    (let ((coding-system-for-read 'binary)
	  (chr nil)
	  (str nil)
	  version)
      ;; Pending input can be mistakenly returned by the calls to
      ;; read-event below.  Discard it.
      (discard-input)
      ;; Try to find out the type of terminal by sending a "Secondary

		(when (equal (read-event nil nil 2) ?\])
		  (setq str "")
		  (while (not (equal (setq chr (read-event nil nil 2)) ?\\))
		    (setq str (concat str (string chr))))
		  (when (string-match "11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)" str)
		    (xterm-set-background-mode
		     (string-to-number (match-string 1 str) 16)
		     (string-to-number (match-string 2 str) 16)
		     (string-to-number (match-string 3 str) 16))))))
	    ;; NUMBER2 is the xterm version number, look for something
	    ;; greater than 216, the version when modifyOtherKeys was
	    ;; introduced.
	    (when (>= version 216)
	      ;; Make sure that the modifyOtherKeys state is restored when

	      (add-hook 'delete-terminal-functions 'xterm-remove-modify-other-keys)
	      ;; Add the selected frame to the list of frames that
	      ;; need to deal with modify-other-keys.
	      (push (frame-terminal (selected-frame))
		    xterm-modify-other-keys-terminal-list)
	      (xterm-turn-on-modify-other-keys))))))

    ;; This recomputes all the default faces given the colors we've just set up.
    (tty-set-up-initial-frame-faces)

    (run-hooks 'terminal-init-xterm-hook))

;; Set up colors, for those versions of xterm that support it.
(defvar xterm-standard-colors

	     (memq terminal xterm-modify-other-keys-terminal-list))
    (setq xterm-modify-other-keys-terminal-list
	  (delq terminal xterm-modify-other-keys-terminal-list))
    (send-string-to-terminal "\e[>4m" terminal)))

(defun xterm-set-background-mode (redc greenc bluec)
  ;; Use the heuristic in `frame-set-background-mode' to decide if a
  ;; frame is dark.
  (when (< (+ redc greenc bluec) (* .6 (+ 65535 65535 65535)))
    (set-terminal-parameter nil 'background-mode 'dark)))

;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
;;; xterm.el ends here

106973:9b98e092d459

      ;; made in the .emacs file.
      (set-keymap-parent map (keymap-parent input-decode-map))
      (set-keymap-parent input-decode-map map)))

    (xterm-register-default-colors)
    (tty-set-up-initial-frame-faces)

    ;; Try to turn on the modifyOtherKeys feature on modern xterms.
    ;; When it is turned on many more key bindings work: things like
    ;; C-. C-, etc.
    ;; To do that we need to find out if the current terminal supports
    ;; modifyOtherKeys. At this time only xterm does.
    (let ((coding-system-for-read 'binary)
	  (chr nil)
	  (str nil)
	  (recompute-faces nil)
	  version)
      ;; Pending input can be mistakenly returned by the calls to
      ;; read-event below.  Discard it.
      (discard-input)
      ;; Try to find out the type of terminal by sending a "Secondary

		(when (equal (read-event nil nil 2) ?\])
		  (setq str "")
		  (while (not (equal (setq chr (read-event nil nil 2)) ?\\))
		    (setq str (concat str (string chr))))
		  (when (string-match "11;rgb:\\([a-f0-9]+\\)/\\([a-f0-9]+\\)/\\([a-f0-9]+\\)" str)
		    (setq recompute-faces
			  (xterm-maybe-set-dark-background-mode
			   (string-to-number (match-string 1 str) 16)
			   (string-to-number (match-string 2 str) 16)
			   (string-to-number (match-string 3 str) 16)))))))
	    ;; NUMBER2 is the xterm version number, look for something
	    ;; greater than 216, the version when modifyOtherKeys was
	    ;; introduced.
	    (when (>= version 216)
	      ;; Make sure that the modifyOtherKeys state is restored when

	      (add-hook 'delete-terminal-functions 'xterm-remove-modify-other-keys)
	      ;; Add the selected frame to the list of frames that
	      ;; need to deal with modify-other-keys.
	      (push (frame-terminal (selected-frame))
		    xterm-modify-other-keys-terminal-list)
	      (xterm-turn-on-modify-other-keys))

	    ;; Recompute faces here in case the background mode was
	    ;; set to dark.  We used to call
	    ;; `tty-set-up-initial-frame-faces' only once, but that
	    ;; caused the light background faces to be computed
	    ;; incorrectly.  See:
	    ;; http://permalink.gmane.org/gmane.emacs.devel/119627
	    (when recompute-faces
	      (tty-set-up-initial-frame-faces))))))

    (run-hooks 'terminal-init-xterm-hook))

;; Set up colors, for those versions of xterm that support it.
(defvar xterm-standard-colors

	     (memq terminal xterm-modify-other-keys-terminal-list))
    (setq xterm-modify-other-keys-terminal-list
	  (delq terminal xterm-modify-other-keys-terminal-list))
    (send-string-to-terminal "\e[>4m" terminal)))

(defun xterm-maybe-set-dark-background-mode (redc greenc bluec)
  ;; Use the heuristic in `frame-set-background-mode' to decide if a
  ;; frame is dark.
  (when (< (+ redc greenc bluec) (* .6 (+ 65535 65535 65535)))
    (setq xterm-background-mode-changed t)
    (set-terminal-parameter nil 'background-mode 'dark)
    t))

;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a
;;; xterm.el ends here