;ELC ;;; compiled by jwz@thalidomide on Sun May 15 00:47:05 1994 ;;; from file /th/jwz/emacs19/lisp/x11/x-font-menu.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.")) (byte-code "" [nil fonts-menu-cache font-menu-preferred-resolution font-menu-preferred-registry] 1) (defconst fonts-menu-junk-families (byte-code "#!" [purecopy mapconcat identity ("cursor" "glyph" "symbol" "\\`Ax...\\'") "\\|"] 5) "\ A regexp matching font families which are uninteresting (cursor fonts.)") (fset 'install-font-menus #[(&optional debug) " =?? !@!@J \n  @@ @A# A l*AN*" [noninteractive window-system x compute-font-menus debug (current-menubar default-menubar energize-menubar big-menubar) menubars menus boundp rest current-menubar add-menu ("Options") nil] 5 "\ Generates and installs the `Font', `Size', and `Weight' submenus of Options. This is run once just after emacs starts up. If you add fonts to your system, or if you change your font path, you can call this to re-initialize the menus."]) (byte-code "MMMMM\"# !" [compute-font-menus #[(&optional debug) " \n   ;T # O B ]  * !   @\n\n\"\nהוO!\nؔؕO!\n\"!\nהוO!  \" \" E B@  B\n\nB8AA@B  B8AA8B A a \" #$#$\"@$@ZV\"@$@\\W#$A$X#*\"@ B\"A\"? \") \"\n\" \" $$@A$@A@\"$@AA$@8\"$A$[) * \"B \"B\n\"BE. " [nil t weights sizes families cache entry weight size family name case-fold-search all-fonts debug -1 j i string-match "\n" x-list-fonts "*-*-*-*-*-*-*-*-*-*-*-*-*-*" x-font-regexp capitalize 1 6 string-to-int x-font-regexp-foundry-and-family error "internal error" fonts-menu-junk-families assoc 2 0 (60 80 100 120 140 160 180 240) common done rest 5 delq sort string-lessp < fonts-menu-cache "Font" mapcar #[(x) " ÉF&" [vector x font-menu-set-font nil :style radio :active :selected] 9] "Size" #[(x) " ¦U ¥! ¦!Q ¥!lj F&" [vector x 10 0 int-to-string "." font-menu-set-font nil :style radio :active :selected] 9] "Weight" #[(x) " F&" [vector x font-menu-set-font nil :style radio :active :selected] 9]] 12] sensitize-fonts-menus-hook #[nil " \"@A \"@A \"@A \"@A !!    \"@;΂p ܔܕO! ޔޕO! \" ܔܕO!!\"@H888!!=!!A<  @HA@!!!! A G @H!\"A@88!!!! A0." [find-menu-item current-menubar ("Options") opt-menu ("Font") font-menu ("Size") size-menu ("Weight") weight-menu font-truename face-font default name t case-fold-search nil family weight size f w s item entry string-match x-font-regexp capitalize 1 string-to-number 6 x-font-regexp-foundry-and-family assoc fonts-menu-cache 3 2 0 enable-menu-item disable-menu-item select-toggle-menu-item deselect-toggle-menu-item] 5] font-menu-set-font #[(family weight size) " \"!!Ɖ \n    \" D\" ԔԕO!  \" D\" ԔԕO! ֔֕O  $\n  @! @\"ߏ A e\n\"!\"." [delq default list-faces font-truename face-font t nil from-size from-weight from-family new-default-face-font case-fold-search default-name faces string-match x-font-regexp-foundry-and-family signal error "couldn't parse font name" capitalize 1 x-font-regexp 6 font-menu-load-font family weight size message "Changing font of `%s'..." c (byte-code " @\n &" [font-menu-change-face faces from-family from-weight from-size family weight size] 8) ((error (byte-code " \"!" [display-error c nil sit-for 1] 3))) set-face-font "Font %s" face-font-name] 8] font-menu-change-face #[(face from-family from-weight from-size to-family to-weight to-size) "9D\"! !    \"D\"ӔӕO! \"D\"ӔӕO ՔՕO       $\"." [face signal wrong-type-argument symbolp face-font font font-truename name t case-fold-search nil face-family face-weight face-size string-match x-font-regexp-foundry-and-family error "couldn't parse font name" capitalize 1 x-font-regexp 6 to-family from-family to-weight from-weight to-size from-size set-face-font font-menu-load-font] 7] font-menu-load-font #[(family weight size from-font) "\n \" D\" ϔϕO ДЕO \" D\" ДЕO! ӔӕO ԔԕO՚֚ \nB B@A@A!@A@A!@A@!@A@!@A !@A !@ !@ ! ! !." [t nil resy resx encoding registry other-slant slant case-fold-search string-match x-font-regexp-registry-and-encoding from-font signal error "couldn't parse font name" 1 2 x-font-regexp capitalize 7 8 "O" "I" font-menu-preferred-resolution font-menu-preferred-registry try-font "-*-" family "-" weight "-*-*-*-" size "-*-*-" "-*" "-*-*-*-*-" make-font "-*-*-*-*-*-*"] 17] add-hook activate-menubar-hook before-init-hook install-font-menus t provide font-menu] 4)