;ELC   
;;; compiled by jwz@thalidomide on Mon Feb  7 02:56:47 1994
;;; from file /th/jwz/emacs19/lisp/energize/energize-font-size.el
;;; emacs version 19.10 Lucid (beta2).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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."))

(defconst energize-x-modify-font-regexp "-\\([^-]+-[^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)-\\([^-]+\\)" "\
Regexpr to extract or modify font entries")
(byte-code "ÀÂÃMˆÄÅM‡" [(("courier" "adobe-courier" "o") ("lucida" "b&h-lucida" "i") ("openwindows" . energize-make-openwindow-font) ("helvetica" "adobe-helvetica" "o") ("times" "adobe-times" "i") ("clean" "shumacher-clean" "i")) energize-font-families-parameters energize-x-set-font-name-entry #[(font-name entry value) "«œÁ\n\"«–”•OÅ”O•ÇOQ)‡‡" [font-name string-match energize-x-modify-font-regexp entry match 0 value nil] 5] energize-x-set-font-entry #[(font entry value) "­œ;«ƒªƒÁ!Â	#;«ƒªƒÆ!*‡" [font font-name energize-x-set-font-name-entry entry value new-name make-font] 4]] 2)
(fset 'energize-x-set-face-font-entry #[(face entry value) "À	!Ã\n#‰­„ÇÈÉ*‡" [face-font face font energize-x-set-font-entry entry value new-font a (set-face-font face new-font) ((error (byte-code "ÀÁÂ\"!ˆÄÅ!‡" [message format "%S" a sit-for 0] 4)))] 5 "\
Sets the face font to be of the specified point size"])
(byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇM‡" [energize-set-font-size #[(size) "ÀÁÂ \"‡" [mapcar #[(face) "À	Â#‡" [energize-x-set-face-font-entry face 7 size] 4] list-faces] 3 nil "sSet new font size to: "] energize-make-openwindow-font #[(font-name) "À	\n\"ˆ\nÃ”Ã•O‰Å«–\nÆÇ”OÈ\nÇ•Ã”OÉ\nÃ•ÊO°ªµ\nÆÇ”OË\nÇ•Ã”O\nÃ•ÊO°Í!«„ª”\nÆÇ”OÎ\nÇ•Ã”O\nÃ•ÊO°))‡" [string-match energize-x-modify-font-regexp f-name 3 slant ("i" "o") 0 1 "b&h-lucida" "i" nil "b&h-lucidatypewriter" new-name x-list-fonts "b&h-lucida sans typewriter"] 8] energize-set-font-family #[(family) "À	\n\"AÃ ‰¬‹ÆÇÈ	ÉÊ\n\"#!ˆ­ç@Ì!‰­„Î!‰«Â9«ˆ!ª¶Ð\"ˆÒ”Ò•O‰Ô«…A@ÕÖ”O@Ö•Ò”OÒ•×O°)Ø\"ˆ+A‰¬×*‡" [assoc family energize-font-families-parameters list-faces faces font-desc error format "Unknown font family %s, use one of %s" mapcar car face face-font font font-name f-name string-match energize-x-modify-font-regexp 3 slant ("i" "o") 0 1 nil set-face-font] 8 nil "sSet new font family to: "] energize-set-font-boldness #[(bold) "ÀÁÂ!!Ä\"­†Æ”Æ•Oš?­ÜÉ ‰\n­Ô\n@Á!‰­„À!‰«³Ä\"ˆÆ”Æ•O‰Ïš«ƒÐªÏÒÆ”OÆ•ÓOQ)Ô\"ˆ+\nA‰\n¬-Ó)*‡" [font-name face-font default default-name string-match energize-x-modify-font-regexp 2 default-boldness bold list-faces faces face font f-name font-boldness "bold" "medium" new-boldness 0 nil set-face-font] 6 nil "sEnter boldness:"]] 2)