;ELC   
;;; compiled by jwz@thalidomide on Sun May 15 00:45:28 1994
;;; from file /th/jwz/emacs19/lisp/prim/faces.el
;;; emacs version 19.10 Lucid (beta23).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(fset 'face-font-name #[(face &optional screen) "А	\n\"‰­ѓД!)‡" [face-font face screen f font-name] 4 "\
Returns the font name of the given face, or nil if it is unspecified."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM‡" [set-face-2 #[(face name value screen) ";«·	В=?­Ѓ	Д=«‡Е	\"ЄўЖ=«‡З	\"Є–И=«‡З	\"ЄЉЙ=«…К	\")В	¬ЁМ ‰«”ОП!@$€A‰¬lСТВ\"#€)ЄЉСТ	\"#€ТВ\"Д=«ѓФЄЎЖ=«ѓХЄ™И=«ѓЦЄ‘Й=«ѓЧЄ‰Ш=«ѓЩЄЃЪ!¬‡С#€*‡" [value screen t name font make-font foreground make-pixel background background-pixmap make-pixmap inhibit-quit screen-list screens set-face-2 face-name face set-face-attribute-internal get-face def face-font face-foreground face-background face-background-pixmap underline face-underline-p "internal error in set-face-2"] 6] set-face-1 #[(face name value ignored-index screen) "А	\n$‡" [set-face-2 face name value screen] 5] read-face-name #[(prompt) "ААGВU«ЋГЕЖЗ \"АИ$‰ЄmЙ	!)‡" [nil face 0 completing-read prompt mapcar #[(x) "А	!C‡" [symbol-name x] 2] list-faces t intern] 6] face-interactive #[(what &optional bool) "АБ\nP!ДЕЖ\n\"!И!­ЌЙ \"®…КЙ \"\n«ЌМЕНО!#!Є°ПЕР\nО!#С\n!«†Т\n!ЄљУ\n!«†Ф\n!ЄЋХ\n!«†Ц\n!Є‚\n\"Шљ?­‚,D‡" [intern "face-" what fn read-face-name format "Set %s of face: " face fboundp selected-screen default bool y-or-n-p "Should face %s be %s? " symbol-name read-string "Set %s of face %s to: " fontp font-name pixelp pixel-name pixmapp pixmap-file-name value ""] 6]] 2)
(fset 'set-face-font #[(face font &optional screen) "А	В\n$‡" [set-face-2 face font screen] 5 "\
Change the font of the given face.
The font should be a string, the name string, the name of the font, or a
 font object as returned by `make-font'.
If the optional SCREEN argument is provided, this face will be changed only
 in that screen; otherwise it will be changed in all screens." (face-interactive "font")])
(fset 'set-face-foreground #[(face color &optional screen) "А	В$‡" [set-face-2 face foreground color screen] 5 "\
Change the foreground color of the given face.
The color should be a string, the name of a color, or a `pixel' object
 as returned by `make-pixel'.
If the optional SCREEN argument is provided, this face will be changed only
 in that screen; otherwise it will be changed in all screens." (face-interactive "foreground")])
(fset 'set-face-background #[(face color &optional screen) "А	В$‡" [set-face-2 face background color screen] 5 "\
Change the background color of the given face.
The color should be a string, the name of a color, or a `pixel' object
 as returned by `make-pixel'.
If the optional SCREEN argument is provided, this face will be changed only
in that screen; otherwise it will be changed in all screens." (face-interactive "background")])
(fset 'set-face-background-pixmap #[(face name &optional screen) "А	В$‡" [set-face-2 face background-pixmap name screen] 5 "\
Change the background pixmap of the given face.  
The pixmap name should be a string, the name of a file of pixmap data.  
The directories listed in the x-bitmap-file-path variable will be searched.
The bitmap may also be a list of the form (width height data) where width and
 height are the size in pixels, and data is a string, containing the raw bits
 of the bitmap.  
If the optional SCREEN argument is provided, this face will be changed only
in that screen; otherwise it will be changed in all screens." (face-interactive "background-pixmap")])
(fset 'set-face-underline-p #[(face underline-p &optional screen) "А	В$‡" [set-face-2 face underline underline-p screen] 5 "\
Change whether the given face is underlined.  
If the optional SCREEN argument is provided, this face will be changed only
in that screen; otherwise it will be changed in all screens." (face-interactive "underline-p" "underlined")])
(fset 'copy-face #[(old-face new-name &optional screen) "А	\n\"ГЕ\n\"®„З!\n¬ўЙ ‰\n«‘Л	\n@#€\nA‰\n¬oЛ	Г#€)ЄІМН	\n\"\n#€ОП	\n\"\n#€РС	\n\"\n#€ТУ	\n\"\n#€ФХ	\n\"\n#€*‡" [get-face old-face screen t inhibit-quit find-face new-name make-face new-face screen-list screens copy-face set-face-font face-font set-face-foreground face-foreground set-face-background face-background set-face-background-pixmap face-background-pixmap set-face-underline-p face-underline-p] 6 "\
Defines and returns a new face which is a copy of an existing one,
or makes an already-existing face be exactly like another."])
(fset 'face-equal #[(face1 face2 &optional screen) "А	\n\"А\n\"Д	\n\"Д\n\"љ­џЕ	\n\"Е\n\"љ­”Ж	\n\"Ж\n\"љ­‰З	\n\"З\n\"љ‡" [get-face face1 screen face2 face-foreground face-background face-font face-background-pixmap] 4 "\
True if the given faces will display in the the same way."])
(fset 'face-differs-from-default-p #[(face &optional screen) "АБ\n\"А\n\"Д	\n\"Д\n\"љ¬‡Д\n\"?­їЕ	\n\"Е\n\"љ¬‡Е\n\"?­­Ж	\n\"Ж\n\"љ¬‡Ж\n\"?­›З	\n\"З\n\"љ¬‡З\n\"?­‰И	\n\"И\n\"љ)?‡" [get-face default screen face face-foreground face-background face-font face-background-pixmap face-underline-p] 4 "\
True if the given face will display differently from the default face.
A face is considered to be ``the same'' as the default face if it is 
actually specified in the same way (equivalent fonts, etc) or if it is 
fully unspecified, and thus will inherit the attributes of any face it 
is displayed on top of."])
(fset 'invert-face #[(face &optional screen) "А	\n\"Г	\n\"®„ГД\n\"Е	\n\"®„ЕД\n\"И	\n#€Й	\n#€*	‡" [get-face face screen face-foreground default face-background bg fg set-face-foreground set-face-background] 4 "\
Swap the foreground and background colors of the given face.
If the face doesn't specify both foreground and background, then
its foreground and background are set to the background and
foreground of the default face." (byte-code "АБВ!!C‡" [read-face-name gettext "Invert face: "] 3)])
(fset 'set-default-font #[(font) "АБ\n\"€АГ\n\"‡" [set-face-font default font modeline] 3 "\
Sets the font used for normal text and the modeline to FONT in all screens.
For finer-grained control, use set-face-font." (byte-code "АБВ!ГДЕЖ \"!\"C‡" [read-string gettext "Set default font: " font-name face-font default selected-screen] 6)])
(fset 'try-face-font #[(face font &optional screen) ";«…Б\n\"Г\n#‡" [font try-font screen set-face-font face] 4 "\
Like set-face-font, but returns nil on failure instead of an error."])
(byte-code "АБM€ВГ!¬ ДГ!€ДЕ!€ДЖ!€ДЗ!€ДИ!€ДЙ!€ДК!€ДЛ!€А‡" [make-screen-initial-faces #[(screen) "АБ\n\"АГ\n\"Д\n!Е=«•Ж И@\n\"€A)Й\n!€К\n\"¬’ЛМ	\n\"\n#€НО	\n\"\n#€ПР‰­ЦА@\n\"У\n\"¬ђУ	\n\"«ЉФУ	\n\"\n#€М\n\"¬ђМ	\n\"«ЉНМ	\n\"\n#€О\n\"¬ђО	\n\"«ЉЛО	\n\"\n#€A‰¬+Р,‡" [get-face default screen modeline screenp x list-faces faces x-resource-face x-initialize-screen-faces face-differs-from-default-p set-face-foreground face-background set-face-background face-foreground (modeline left-margin right-margin) nil face rest face-font set-face-font] 6] find-face default make-face modeline highlight left-margin right-margin bold italic bold-italic] 2)