comparison lisp/faces.el @ 2807:9e8635dafd40

Rename `primary-selection' to `region'.

2806:fc90a9d80b5f

  ;; The X-specific code is clever at them.
  ;;
  (make-face 'bold)
  (make-face 'italic)
  (make-face 'bold-italic)
  (make-face 'primary-selection)
  (make-face 'secondary-selection)

  (setq region-face (face-id 'primary-selection))

  ;; Set up the faces of all existing X Window frames.
  (let ((frames (frame-list)))
    (while frames
      (if (eq (framep (car frames)) 'x)

	      (set-face-background 'highlight "darkseagreen2" frame)
	    (error (set-face-background 'highlight "green" frame)))
;;;	    (set-face-background-pixmap 'highlight "gray1" frame)
	(error (invert-face 'highlight frame))))

  (or (face-differs-from-default-p 'primary-selection frame)
      (condition-case ()
	  (set-face-background 'primary-selection "gray" frame)
	(error (invert-face 'primary-selection frame))))

  (or (face-differs-from-default-p 'secondary-selection frame)
      (condition-case ()
	  (condition-case ()
	      ;; some older X servers don't have this one.

2807:9e8635dafd40

  ;; The X-specific code is clever at them.
  ;;
  (make-face 'bold)
  (make-face 'italic)
  (make-face 'bold-italic)
  (make-face 'region)
  (make-face 'secondary-selection)

  (setq region-face (face-id 'region))

  ;; Set up the faces of all existing X Window frames.
  (let ((frames (frame-list)))
    (while frames
      (if (eq (framep (car frames)) 'x)

	      (set-face-background 'highlight "darkseagreen2" frame)
	    (error (set-face-background 'highlight "green" frame)))
;;;	    (set-face-background-pixmap 'highlight "gray1" frame)
	(error (invert-face 'highlight frame))))

  (or (face-differs-from-default-p 'region frame)
      (condition-case ()
	  (set-face-background 'region "gray" frame)
	(error (invert-face 'region frame))))

  (or (face-differs-from-default-p 'secondary-selection frame)
      (condition-case ()
	  (condition-case ()
	      ;; some older X servers don't have this one.