Mercurial > emacs

changeset 2807:9e8635dafd40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename `primary-selection' to `region'.
author Richard M. Stallman <rms@gnu.org>
date Sat, 15 May 1993 21:17:55 +0000
parents fc90a9d80b5f
children b809a8da05cb
files lisp/faces.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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 ()