xemacs-beta: lisp/faces.el comparison

comparison lisp/faces.el @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34

author	cvs
date	Mon, 13 Aug 2007 10:28:48 +0200
parents	b2472a1930f2
children	558f606b08ae

comparison

equal deleted inserted replaced

-:c7b7086b0a39
+:c5d627a313b1
 (defun convert-face-property-into-specifier (face property)
 "Convert PROPERTY on FACE into a specifier, if it's not already."
 (setq face (get-face face))
 (let ((specifier (get face property)))
 ;; if a user-property does not have a specifier but a
 ;; locale was specified, put a specifier there.
 ;; If there was already a value there, convert it to a
 ;; specifier with the value as its 'global instantiator.
 (unless (specifierp specifier)
 (let ((new-specifier (make-specifier 'generic)))
 	(if (or (not (null specifier))
 						 default no-fallback)))
 value))
 (defun set-face-property (face property value &optional locale tag-set
 			       how-to-add)
-"Change a property of a FACE.
+"Change a property of FACE.
 NOTE: If you want to remove a property from a face, use `remove-face-property'
 rather than attempting to set a value of nil for the property.
 For built-in properties, the actual value of the property is a
 The following symbols have predefined meanings:
 foreground         The foreground color of the face.
 For valid instantiators, see `color-specifier-p'.
 background         The background color of the face.
 For valid instantiators, see `color-specifier-p'.
 font               The font used to display text covered by this face.
 For valid instantiators, see `font-specifier-p'.
 display-table      The display table of the face.
 This should be a vector of 256 elements.
 background-pixmap  The pixmap displayed in the background of the face.
 Only used by faces on X devices.
 For valid instantiators, see `image-specifier-p'.
 underline          Underline all text covered by this face.
 For valid instantiators, see `face-boolean-specifier-p'.
 highlight          Highlight all text covered by this face.
 Only used by faces on TTY devices.
 For valid instantiators, see `face-boolean-specifier-p'.
 dim                Dim all text covered by this face.
 Only used by faces on TTY devices.
 For valid instantiators, see `face-boolean-specifier-p'.
 blinking           Blink all text covered by this face.
 Only used by faces on TTY devices.
 For valid instantiators, see `face-boolean-specifier-p'.
 reverse            Reverse the foreground and background colors.
 Only used by faces on TTY devices.
 For valid instantiators, see `face-boolean-specifier-p'.
 doc-string         Description of what the face's normal use is.
 NOTE: This is not a specifier, unlike all
 the other built-in properties, and cannot
 contain locale-specific values."
 (add-spec-to-specifier (get face property) value locale tag-set
 			     how-to-add)))
 value)
 (defun remove-face-property (face property &optional locale tag-set exact-p)
-"Remove a property from a face.
+"Remove a property from FACE.
 For built-in properties, this is analogous to `remove-specifier'.
 See `remove-specifier' for the meaning of the LOCALE, TAG-SET, and EXACT-P
 arguments."
 (or locale (setq locale 'all))
 (if (memq property built-in-face-specifiers)
 "Change the documentation string of FACE to DOC-STRING."
 (interactive (face-interactive "doc-string"))
 (set-face-property face 'doc-string doc-string))
 (defun face-font-name (face &optional domain charset)
-"Return the font name of the given face, or nil if it is unspecified.
+"Return the font name of FACE in DOMAIN, or nil if it is unspecified.
 DOMAIN is as in `face-font-instance'."
 (let ((f (face-font-instance face domain charset)))
 (and f (font-instance-name f))))
 (defun face-font (face &optional locale tag-set exact-p)
-"Return the font of the given face, or nil if it is unspecified.
+"Return the font of FACE in LOCALE, or nil if it is unspecified.
 FACE may be either a face object or a symbol representing a face.
 LOCALE may be a locale (the instantiators for that particular locale
 will be returned), a locale type (the specifications for all locales
 See `face-property' for more information."
 (face-property face 'font locale tag-set exact-p))
 (defun face-font-instance (face &optional domain charset)
-"Return the instance of the given face's font in the given domain.
+"Return the instance of FACE's font in DOMAIN.
 FACE may be either a face object or a symbol representing a face.
 Normally DOMAIN will be a window or nil (meaning the selected window),
 and an instance object describing how the font appears in that
 (if charset
 (face-property-matching-instance face 'font charset domain)
 (face-property-instance face 'font domain)))
 (defun set-face-font (face font &optional locale tag-set how-to-add)
-"Change the font of the given face.
+"Change the font of FACE to FONT in LOCALE.
 FACE may be either a face object or a symbol representing a face.
 FONT should be an instantiator (see `font-specifier-p'), a list of
 instantiators, an alist of specifications (each mapping a
 See `set-face-property' for more information."
 (interactive (face-interactive "font"))
 (set-face-property face 'font font locale tag-set how-to-add))
 (defun face-foreground (face &optional locale tag-set exact-p)
-"Return the foreground of the given face, or nil if it is unspecified.
+"Return the foreground of FACE in LOCALE, or nil if it is unspecified.
 FACE may be either a face object or a symbol representing a face.
 LOCALE may be a locale (the instantiators for that particular locale
 will be returned), a locale type (the specifications for all locales
 See `face-property' for more information."
 (face-property face 'foreground locale tag-set exact-p))
 (defun face-foreground-instance (face &optional domain default no-fallback)
-"Return the instance of the given face's foreground in the given domain.
+"Return the instance of FACE's foreground in DOMAIN.
 FACE may be either a face object or a symbol representing a face.
 Normally DOMAIN will be a window or nil (meaning the selected window),
 and an instance object describing how the foreground appears in that
 See `face-property-instance' for more information."
 (face-property-instance face 'foreground domain default no-fallback))
 (defun face-foreground-name (face &optional domain default no-fallback)
-"Return the name of the given face's foreground color in the given domain.
+"Return the name of FACE's foreground color in DOMAIN.
 FACE may be either a face object or a symbol representing a face.
 Normally DOMAIN will be a window or nil (meaning the selected window),
 and an instance object describing how the background appears in that
 See `face-property-instance' for more information."
 (color-instance-name (face-foreground-instance
 			face domain default no-fallback)))
 (defun set-face-foreground (face color &optional locale tag-set how-to-add)
-"Change the foreground of the given face.
+"Change the foreground color of FACE to COLOR in LOCALE.
 FACE may be either a face object or a symbol representing a face.
 COLOR should be an instantiator (see `color-specifier-p'), a list of
 instantiators, an alist of specifications (each mapping a locale to
 See `set-face-property' for more information."
 (interactive (face-interactive "foreground"))
 (set-face-property face 'foreground color locale tag-set how-to-add))
 (defun face-background (face &optional locale tag-set exact-p)
-"Return the background of the given face, or nil if it is unspecified.
+"Return the background color of FACE in LOCALE, or nil if it is unspecified.
 FACE may be either a face object or a symbol representing a face.
 LOCALE may be a locale (the instantiators for that particular locale
 will be returned), a locale type (the specifications for all locales
 See `face-property' for more information."
 (face-property face 'background locale tag-set exact-p))
 (defun face-background-instance (face &optional domain default no-fallback)
-"Return the instance of the given face's background in the given domain.
+"Return the instance of FACE's background in DOMAIN.
 FACE may be either a face object or a symbol representing a face.
 Normally DOMAIN will be a window or nil (meaning the selected window),
 and an instance object describing how the background appears in that
 See `face-property-instance' for more information."
 (face-property-instance face 'background domain default no-fallback))
 (defun face-background-name (face &optional domain default no-fallback)
-"Return the name of the given face's background color in the given domain.
+"Return the name of FACE's background color in DOMAIN.
 FACE may be either a face object or a symbol representing a face.
 Normally DOMAIN will be a window or nil (meaning the selected window),
 and an instance object describing how the background appears in that
 See `face-property-instance' for more information."
 (color-instance-name (face-background-instance
 			face domain default no-fallback)))
 (defun set-face-background (face color &optional locale tag-set how-to-add)
-"Change the background of the given face.
+"Change the background color of FACE to COLOR in LOCALE.
 FACE may be either a face object or a symbol representing a face.
 COLOR should be an instantiator (see `color-specifier-p'), a list of
 instantiators, an alist of specifications (each mapping a locale to
 See `set-face-property' for more information."
 (interactive (face-interactive "background"))
 (set-face-property face 'background color locale tag-set how-to-add))
 (defun face-background-pixmap (face &optional locale tag-set exact-p)
-"Return the background pixmap of the given face, or nil if it is unspecified.
+"Return the background pixmap of FACE in LOCALE, or nil if it is unspecified.
-This property is only used on X devices.
+This property is only used on window system devices.
 FACE may be either a face object or a symbol representing a face.
 LOCALE may be a locale (the instantiators for that particular locale
 will be returned), a locale type (the specifications for all locales
 See `face-property' for more information."
 (face-property face 'background-pixmap locale tag-set exact-p))
 (defun face-background-pixmap-instance (face &optional domain default
 					     no-fallback)
-"Return the instance of the given face's background pixmap in the given domain.
+"Return the instance of FACE's background pixmap in DOMAIN.
 FACE may be either a face object or a symbol representing a face.
 Normally DOMAIN will be a window or nil (meaning the selected window),
 and an instance object describing how the background appears in that
 See `face-property-instance' for more information."
 (face-property-instance face 'background-pixmap domain default no-fallback))
 (defun set-face-background-pixmap (face pixmap &optional locale tag-set
 					how-to-add)
-"Change the background pixmap of the given face.
+"Change the background pixmap of FACE to PIXMAP in LOCALE.
-This property is only used on X devices.
+This property is only used on window system devices.
 FACE may be either a face object or a symbol representing a face.
 PIXMAP should be an instantiator (see `image-specifier-p'), a list
 of instantiators, an alist of specifications (each mapping a locale
 See `set-face-property' for more information."
 (interactive (face-interactive "background-pixmap"))
 (set-face-property face 'background-pixmap pixmap locale tag-set how-to-add))
 (defun face-display-table (face &optional locale tag-set exact-p)
-"Return the display table of the given face.
+"Return the display table of FACE in LOCALE.
 A vector (as returned by `make-display-table') will be returned.
 LOCALE may be a locale (the instantiators for that particular locale
 will be returned), a locale type (the specifications for all locales
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'display-table domain default no-fallback))
 (defun set-face-display-table (face display-table &optional locale tag-set
 				    how-to-add)
-"Change the display table of the given face.
+"Change the display table of FACE to DISPLAY-TABLE in LOCALE.
 DISPLAY-TABLE should be a vector as returned by `make-display-table'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "display-table"))
 ;; The following accessors and mutators are, IMHO, good
 ;; implementation.  Cf. with `make-face-bold'.
 (defun face-underline-p (face &optional domain default no-fallback)
-"Return whether the given face is underlined.
+"Return t if FACE is underlined in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'underline domain default no-fallback))
 (defun set-face-underline-p (face underline-p &optional locale tag-set
 				  how-to-add)
-"Change whether the given face is underlined.
+"Change the underline property of FACE to UNDERLINE-P.
 UNDERLINE-P is normally a face-boolean instantiator; see
 `face-boolean-specifier-p'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "underline-p" "underlined"))
 (set-face-property face 'underline underline-p locale tag-set how-to-add))
 (defun face-strikethru-p (face &optional domain default no-fallback)
-"Return whether the given face is strikethru-d (i.e. struck through).
+"Return t if FACE is strikethru-d (i.e. struck through) in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'strikethru domain default no-fallback))
 (defun set-face-strikethru-p (face strikethru-p &optional locale tag-set
 				  how-to-add)
-"Change whether the given face is strikethru-d (i.e. struck through).
+"Change whether FACE is strikethru-d (i.e. struck through) in LOCALE.
 STRIKETHRU-P is normally a face-boolean instantiator; see
 `face-boolean-specifier-p'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "strikethru-p" "strikethru-d"))
 (set-face-property face 'strikethru strikethru-p locale tag-set how-to-add))
 (defun face-highlight-p (face &optional domain default no-fallback)
-"Return whether the given face is highlighted (TTY domains only).
+"Return t if FACE is highlighted in DOMAIN (TTY domains only).
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'highlight domain default no-fallback))
 (defun set-face-highlight-p (face highlight-p &optional locale tag-set
 				  how-to-add)
-"Change whether the given face is highlighted (TTY locales only).
+"Change whether FACE is highlighted in LOCALE (TTY locales only).
 HIGHLIGHT-P is normally a face-boolean instantiator; see
 `face-boolean-specifier-p'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "highlight-p" "highlighted"))
 (set-face-property face 'highlight highlight-p locale tag-set how-to-add))
 (defun face-dim-p (face &optional domain default no-fallback)
-"Return whether the given face is dimmed (TTY domains only).
+"Return t if FACE is dimmed in DOMAIN (TTY domains only).
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'dim domain default no-fallback))
 (defun set-face-dim-p (face dim-p &optional locale tag-set how-to-add)
-"Change whether the given face is dimmed (TTY locales only).
+"Change whether FACE is dimmed in LOCALE (TTY locales only).
 DIM-P is normally a face-boolean instantiator; see
 `face-boolean-specifier-p'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "dim-p" "dimmed"))
 (set-face-property face 'dim dim-p locale tag-set how-to-add))
 (defun face-blinking-p (face &optional domain default no-fallback)
-"Return whether the given face is blinking (TTY domains only).
+"Return t if FACE is blinking in DOMAIN (TTY domains only).
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'blinking domain default no-fallback))
 (defun set-face-blinking-p (face blinking-p &optional locale tag-set
 				 how-to-add)
-"Change whether the given face is blinking (TTY locales only).
+"Change whether FACE is blinking in LOCALE (TTY locales only).
 BLINKING-P is normally a face-boolean instantiator; see
 `face-boolean-specifier-p'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "blinking-p" "blinking"))
 (set-face-property face 'blinking blinking-p locale tag-set how-to-add))
 (defun face-reverse-p (face &optional domain default no-fallback)
-"Return whether the given face is reversed (TTY domains only).
+"Return t if FACE is reversed in DOMAIN (TTY domains only).
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (face-property-instance face 'reverse domain default no-fallback))
 (defun set-face-reverse-p (face reverse-p &optional locale tag-set how-to-add)
-"Change whether the given face is reversed (TTY locales only).
+"Change whether FACE is reversed in LOCALE (TTY locales only).
 REVERSE-P is normally a face-boolean instantiator; see
 `face-boolean-specifier-p'.
 See `set-face-property' for the semantics of the LOCALE, TAG-SET, and
 HOW-TO-ADD arguments."
 (interactive (face-interactive "reverse-p" "reversed"))
 	      (face-property-equal face1 face2 (car props) domain))
 (setq props (cdr props)))
 (null props))
 (defun face-equal (face1 face2 &optional domain)
-"True if the given faces will display in the same way.
+"Return t if FACE1 and FACE2 will display in the same way in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (if (null domain) (setq domain (selected-window)))
 (if (not (valid-specifier-domain-p domain))
 (error "Invalid specifier domain"))
 (let ((device (dfw-device domain))
 	       ((eq 'x (device-type device))
 		(face-equal-loop x-props face1 face2 domain))
 	       (t t)))))
 (defun face-differs-from-default-p (face &optional domain)
-"True if the given face will display differently from the default face.
+"Return t if FACE will display differently from the default face in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (not (face-equal face 'default domain)))
 ;; This function is a terrible, disgusting hack!!!!  Need to
 			(face-property-instance unfrobbed-face 'font domain)))
 	    (set-face-property face 'font (vector frobbed-face)
 			       the-locale))))))
 (defun make-face-bold (face &optional locale)
-"Make the face bold, if possible.
+"Make FACE bold in LOCALE, if possible.
 This will attempt to make the font bold for X locales and will set the
 highlight flag for TTY locales.
 If LOCALE is nil, omitted, or `all', this will attempt to frob all
 font specifications for FACE to make them appear bold.  Similarly, if
 ([bold] . t)
 ([italic] . [bold-italic])
 ([bold-italic] . t))))
 (defun make-face-italic (face &optional locale)
-"Make the face italic, if possible.
+"Make FACE italic in LOCALE, if possible.
 This will attempt to make the font italic for X locales and will set
 the underline flag for TTY locales.
 See `make-face-bold' for the semantics of the LOCALE argument and
 for more specifics on exactly how this function works."
 (interactive (list (read-face-name "Make which face italic: ")))
 ([bold] . [bold-italic])
 ([italic] . t)
 ([bold-italic] . t))))
 (defun make-face-bold-italic (face &optional locale)
-"Make the face bold and italic, if possible.
+"Make FACE bold and italic in LOCALE, if possible.
 This will attempt to make the font bold-italic for X locales and will
 set the highlight and underline flags for TTY locales.
 See `make-face-bold' for the semantics of the LOCALE argument and
 for more specifics on exactly how this function works."
 (interactive (list (read-face-name "Make which face bold-italic: ")))
 ([bold] . [bold-italic])
 ([italic] . [bold-italic])
 ([bold-italic] . t))))
 (defun make-face-unbold (face &optional locale)
-"Make the face non-bold, if possible.
+"Make FACE non-bold in LOCALE, if possible.
 This will attempt to make the font non-bold for X locales and will
 unset the highlight flag for TTY locales.
 See `make-face-bold' for the semantics of the LOCALE argument and
 for more specifics on exactly how this function works."
 (interactive (list (read-face-name "Make which face non-bold: ")))
 ([bold] . [default])
 ([italic] . t)
 ([bold-italic] . [italic]))))
 (defun make-face-unitalic (face &optional locale)
-"Make the face non-italic, if possible.
+"Make FACE non-italic in LOCALE, if possible.
 This will attempt to make the font non-italic for X locales and will
 unset the underline flag for TTY locales.
 See `make-face-bold' for the semantics of the LOCALE argument and
 for more specifics on exactly how this function works."
 (interactive (list (read-face-name "Make which face non-italic: ")))
 ;; Why do the following two functions lose so badly in so many
 ;; circumstances?
 (defun make-face-smaller (face &optional locale)
-"Make the font of the given face be smaller, if possible.
+"Make the font of FACE be smaller, if possible.
 LOCALE works as in `make-face-bold' et al., but the ``inheriting-
 from-the-bold-face'' operations described there are not done
 because they don't make sense in this context."
 (interactive (list (read-face-name "Shrink which face: ")))
 ;; handle X specific entries
 (frob-face-property face 'font 'x-find-smaller-font locale))
 (when (featurep 'mswindows)
 (frob-face-property face 'font 'mswindows-find-smaller-font locale)))
 (defun make-face-larger (face &optional locale)
-"Make the font of the given face be larger, if possible.
+"Make the font of FACE be larger, if possible.
 See `make-face-smaller' for the semantics of the LOCALE argument."
 (interactive (list (read-face-name "Enlarge which face: ")))
 ;; handle X specific entries
 (when (featurep 'x)
 (frob-face-property face 'font 'x-find-larger-font locale))
 ;;; Convenience functions
 (defun face-ascent (face &optional domain charset)
-"Return the ascent of a face.
+"Return the ascent of FACE in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (font-ascent (face-font face) domain charset))
 (defun face-descent (face &optional domain charset)
-"Return the descent of a face.
+"Return the descent of FACE in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (font-descent (face-font face) domain charset))
 (defun face-width (face &optional domain charset)
-"Return the width of a face.
+"Return the width of FACE in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (font-width (face-font face) domain charset))
 (defun face-height (face &optional domain charset)
-"Return the height of a face.
+"Return the height of FACE in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (+ (face-ascent face domain charset) (face-descent face domain charset)))
 (defun face-proportional-p (face &optional domain charset)
-"Return whether FACE is proportional.
+"Return t if FACE is proportional in DOMAIN.
 See `face-property-instance' for the semantics of the DOMAIN argument."
 (font-proportional-p (face-font face) domain charset))
 ;; Functions that used to be in cus-face.el, but logically go here.
 "*The brightness of the background.
 Set this to the symbol dark if your background color is dark, light if
 your background is light, or nil (default) if you want Emacs to
 examine the brightness for you."
 :group 'faces
 :type '(choice (choice-item dark)
 		 (choice-item light)
 		 (choice-item :tag "Auto" nil)))
 ;; The old variable that many people still have in .emacs files.
 (define-obsolete-variable-alias 'custom-background-mode
 	(setq spec nil)))))
 (defvar default-custom-frame-properties nil
 "The frame properties used for the global faces.
 Frames not matching these propertiess should have frame local faces.
 The value should be nil, if uninitialized, or a plist otherwise.
 See `defface' for a list of valid keys and values for the plist.")
 (defun get-custom-frame-properties (&optional frame)
 "Return a plist with the frame properties of FRAME used by custom.
 If FRAME is nil, return the default frame properties."
 	;;(default-custom-frame-properties)
 	(t
 	 (setq default-custom-frame-properties
 	       (extract-custom-frame-properties (selected-frame))))))
-(defun face-spec-set-match-display (display frame)
+(defun face-spec-set-match-display (display &optional frame)
-"Non-nil iff DISPLAY matches FRAME.
+"Return non-nil if DISPLAY matches FRAME.
 DISPLAY is part of a spec such as can be used in `defface'.
-If FRAME is nil, the current FRAME is used."
+If FRAME is nil or omitted, the selected frame is used."
 (if (eq display t)
 t
 (let* ((props (get-custom-frame-properties frame))
 	   (type (plist-get props 'type))
 	   (class (plist-get props 'class))
 	      (face-display-set symbol spec frame))))
 	(face-list)))
 (defun custom-initialize-frame (frame)
 "Initialize frame-local custom faces for FRAME if necessary."
 (unless (equal (get-custom-frame-properties)
 		 (get-custom-frame-properties frame))
 (initialize-custom-faces frame)))
 (defun make-empty-face (name &optional doc-string temporary)
 ;; For instance, the definition of `bold' should be something like
 ;; (defface bold ((t (:bold t))) "Bold text.") -- and `:bold t' should
 ;; make sure that everything works properly.
 (defun init-other-random-faces (device)
-"Initializes the colors and fonts of the bold, italic, bold-italic,
+"Initialize the colors and fonts of the bold, italic, bold-italic,
 zmacs-region, list-mode-item-selected, highlight, primary-selection,
 secondary-selection, and isearch faces when each device is created.  If
 you want to add code to do stuff like this, use the create-device-hook."
 ;; try to make 'bold look different from the default on this device.
 ;; Similar for italic.
 ;; It's unreasonable to expect to be able to make a font italic all
 ;; the time.  For many languages, italic is an alien concept.
 ;; Basically, because italic is not a globally meaningful concept,
 ;; the use of the italic face should really be oboleted.
 ;; I disagree with above.  In many languages, the concept of capital
 ;; letters is just as alien, and yet we use them.  Italic is here to
 ;; stay.  -hniksic
 ;; In a Solaris Japanese environment, there just aren't any italic
 			 nil 'append))
 )
 ;; New function with 20.1, suggested by Per Abrahamsen, coded by Kyle Jones.
 (defun set-face-stipple (face pixmap &optional frame)
-"Change the stipple pixmap of face FACE to PIXMAP.
+"Change the stipple pixmap of FACE to PIXMAP.
 This is an Emacs compatibility function; consider using
 set-face-background-pixmap instead.
 PIXMAP should be a string, the name of a file of pixmap data.
 The directories listed in the `x-bitmap-file-path' variable are searched.

Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 272:c5d627a313b1 r21-0b34