Mercurial > emacs
diff lisp/faces.el @ 2807:9e8635dafd40
Rename `primary-selection' to `region'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 15 May 1993 21:17:55 +0000 |
parents | a7b260d27c2c |
children | 9c22af6d7885 |
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 ()