# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 737500675 0
# Node ID 9e8635dafd40c2d8049d6295001616479244a89b
# Parent  fc90a9d80b5fb7a692f73eb04f8c64ca0d0103d1
Rename `primary-selection' to `region'.

diff -r fc90a9d80b5f -r 9e8635dafd40 lisp/faces.el
--- a/lisp/faces.el	Sat May 15 21:17:06 1993 +0000
+++ b/lisp/faces.el	Sat May 15 21:17:55 1993 +0000
@@ -610,10 +610,10 @@
   (make-face 'bold)
   (make-face 'italic)
   (make-face 'bold-italic)
-  (make-face 'primary-selection)
+  (make-face 'region)
   (make-face 'secondary-selection)
 
-  (setq region-face (face-id 'primary-selection))
+  (setq region-face (face-id 'region))
 
   ;; Set up the faces of all existing X Window frames.
   (let ((frames (frame-list)))
@@ -682,10 +682,10 @@
 ;;;	    (set-face-background-pixmap 'highlight "gray1" frame)
 	(error (invert-face 'highlight frame))))
 
-  (or (face-differs-from-default-p 'primary-selection frame)
+  (or (face-differs-from-default-p 'region frame)
       (condition-case ()
-	  (set-face-background 'primary-selection "gray" frame)
-	(error (invert-face 'primary-selection frame))))
+	  (set-face-background 'region "gray" frame)
+	(error (invert-face 'region frame))))
 
   (or (face-differs-from-default-p 'secondary-selection frame)
       (condition-case ()