Mercurial > emacs
changeset 36060:d9b4d1370073
(set-face-background, set-face-foreground)
(set-face-stipple): Treat a value of nil as being `unspecified'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 13 Feb 2001 02:02:20 +0000 |
| parents | 707404e4b86f |
| children | 549acada307e |
| files | lisp/faces.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Tue Feb 13 00:00:30 2001 +0000 +++ b/lisp/faces.el Tue Feb 13 02:02:20 2001 +0000 @@ -1,6 +1,6 @@ ;;; faces.el --- Lisp faces -;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000 +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001 ;; Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -648,7 +648,7 @@ FRAME nil or not specified means change face on all frames. When called interactively, prompt for the face and color." (interactive (read-face-and-attribute :background)) - (set-face-attribute face frame :background color)) + (set-face-attribute face frame :background (or color 'unspecified))) (defun set-face-foreground (face color &optional frame) @@ -656,7 +656,7 @@ FRAME nil or not specified means change face on all frames. When called interactively, prompt for the face and color." (interactive (read-face-and-attribute :foreground)) - (set-face-attribute face frame :foreground color)) + (set-face-attribute face frame :foreground (or color 'unspecified))) (defun set-face-stipple (face stipple &optional frame) @@ -669,7 +669,7 @@ where WIDTH and HEIGHT are the size in pixels, and DATA is a string, containing the raw bits of the bitmap." (interactive (read-face-and-attribute :stipple)) - (set-face-attribute face frame :stipple stipple)) + (set-face-attribute face frame :stipple (or stipple 'unspecified))) (defun set-face-underline (face underline &optional frame)