emacs: lisp/faces.el comparison

comparison lisp/faces.el @ 19479:3c201ec148a4

(modify-face): New arg INVERSE-P. Clear the inverse-video flag before installing new colors. (face-spec-set): Pass INVERSE-P arg, and use (nil) for colors when calling modify-face.

author	Richard M. Stallman <rms@gnu.org>
date	Sat, 23 Aug 1997 02:01:34 +0000
parents	11d21b4613cd
children	8430323b838e

comparison

equal deleted inserted replaced

-:b2544c0eada8
+:3c201ec148a4
 (put 'set-face-underline-p 'byte-optimizer nil))
 ;;;; Functions for manipulating face vectors.
 ;;; A face vector is a vector of the form:
-;;;    [face NAME ID FONT FOREGROUND BACKGROUND STIPPLE UNDERLINE INVERSE]
+;;;    [face NAME ID FONT FOREGROUND BACKGROUND STIPPLE
+;;;          UNDERLINE-P INVERSE-VIDEO-P FONT-EXPLICIT-P BOLD-P ITALIC-P]
 ;;; Type checkers.
 (defsubst internal-facep (x)
 (and (vectorp x) (= (length x) 12) (eq (aref x 0) 'face)))
 	  ((equal value "")
 	   default)
 	  (t value))))
 (defun modify-face (face foreground background stipple
-		    bold-p italic-p underline-p &optional frame)
+		    bold-p italic-p underline-p &optional inverse-p frame)
 "Change the display attributes for face FACE.
 If the optional FRAME argument is provided, change only
 in that frame; otherwise change each frame.
 FOREGROUND and BACKGROUND should be a colour name string (or list of strings to
 try) or nil.  STIPPLE should be a stipple pattern name string or nil.
 If nil, means do not change the display attribute corresponding to that arg.
-BOLD-P, ITALIC-P, and UNDERLINE-P specify whether the face should be set bold,
+BOLD-P, ITALIC-P, UNDERLINE-P, and INVERSE-P specify whether
-in italic, and underlined, respectively.  If neither nil or t, means do not
+the face should be set bold, italic, underlined or in inverse-video,
-change the display attribute corresponding to that arg.
+respectively.  If one of these arguments is neither nil or t, it means do not
+change the display attribute corresponding to that argument.
 If called interactively, prompts for a face name and face attributes."
 (interactive
 (let* ((completion-ignore-case t)
 	  (face		(symbol-name (read-face-name "Modify face: ")))
 		    (read new-stipple-string)
 		  new-stipple-string)))
 	  (bold-p	(y-or-n-p (concat "Should face " face " be bold ")))
 	  (italic-p	(y-or-n-p (concat "Should face " face " be italic ")))
 	  (underline-p	(y-or-n-p (concat "Should face " face " be underlined ")))
+	  (inverse-p	(y-or-n-p (concat "Should face " face " be inverse-video ")))
 	  (all-frames-p	(y-or-n-p (concat "Modify face " face " in all frames "))))
 (message "Face %s: %s" face
 (mapconcat 'identity
 (delq nil
 	(list (and foreground (concat (downcase foreground) " foreground"))
 	      (and background (concat (downcase background) " background"))
 	      (and stipple (concat (downcase new-stipple-string) " stipple"))
 	      (and bold-p "bold") (and italic-p "italic")
+	      (and inverse-p "inverse")
 	      (and underline-p "underline"))) ", "))
 (list (intern face) foreground background stipple
-	   bold-p italic-p underline-p
+	   bold-p italic-p underline-p inverse-p
 	   (if all-frames-p nil (selected-frame)))))
+;; Clear this before we install the new foreground and background;
+;; otherwise, clearing it after would swap them!
+(when (and (or foreground background) (face-inverse-video-p face))
+(set-face-inverse-video-p face frame nil)
+;; Arrange to restore it after, if we are not setting it now.
+(or (memq inverse-p '(t nil))
+	(setq inverse-p t)))
 (condition-case nil
 (face-try-color-list 'set-face-foreground face foreground frame)
 (error nil))
 (condition-case nil
 (face-try-color-list 'set-face-background face background frame)
 (error nil))
 (condition-case nil
 (set-face-stipple face stipple frame)
 (error nil))
+;; Now that we have the new colors,
+(if (memq inverse-p '(nil t))
+(set-face-inverse-video-p face inverse-p frame))
 (cond ((eq bold-p nil)
 	 (if (face-font face frame)
 	     (make-face-unbold face frame t)))
 	((eq bold-p t)
 	 (make-face-bold face frame t)))
 	(when attrs
 	  ;; If the font was set automatically, clear it out
 	  ;; to allow it to be set it again.
 	  (unless (face-font-explicit face frame)
 	    (set-face-font face nil frame))
-	  (modify-face face nil nil nil nil nil nil frame)
+	  (modify-face face '(nil) '(nil) nil nil nil nil nil frame)
 	  (face-spec-set-1 face frame attrs ':foreground 'set-face-foreground)
 	  (face-spec-set-1 face frame attrs ':background 'set-face-background)
 	  (face-spec-set-1 face frame attrs ':stipple 'set-face-stipple)
 	  (face-spec-set-1 face frame attrs ':bold 'set-face-bold-p)
 	  (face-spec-set-1 face frame attrs ':italic 'set-face-italic-p)

Mercurial > emacs

comparison lisp/faces.el @ 19479:3c201ec148a4