;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:43:17 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/faces.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; 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.29"))) (error "`faces.el' was compiled for Emacs 19.29 or later")) (byte-code "!\n‚  B" [featurep mule 10 8 face-vector-length current-load-list] 2) (defalias 'internal-facep #[(x) " ! G\nU H=" [vectorp x face-vector-length 0 face] 2]) (put (quote internal-facep) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@58 Return t if X is a face name or an internal face vector. (defalias 'facep #[(x) "!G\nUH=)#9$ $Ƈ" [x vectorp face-vector-length 0 face global-face-data t] 2 (#$ . 763)]) (defalias 'internal-check-face '(macro . #[(face) "\nD\nEEE" [or internal-facep face signal (quote wrong-type-argument) list (quote internal-facep)] 7])) #@31 Return the name of face FACE. (defalias 'face-name #[(face) " !H" [internal-get-face face 1] 2 (#$ . 1123)]) #@45 Return the internal ID number of face FACE. (defalias 'face-id #[(face) " !H" [internal-get-face face 2] 2 (#$ . 1241)]) #@367 Return the font name of face FACE, or nil if it is unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). The font default for a face is either nil, or a list of the form (bold), (italic) or (bold italic). If FRAME is omitted or nil, use the selected frame. (defalias 'face-font #[(face &optional frame) " \n\"H" [internal-get-face face frame 3] 3 (#$ . 1372)]) #@269 Return the foreground color name of face FACE, or nil if unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-foreground #[(face &optional frame) " \n\"H" [internal-get-face face frame 4] 3 (#$ . 1852)]) #@269 Return the background color name of face FACE, or nil if unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-background #[(face &optional frame) " \n\"H" [internal-get-face face frame 5] 3 (#$ . 2240)]) #@267 Return the stipple pixmap name of face FACE, or nil if unspecified. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-stipple #[(face &optional frame) " \n\"H" [internal-get-face face frame 6] 3 (#$ . 2628)]) (defalias (quote face-background-pixmap) (quote face-stipple)) #@236 Return t if face FACE is underlined. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-underline-p #[(face &optional frame) " \n\"H" [internal-get-face face frame 7] 3 (#$ . 3074)]) #@235 Return t if face FACE is boldfaced. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-bold-p #[(face &optional frame) " \n\"H" [internal-get-face face frame 8] 3 (#$ . 3430)]) (put (quote face-bold-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@237 Return t if face FACE is italicfaced. If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame. (defalias 'face-italic-p #[(face &optional frame) " \n\"H" [internal-get-face face frame 9] 3 (#$ . 3864)]) (put (quote face-italic-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@150 Change the font of face FACE to FONT (a string). If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-font #[(face font &optional frame) "!\f\n=\f;\f# \f%" [featurep mule window-system x font x-resolve-font-name default frame internal-set-face-1 face 3] 6 (#$ . 4304) (internal-face-interactive "font")]) #@163 Change the foreground color of face FACE to COLOR (a string). If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-foreground #[(face color &optional frame) " %" [internal-set-face-1 face foreground color 4 frame] 6 (#$ . 4706) (internal-face-interactive "foreground")]) #@223 Default stipple pattern used on monochrome displays. This stipple pattern is used on monochrome displays instead of shades of gray for a face background color. See `set-face-stipple' for possible values for this variable. (defvar face-default-stipple "gray3" (#$ . 5057)) #@130 Return t if COLOR is a shade of gray (or white or black). FRAME specifies the frame and thus the display for interpreting COLOR. (defalias 'face-color-gray-p #[(color &optional frame) " \n\"@ A@ 8 R\f Z!\f!] !]ʥWR Z! !]!]ʥWR\fZ!!]\f!]ʥW," [x-color-values color frame values r g 2 b abs 1 20] 5 (#$ . 5336)]) #@163 Change the background color of face FACE to COLOR (a string). If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-background #[(face color &optional frame) "=\n\n##H  >!\n @# A *\n#\n)\n%" [frame t color face-color-supported-p nil set-face-stipple face face-default-stipple frame-list frames set-face-background face-name internal-set-face-1 background 5] 7 (#$ . 5689) (internal-face-interactive "background")]) #@467 Change the stipple pixmap of face FACE to PIXMAP. 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. Alternatively, PIXMAP may 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 FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-stipple #[(face pixmap &optional frame) " %" [internal-set-face-1 face background-pixmap pixmap 6 frame] 6 (#$ . 6234) (internal-face-interactive "stipple")]) (defalias (quote set-face-background-pixmap) (quote set-face-stipple)) #@176 Specify whether face FACE is underlined. (Yes if UNDERLINE-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-underline-p #[(face underline-p &optional frame) " %" [internal-set-face-1 face underline underline-p 7 frame] 6 (#$ . 6963) (internal-face-interactive "underline-p" "underlined")]) (defalias 'modify-face-read-string #[(face default name alist) " \f $\f #\"ɚ#ʂ0˚. 0)" [completing-read default format "Set face %s %s (default %s): " face name "Set face %s %s: " alist value "none" nil ""] 7]) #@657 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, in italic, and underlined, respectively. If neither nil or t, means do not change the display attribute corresponding to that arg. If called interactively, prompts for a face name and face attributes. (defalias 'modify-face #[(face foreground background stipple bold-p italic-p underline-p &optional frame) "ďƏ=! \n#0=0 \n# =B \n#Q =Q \n#>a \n#tg " [nil (byte-code "\n \f$" [face-try-color-list set-face-foreground face foreground frame] 5) ((error)) (byte-code "\n \f$" [face-try-color-list set-face-background face background frame] 5) ((error)) (set-face-stipple face stipple frame) ((error)) bold-p make-face-unbold face frame t make-face-bold italic-p make-face-unitalic make-face-italic underline-p (nil t) set-face-underline-p redraw-display] 4 (#$ . 7596) (let* ((completion-ignore-case t) (face (symbol-name (read-face-name "Modify face: "))) (colors (mapcar (quote list) x-colors)) (stipples (mapcar (quote list) (apply (quote nconc) (mapcar (quote directory-files) x-bitmap-file-path)))) (foreground (modify-face-read-string face (face-foreground (intern face)) "foreground" colors)) (background (modify-face-read-string face (face-background (intern face)) "background" colors)) (stipple (modify-face-read-string face (face-stipple (intern face)) "stipple" stipples)) (bold-p (y-or-n-p (concat "Set face " face " bold "))) (italic-p (y-or-n-p (concat "Set face " face " italic "))) (underline-p (y-or-n-p (concat "Set face " face " underline "))) (all-frames-p (y-or-n-p (concat "Modify face " face " in all frames ")))) (message "Face %s: %s" face (mapconcat (quote identity) (delq nil (list (and foreground (concat (downcase foreground) " foreground")) (and background (concat (downcase background) " background")) (and stipple (concat (downcase stipple) " stipple")) (and bold-p "bold") (and italic-p "italic") (and underline-p "underline"))) ", ")) (list (intern face) foreground background stipple bold-p italic-p underline-p (if all-frames-p nil (selected-frame))))]) #@170 Specify whether face FACE is boldfaced. (Yes if BOLD-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-bold-p #[(face bold-p &optional frame) " %" [internal-set-face-1 face bold bold-p 8 frame] 6 (#$ . 10120) (internal-face-interactive "bold-p" "boldfaced")]) (put (quote set-face-bold-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@174 Specify whether face FACE is italicfaced. (Yes if ITALIC-P is non-nil.) If the optional FRAME argument is provided, change only in that frame; otherwise change each frame. (defalias 'set-face-italic-p #[(face italic-p &optional frame) " %" [internal-set-face-1 face italic italic-p 9 frame] 6 (#$ . 10567) (internal-face-interactive "italic-p" "italicfaced")]) (put (quote set-face-italic-p) (quote byte-optimizer) (quote byte-compile-inline-expand)) #@200 Internal data for face support functions. Not for external use. This is an alist associating face names with the default values for their parameters. Newly created frames get their data from here. (defvar global-face-data nil (#$ . 11032)) #@43 Returns a list of all defined face names. (defalias 'face-list #[nil "\n\"" [mapcar car global-face-data] 3 (#$ . 11280)]) #@310 Retrieve the face named NAME. Return nil if there is no such face. If the optional argument FRAME is given, this gets the face NAME for that frame; otherwise, it uses the selected frame. If FRAME is the symbol t, then the global, non-frame face is returned. If NAME is already a face, it is simply returned. (defalias 'internal-find-face #[(name &optional frame) "=\n9\n!\n9*\n=\f'& !A\n!7\nD\"\n" [frame t name face-name global-face-data frame-face-alist selected-frame internal-facep signal wrong-type-argument] 4 (#$ . 11413)]) #@296 Retrieve the face named NAME; error if there is none. If the optional argument FRAME is given, this gets the face NAME for that frame; otherwise, it uses the selected frame. If FRAME is the symbol t, then the global, non-frame face is returned. If NAME is already a face, it is simply returned. (defalias 'internal-get-face #[(name &optional frame) " \n\"%  ! G U H=)% D\"" [internal-find-face name frame x vectorp face-vector-length 0 face signal wrong-type-argument internal-facep] 4 (#$ . 11986)]) (defalias 'internal-set-face-1 #[(face name value index frame) "\nA #! \n\f@%\fA 9/3!\"\n I )]\n=S! \n$\n\"\n I)" [t inhibit-quit frame frame-list frames internal-set-face-1 face-name face name value index internal-get-face set-face-attribute-internal face-id] 7]) (defalias 'read-face-name #[(prompt) "GU\f \"$ !)" [nil face 0 completing-read prompt mapcar #[(x) " !C" [symbol-name x] 2] face-list t intern] 6]) (defalias 'internal-face-interactive #[(what &optional bool) "\nP!\nQP! !(  \"( \"\f ? ! Ұ!L !R\f\" ך?Z-D" [intern "face-" what fn "Set " " of face" prompt read-face-name ": " face fboundp selected-frame default bool y-or-n-p "Should face " symbol-name " be " "? " read-string " " " to: " value ""] 6]) #@161 Define a new FACE on all frames. You can modify the font, color, etc of this face with the set-face- functions. If the face already exists, it is unmodified. (defalias 'make-face #[(name) " !p \"I I     !  I J @ !B @!B\" A 0 BB+=a=e !!o !) " [internal-find-face name make-vector face-vector-length nil face 0 1 frame-list frames t inhibit-quit internal-next-face-id id make-face-internal 2 set-frame-face-alist copy-sequence frame-face-alist global-face-data window-system x win32 make-face-x-resource-internal fboundp facemenu-add-new-face] 6 (#$ . 13366) "SMake face: "]) (defalias 'make-face-x-resource-internal #[(face &optional frame set-anyway) "3 /\n@!=\n@!=(!\n@ #\nA )!\"!!\f\fP\"W W!\fP\"l l!\fP\" !\fP\"\fP\" !\fP\"\"\"㝂 !)%菈ꏈ쏈% %#." [frame frame-list frames framep x win32 make-face-x-resource-internal face-name face set-anyway internal-get-face symbol-name name x-get-resource ".attributeFont" "Face.AttributeFont" face-font fn ".attributeForeground" "Face.AttributeForeground" face-foreground fg ".attributeBackground" "Face.AttributeBackground" face-background bg ".attributeStipple" "Face.AttributeStipple" ".attributeBackgroundPixmap" "Face.AttributeBackgroundPixmap" face-stipple bgp ".attributeUnderline" "Face.AttributeUnderline" resource ("on" "true") face-underline-p ulp nil (byte-code " !.Ę !.Ƙ' !.  #‡" [fn "italic" make-face-italic face "bold" make-face-bold "bold-italic" make-face-bold-italic set-face-font frame] 4) ((error (byte-code "\f#\f#‡" [fn ("italic" "bold" "bold-italic") message "no %s version found for face `%s'" name "font `%s' not found for face `%s'"] 4))) (set-face-foreground face fg frame) ((error (message "color `%s' not allocated for face `%s'" fg name))) (set-face-background face bg frame) ((error (message "color `%s' not allocated for face `%s'" bg name))) (set-face-stipple face bgp frame) ((error (message "pixmap `%s' not found for face `%s'" bgp name))) set-face-underline-p] 5]) #@593 Define a face just like OLD-FACE, with name NEW-FACE. If NEW-FACE already exists as a face, it is modified to be like OLD-FACE. If it doesn't already exist, it is created. If the optional argument FRAME is given as a frame, NEW-FACE is changed on FRAME only. If FRAME is t, the frame-independent default specification for OLD-FACE is copied to NEW-FACE. If FRAME is nil, copying is done for the frame-independent defaults and for each existing frame. If the optional fourth argument NEW-FRAME is given, copy the information from face OLD-FACE on frame FRAME to NEW-FACE on frame NEW-FRAME. (defalias 'copy-face #[(old-face new-face &optional frame new-frame) "  / # @# A#) \"\"B!Ώ \"# \"# \"# \"#!  \"H* %+  \"H* %+)" [new-frame frame t inhibit-quit frame-list frames copy-face old-face new-face internal-get-face internal-find-face make-face nil (byte-code " \f\" #" [set-face-font new-face face-font old-face frame new-frame] 5) ((error (set-face-font new-face nil new-frame))) set-face-foreground face-foreground set-face-background face-background set-face-stipple face-stipple set-face-underline-p face-underline-p featurep mule face 8 bold-p internal-set-face-1 bold 9 italic-p italic] 7 (#$ . 15616)]) #@60 True if the faces FACE1 and FACE2 display in the same way. (defalias 'face-equal #[(face1 face2 &optional frame) " \n\" \n\" \n\" \n\"C \n\" \n\"C \n\" \n\"C \n\" \n\"=C \n\" \n\"" [internal-get-face face1 frame face2 face-foreground face-background face-font face-underline-p face-stipple] 4 (#$ . 16982)]) #@468 True if face FACE displays differently from the default face, on FRAME. 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 inherits the attributes of any face it is displayed on top of. The optional argument FRAME specifies which frame to test; if FRAME is t, test the default for new frames. If FRAME is nil or omitted, test the selected frame. (defalias 'face-differs-from-default-p #[(face &optional frame) "\n\" \n\" \n\" \n\" \n\"? \n\" \n\"2 \n\"? \n\" \n\"F \n\"? \n\" \n\"Z \n\"? \n\" \n\"!? \n \n\"H* \n \n\"H* \n \n\"H* \n \n\"H*)?" [internal-get-face default frame face face-foreground face-background face-font face-stipple face-underline-p featurep mule 8 9] 4 (#$ . 17324)]) #@207 True if face FACE has some non-nil attribute. The optional argument FRAME specifies which frame to test; if FRAME is t, test the default for new frames. If FRAME is nil or omitted, test the selected frame. (defalias 'face-nontrivial-p #[(face &optional frame) " \n\" \n\"% \n\"% \n\"% \n\"% \n\"" [internal-get-face face frame face-foreground face-background face-font face-stipple face-underline-p] 3 (#$ . 18216)]) #@198 Swap the foreground and background colors of face FACE. If the face doesn't specify both foreground and background, then set its foreground and background to the default background and foreground. (defalias 'invert-face #[(face &optional frame) " \n\" \n\" \n\" ( \n# \n#L \n\"7\n!A\n# \n\"I\n!A\n#* " [internal-get-face face frame face-foreground face-background bg fg set-face-foreground set-face-background default background-color frame-parameters foreground-color] 6 (#$ . 18656) (list (read-face-name "Invert face: "))]) #@69 Like set-face-font, but returns nil on failure instead of an error. (defalias 'internal-try-face-font #[(face font &optional frame) "" [nil (set-face-font face font frame) ((error))] 3 (#$ . 19230)]) (byte-code "\nB\nB\nB\nB\nB \nB \nB \nBωщՉω !\"#$%&'&'%'#'!' '''''''''&'%'#'! '\"'Q'$'Q." [nil x-font-regexp current-load-list x-font-regexp-head x-font-regexp-weight x-font-regexp-slant 1 x-font-regexp-weight-subnum 2 x-font-regexp-slant-subnum 3 x-font-regexp-swidth-subnum 4 x-font-regexp-adstyle-subnum "[-?]" "[^-]+" "\\(bold\\|demibold\\|medium\\)" "\\([^-]*\\)" "\\([ior]\\)" "\\([^-]?\\)" "[0-9]+" "[0-9][0-9]+" "[cmp?*]" encoding registry avgwidth spacing resy resx pointsize pixelsize adstyle swidth slant\? slant weight\? weight family foundry - "\\`\\*?[-?*]" "\\*?\\'" "\\`[-?*]" "\\([-*?]\\|\\'\\)"] 29) #@288 Return a font name matching PATTERN. All wildcards in PATTERN become substantiated. If PATTERN is nil, return the name of the frame's base font, which never contains wildcards. Given optional arguments FACE and FRAME, return a font which is also the same size as FACE on FRAME, or fail. (defalias 'x-resolve-font-name #[(pattern &optional face frame) "9 !\n= a \n#\\W \"@!8!\\\"\\!N \"\\ #\\ \"@) !A" [face face-name frame t nil pattern x-list-fonts fonts string-match "\\*" face-font error "No matching fonts are the same height as the frame default font" "No matching fonts are the same height as face `%s'" "Height of font `%s' doesn't match the frame default font" "Height of font `%s' doesn't match face `%s'" "No fonts match `%s'" font frame-parameters selected-frame] 5 (#$ . 20195)]) (defalias 'x-frob-font-weight #[(font which) " \f\"%\fO\fO\fOR \f\"=\f̔O\f̕OQR \f\"R\f̔O\f̕OQ)" [t case-fold-search string-match x-font-regexp font 0 x-font-regexp-weight-subnum which x-font-regexp-adstyle-subnum "*" nil x-font-regexp-head 1 x-font-regexp-weight] 7]) (defalias 'x-frob-font-slant #[(font which) " \f\"%\fO\fO\fOR \f\"=\f̔O\f̕OQR \f\"R\fΔO\fΕOQ)" [t case-fold-search string-match x-font-regexp font 0 x-font-regexp-slant-subnum which x-font-regexp-adstyle-subnum "*" nil x-font-regexp-head 2 x-font-regexp-slant 1] 7]) #@94 Given an X font specification, make a bold version of it. If that can't be done, return nil. (defalias 'x-make-font-bold #[(font) " \"" [x-frob-font-weight font "bold"] 3 (#$ . 21695)]) #@98 Given an X font specification, make a demibold version of it. If that can't be done, return nil. (defalias 'x-make-font-demibold #[(font) " \"" [x-frob-font-weight font "demibold"] 3 (#$ . 21890)]) #@98 Given an X font specification, make a non-bold version of it. If that can't be done, return nil. (defalias 'x-make-font-unbold #[(font) " \"" [x-frob-font-weight font "medium"] 3 (#$ . 22097)]) #@97 Given an X font specification, make an italic version of it. If that can't be done, return nil. (defalias 'x-make-font-italic #[(font) " \"" [x-frob-font-slant font "i"] 3 (#$ . 22300)]) #@98 Given an X font specification, make an oblique version of it. If that can't be done, return nil. (defalias 'x-make-font-oblique #[(font) " \"" [x-frob-font-slant font "o"] 3 (#$ . 22496)]) #@100 Given an X font specification, make a non-italic version of it. If that can't be done, return nil. (defalias 'x-make-font-unitalic #[(font) " \"" [x-frob-font-slant font "r"] 3 (#$ . 22695)]) #@103 Make the font of the given face be bold, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-bold #[(face &optional frame noerror) "=! \"Ƃ# O   # K  @ # A 8) \" \"_ \" Ƃ# O   # K  @ # A 8) \" \"_ \"  @ # A +) \" \"R \"<\\n\"n!A} # \")" [frame t face-font face set-face-font (bold italic) nil font frame-list frames make-face-bold-italic noerror internal-get-face default frame-parameters make-face-bold-italic-internal error "No bold italic version of %S"] 5 (#$ . 24494) (list (read-face-name "Make which face bold-italic: "))]) (defalias 'make-face-bold-italic-internal #[(face frame font) "\f!*\f\n*\n!*\n * #\f!P\f\nP\n!P\n P #\f!v\f\nv\n!v\n v #\f!\f\n?\n!\n ? #*" [nil f3 f2 x-make-font-italic font x-make-font-bold internal-try-face-font face frame x-make-font-oblique x-make-font-demibold] 4]) #@107 Make the font of the given face be non-bold, if possible. If NOERROR is non-nil, return nil on failure. (defalias 'make-face-unbold #[(face &optional frame noerror) "= \"< \">#lj N   # J  @ # A 7) \" \"^ \"#lj N   # J  @ # A 7) \" \"^ \" @#$$$@@!$@A#)$A$* A )" [make-face default modeline highlight bold italic bold-italic region secondary-selection underline face-id region-face featurep mule window-system terminal-initialize-frame-faces frame-list t frame bold-p face internal-set-face-1 8 make-face-italic make-face-bold-italic make-face-bold set-face-background ("darkseagreen2" "green" t) ("gray" underline) ("paleturquoise" "green" t) (t) set-face-underline-p frames framep (t nil) global-face-data rest face-differs-from-default-p face-fill-in nil] 7]) (defalias 'x-create-frame-with-faces #[(&optional parameters) " A \nA\" C!  4 < BB \n #,T !g ! B!ڎ\" \n\"B)A!\"\"A$\"A&&B$BD\"$\"A&BC\"$\"A&BC\"$\"A&BC\"+N@A+@-\".I.@A!I.@A!I.)@@+#)@A#A[!cC\"-\"!:\";;!\"A\"\"@\"\"A_WBC:D:BEF!GH!IJBD\"+)" [name parameters default-frame-alist x-resource-name x-get-resource "geometry" "Geometry" res-geometry nil parsed x-parse-geometry top left (user-position . t) (user-size . t) append frame global-face-data x-create-frame visibility visibility-spec copy-alist faces success rest (visibility) ((byte-code "\n!" [success delete-frame frame] 2)) set-frame-face-alist reverse "reverseVideo" "ReverseVideo" resource ("on" "true") frame-parameters params foreground-color bg background-color fg modify-frame-parameters border-color mouse-color cursor-color global make-vector face-vector-length face 0 1 face-name 2 face-id face-fill-in make-face-x-resource-internal t make-frame-visible ".backgroundMode" "BackgroundMode" bg-mode bg-resource intern apply + x-color-values "white" 0.59999999999999998 dark light background-mode display-type x-display-color-p color x-display-grayscale-p grayscale mono] 7]) (defalias 'frame-update-faces #[(frame) "\na\n@@ \">  #>>  #YM  #YY  #*\nA**" [global-face-data faces rest face face-font t font bold italic set-face-font nil frame make-face-bold-italic make-face-bold make-face-italic] 5]) (defalias 'frame-update-face-colors #[(frame) "ď A)" [global-face-data faces nil (byte-code "@A@@ ! !\f<>\n\f\"\n\f\"\n\f\"*\n\f# \n \f#," [face-foreground data face-background face-font face-stipple stipple font background foreground set-face-underline-p face face-underline-p frame featurep mule nil internal-get-face 8 bold-p internal-set-face-1 bold face-try-color-list set-face-foreground set-face-background italic make-face-bold-italic make-face-bold make-face-italic set-face-font set-face-stipple] 7) ((error))] 3]) (defalias 'face-color-supported-p #[(frame color background-p) "%\n!% ĝ%  \n\"%\n!% \n\"" [window-system x-display-color-p frame color ("black" "white") background-p face-color-gray-p x-display-grayscale-p] 3]) (defalias 'face-try-color-list #[(function face colors frame) ";\n =#{ \n#= \n\" z ?z@>?\n@ =#rAL̏r@=[ \n\"r@=k \n#r @\n#A')" [colors face-color-supported-p frame function set-face-background face t invert-face nil done (t underline) (byte-code "@= \f\"'@= \f#' @\f#" [colors t invert-face face frame underline set-face-underline-p function done] 4) ((error)) underline set-face-underline-p] 6]) (defalias 'terminal-initialize-frame-faces #[(frame) "\n\"#!\n%+\"\n\"B\n%+\"\n\"a\n%+\"\n\"\"\n%+\"\n\"!\n\"!\n\"!\n\"\"" [face-differs-from-default-p highlight frame invert-face t nil bold-p face internal-set-face-1 bold 8 set-face-font "bold" italic italic-p 9 "italic" bold-italic set-face-underline-p region modeline secondary-selection underline] 6]) (byte-code " != != !" [framep selected-frame x win32 face-initialize provide faces] 2)