;ELC ;;; compiled by jwz@thalidomide on Wed May 25 21:54:38 1994 ;;; from file /u/jwz/emacs19/lisp/x11/x-faces.el ;;; emacs version 19.10 Lucid. ;;; 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.")) (byte-code " ΉӉ̉ !\"#$%$%#%!%%%%%%%%%%%!$%#%!% !$%#%!%%%%%!% %Q!%\"%Q!!!$%#%!%%! .!1" [nil x-font-regexp x-font-regexp-head x-font-regexp-head-2 x-font-regexp-weight x-font-regexp-slant x-font-regexp-pixel x-font-regexp-point x-font-regexp-foundry-and-family x-font-regexp-registry-and-encoding "[-?]" "[^-]*" "[^-]+" "\\(bold\\|demibold\\|medium\\|black\\)" "\\([^-]*\\)" "\\([ior]\\)" "\\([^-]?\\)" "\\(\\*\\|[0-9]+\\)" "\\(\\*\\|0\\|[0-9][0-9]+\\)" "\\([*0]\\|[0-9][0-9]+\\)" "[cmp?*]" encoding registry avgwidth spacing resy resx pointsize pixelsize adstyle swidth slant\? slant weight\? weight family foundry - purecopy "\\`\\*?[-?*]" "\\'" "\\`[-?*]" "\\([-*?]\\|\\'\\)" "[-?*]\\([0-9][0-9]?\\)[-?*]" "[-?*]\\([0-9][0-9]+\\)[-?*]" "\\(" "\\)" "\\)\\'" "\\`[0-9]+x[0-9]+\\'" x-loser-font-regexp] 30) (fset 'try-font #[(font &optional screen) "" [nil (byte-code "\n\"" [font make-font screen] 3) ((error))] 3 "\ Like `make-font', but returns nil if the font can't be loaded."]) (byte-code "MM" [x-frob-font-weight #[(font which) " ! ! Ç \" \" \" ɔO\n ɕOQ \" \nPÇ" [fontp font font-name nil string-match x-font-regexp x-font-regexp-head x-font-regexp-weight 0 1 which x-loser-font-regexp] 5] x-frob-font-slant #[(font which) " ! ! Ç \" \" ȔO ȕOQ\n \" ˔O ˕OQ \"  PÇ" [fontp font font-name nil string-match x-font-regexp x-font-regexp-head 0 2 which x-font-regexp-slant 1 x-loser-font-regexp] 5]] 2) (fset 'x-make-font-bold #[(font &optional screen) "\n\" \"\n\" \"" [try-font x-frob-font-weight font "bold" screen "black"] 4 "\ Given an X font specification, this attempts to make a `bold' font. If it fails, it returns nil."]) (fset 'x-make-font-demibold #[(font &optional screen) "\n\" \"" [try-font x-frob-font-weight font "demibold" screen] 4 "\ Given an X font specification, this attempts to make a `demibold' font. If it fails, it returns nil."]) (fset 'x-make-font-unbold #[(font &optional screen) "\n\" \"" [try-font x-frob-font-weight font "medium" screen] 4 "\ Given an X font specification, this attempts to make a non-bold font. If it fails, it returns nil."]) (fset 'x-make-font-italic #[(font &optional screen) "\n\" \"" [try-font x-frob-font-slant font "i" screen] 4 "\ Given an X font specification, this attempts to make an `italic' font. If it fails, it returns nil."]) (fset 'x-make-font-oblique #[(font &optional screen) "\n\" \"" [try-font x-frob-font-slant font "o" screen] 4 "\ Given an X font specification, this attempts to make an `italic' font. If it fails, it returns nil."]) (fset 'x-make-font-unitalic #[(font &optional screen) "\n\" \"" [try-font x-frob-font-slant font "r" screen] 4 "\ Given an X font specification, this attempts to make a non-italic font. If it fails, it returns nil."]) (fset 'x-font-size #[(font) " ! ! \" \" ǔǕO! \" \" ʔʕO!ˇ" [fontp font font-name string-match x-font-regexp x-font-regexp-head-2 string-to-int 6 x-font-regexp-pixel x-font-regexp-point 1 nil] 4 "\ Returns the nominal size of the given font. This is done by parsing its name, so it's likely to lose. X fonts can be specified (by the user) in either pixels or 10ths of points, and this returns the first one it finds, so you have to decide which units the returned value is measured in yourself..."]) (byte-code "MM" [x-available-font-sizes #[(font &optional screen) " ! ! \" ƔO ƕȔO ȕɔO ɕŕO\n \" ƔO ƕȔO ȕŕO \" ̔O ̕ŕOQ \"\"\"\"" [fontp font font-name string-match x-font-regexp 0 5 "*" 6 9 x-font-regexp-head-2 "[-?*]\\([0-9]+\\)[-?*]" 1 sort delq nil mapcar #[(name) " \n\"\nĔĕO!\nŔŕO!\nE" [string-match x-font-regexp name string-to-int 5 6] 5] x-list-fonts screen #[(x y) "A@ A@U@ @WA@ A@W" [x y] 2]] 9] x-frob-font-size #[(font up-p screen) ";\n\"!\n\"Ƃ @@U @A@U @8 \n \"\"ДЕO! V! \n\"\n\"\nҔO\nҕДO ֪\\!\nЕǕO* Ɖ@88@@AC8+)" [font make-font screen font-truename x-available-font-sizes available nil 0 2 old-size name string-match x-font-regexp error "can't parse %S" string-to-int 6 "font truename has 0 pointsize?" 5 "*" int-to-string up-p 10 -10 result last rest] 8]] 2) (fset 'x-find-smaller-font #[(font &optional screen) " # \")" [x-frob-font-size font nil screen name make-font] 5 "\ Loads a new, slightly smaller version of the given font (or font name). Returns the font if it succeeds, nil otherwise. If scalable fonts are available, this returns a font which is 1 point smaller. Otherwise, it returns the next smaller version of this font that is defined."]) (fset 'x-find-larger-font #[(font &optional screen) " # \")" [x-frob-font-size font t screen name make-font] 5 "\ Loads a new, slightly larger version of the given font (or font name). Returns the font if it succeeds, nil otherwise. If scalable fonts are available, this returns a font which is 1 point larger. Otherwise, it returns the next larger version of this font that is defined."]) (fset 'make-face-bold #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"\n\n\n\"\n\n\"\n \n\n#) ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-bold get-face font x-make-font-bold x-make-font-demibold set-face-font font-name f] 5 "\ Make the font of the given face be bold, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Make which face bold: "] 2)]) (fset 'make-face-italic #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"\n\n\n\"\n\n\"\n \n\n#) ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-italic get-face font x-make-font-italic x-make-font-oblique set-face-font font-name f] 5 "\ Make the font of the given face be italic, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Make which face italic: "] 2)]) (fset 'make-face-bold-italic #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"ʉ    \"    \"    \n\" \"    \"    \n\" \"    \"    \n\" \"   ? \"   ? \n\"  \n#+ ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-bold-italic get-face nil f3 f2 font x-frob-font-slant "i" x-frob-font-weight "bold" try-font "o" "demibold" set-face-font font-name f] 5 "\ Make the font of the given face be bold and italic, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Make which face bold-italic: "] 2)]) (fset 'make-face-unbold #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"\n\"  \n#) ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-unbold get-face x-make-font-unbold font set-face-font font-name f] 5 "\ Make the font of the given face be non-bold, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Make which face non-bold: "] 2)]) (fset 'make-face-unitalic #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"\n\"  \n#) ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-unitalic get-face x-make-font-unitalic font set-face-font font-name f] 5 "\ Make the font of the given face be non-italic, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Make which face non-italic: "] 2)]) (fset 'make-face-smaller #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"\n\"  \n#) ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-smaller get-face x-find-smaller-font font set-face-font font-truename f] 5 "\ Make the font of the given face be smaller, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Shrink which face: "] 2)]) (fset 'make-face-larger #[(face &optional screen) " \n\" \"\n\"\n  @\"Aq) \n\" \n\" \"\n\"\n\"  \n#) ! \n\" !*?" [face-font face screen t default ofont screen-list screens make-face-larger get-face x-find-larger-font font set-face-font font-truename f] 5 "\ Make the font of the given face be larger, if possible. Returns nil on failure." (byte-code "!C" [read-face-name "Enlarge which face: "] 2)]) (fset 'x-grayscale-display-p #[(&optional screen) " !V !>" [x-display-planes screen 1 x-display-visual-class (StaticGray GrayScale)] 2]) (fset 'x-color-display-p #[(&optional screen) " !V !>" [x-display-planes screen 1 x-display-visual-class (StaticColor PseudoColor TrueColor DirectColor)] 2 "\ Returns t if the X display of the given screen supports color."]) (byte-code "!!!!!DMMM" [boundp xpm-color-symbols provide xpm featurep purecopy ("foreground" (face-foreground 'default)) ("background" (face-background 'default)) x-resource-face #[(face &optional screen set-anyway) "  !\n@#\nAp) !\" !!  P$ ! P$ ! P$ ! P$ ! P$ !C != !$ !$ !$ꏈ쏈   @#. " [screen screen-list screens x-resource-face face-name face set-anyway get-face symbol-name name x-get-resource ".attributeFont" "Face.AttributeFont" string face-font fn ".attributeForeground" "Face.AttributeForeground" face-foreground fg ".attributeBackground" "Face.AttributeBackground" face-background bg ".attributeBackgroundPixmap" "Face.AttributeBackgroundPixmap" face-background-pixmap bgp ".attributeUnderline" "Face.AttributeUnderline" boolean face-underline-p ulp default "font" "Font" "foreground" "Foreground" "background" "Background" nil (set-face-font face fn screen) ((error (message "font %s not found for face %s" fn name))) (set-face-foreground face fg screen) ((error (message "color %s not allocated for face %s" fg name))) (set-face-background face bg screen) ((error (message "color %s not allocated for face %s" bg name))) (set-face-background-pixmap face bgp screen) ((error (message "pixmap %s not found for face %s" bgp name))) set-face-underline-p] 6] x-initialize-screen-faces #[(screen) "  @ \" At) \" \" \" \" \" \" \" \" \" \" \" \" \" \" \" # \" \"!ۚ!ܚ # # # #* $@ \" \" # \" \" # \" \"剉&'( ! !+" [list-faces faces x-resource-face screen face-font default set-face-font try-font "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*" "-*-courier-*-r-*-*-*-120-*-*-*-*-iso8859-*" "-*-*-medium-r-*-*-*-120-*-*-m-*-iso8859-*" "-*-*-medium-r-*-*-*-120-*-*-c-*-iso8859-*" "-*-*-*-r-*-*-*-120-*-*-m-*-iso8859-*" "-*-*-*-r-*-*-*-120-*-*-c-*-iso8859-*" "-*-*-*-r-*-*-*-120-*-*-*-*-iso8859-*" "-*-*-medium-r-*-*-*-120-*-*-m-*-*-*" "-*-*-medium-r-*-*-*-120-*-*-c-*-*-*" "-*-*-*-r-*-*-*-120-*-*-m-*-*-*" "-*-*-*-r-*-*-*-120-*-*-c-*-*-*" "-*-*-*-r-*-*-*-120-*-*-*-*-*-*" "-*-*-*-*-*-*-*-120-*-*-*-*-*-*" "*" face-foreground face-background bg fg pixel-name "white" "black" set-face-foreground set-face-background x-get-resource "reverseVideo" "ReverseVideo" boolean modeline invert-face nil debug-on-error stack-trace-on-error pre-display-buffer-function x-initialize-other-random-faces x-initialize-pointer-shape] 6] x-complain-about-font #[(face) "9! \"Ȫ!%\"" [face symbol-name princ format "%s: couldn't deduce %s %s version of %S\n" invocation-name string-match "\\`[aeiouAEIOU]" "an" "a" face-font-name default external-debugging-output] 8]] 3) (fset 'x-initialize-other-random-faces #[(screen) "\n\"\n\"\n\"!\n\"\n\"\n\"!\n\"\n\"\n\"\n\"\n\"\n\"!!!!!\n\"я\n\"ӏ\n\"Տ\n\" ُ\n\"\n\"" [face-differs-from-default-p bold screen make-face-bold make-face-unbold x-complain-about-font italic make-face-italic bold-italic make-face-bold-italic find-face primary-selection make-face secondary-selection highlight nil (byte-code " Ï#" [x-color-display-p nil (byte-code " #" [set-face-background highlight "darkseagreen2" screen] 4) ((error (byte-code " #" [set-face-background highlight "green" screen] 4))) set-face-background-pixmap highlight "gray1" screen] 4) ((error (byte-code "\n\"" [invert-face highlight screen] 3))) (byte-code " # #" [x-color-display-p set-face-background primary-selection "gray" screen set-face-background-pixmap "gray3"] 4) ((error (byte-code "\n\"" [invert-face primary-selection screen] 3))) (byte-code " Ï#" [x-color-display-p nil (byte-code " #" [set-face-background secondary-selection "paleturquoise" screen] 4) ((error (byte-code " #" [set-face-background secondary-selection "green" screen] 4))) set-face-background-pixmap secondary-selection "gray1" screen] 4) ((error (byte-code "\n\"" [invert-face secondary-selection screen] 3))) isearch x-color-display-p (byte-code " #" [set-face-background isearch "paleturquoise" screen] 4) ((error (byte-code "" [nil (byte-code " #" [set-face-background isearch "green" screen] 4) ((error))] 3)))] 3 "\ Initializes the colors and fonts of the bold, italic, bold-italic, primary-selection, secondary-selection, and isearch faces when each screen is created. If you want to add code to do stuff like this, use the create-screen-hook."]) (provide 'x-faces)