;;; /u/sy/beebe/emacs/cyrillic-fonts.el, Tue Nov 12 17:32:26 1996
;;; Edit by Nelson H. F. Beebe <beebe@plot79.math.utah.edu>
;;; ====================================================================
;;; Change log:
;;;
;;; Version 1.01	[16-Sep-1997]
;;; Add defvar for Cyrillic-x-fixed-font-alist to remove byte
;;; compilation warnings about references and assignments to a free
;;; variable.
;;;
;;; 
;;; Version 1.00 [12-Nov-1996]
;;; Loading this file adds a Cyrillic font menu item to the GNU Emacs
;;; pop-up font menu normally bound to Shift-Button-1.  The Cyrillic
;;; fonts are all in the koi-8 encoding, which places the Cyrillic
;;; characters in the upper 128 entries of a 256-character font,
;;; leaving the bottom 128 as standard ASCII.  If your emacs sessions
;;; displays these Cyrillic characters as octal escape sequences, then
;;; simple execute the command M-x standard-display-european to turn on
;;; 8-bit character display.
;;;
;;; The Cyrillic fonts must have been already made available to the X
;;; Window System via commands like this (usually in the $HOME/.xinitrc
;;; or $HOME/.xsession files):
;;;
;;;	xset fp+ /usr/local/share/lib/X11/fonts/cyrillic
;;;	xset fp rehash


(defvar Cyrillic-x-fixed-font-alist 
  "List of fixed-width Cyrillic font short names and their mappings to
long X Window System font names."
  nil)

(setq Cyrillic-x-fixed-font-alist 
 (append x-fixed-font-alist
  (list 
   '("Cyrillic"

     ("koi6x10"				"koi6x10")
     ("koi6x13"				"koi6x13")
     ("koi8x13"				"koi8x13")
     ("koi8x16"				"koi8x16")
     ("koi9x15"				"koi9x15")

     ("8 courier-bold-o"		"-adobe-courier-bold-o-normal--8-80-75-75-m-50-koi8-1")
     ("10 courier-bold-o"		"-adobe-courier-bold-o-normal--10-100-75-75-m-60-koi8-1")
     ("12 courier-bold-o"		"-adobe-courier-bold-o-normal--12-120-75-75-m-70-koi8-1")
     ("14 courier-bold-o"		"-adobe-courier-bold-o-normal--14-140-75-75-m-90-koi8-1")
     ("18 courier-bold-o"		"-adobe-courier-bold-o-normal--18-180-75-75-m-110-koi8-1")
     ("24 courier-bold-o"		"-adobe-courier-bold-o-normal--24-240-75-75-m-150-koi8-1")

     ("8 courier-bold-r"		"-adobe-courier-bold-r-normal--8-80-75-75-m-50-koi8-1")
     ("10 courier-bold-r"		"-adobe-courier-bold-r-normal--10-100-75-75-m-60-koi8-1")
     ("12 courier-bold-r"		"-adobe-courier-bold-r-normal--12-120-75-75-m-70-koi8-1")
     ("14 courier-bold-r"		"-adobe-courier-bold-r-normal--14-140-75-75-m-90-koi8-1")
     ("18 courier-bold-r"		"-adobe-courier-bold-r-normal--18-180-75-75-m-110-koi8-1")
     ("24 courier-bold-r"		"-adobe-courier-bold-r-normal--24-240-75-75-m-150-koi8-1")

     ("8 courier-medium-o"		"-adobe-courier-medium-o-normal--8-80-75-75-m-50-koi8-1")
     ("10 courier-medium-o"		"-adobe-courier-medium-o-normal--10-100-75-75-m-60-koi8-1")
     ("12 courier-medium-o"		"-adobe-courier-medium-o-normal--12-120-75-75-m-70-koi8-1")
     ("14 courier-medium-o"		"-adobe-courier-medium-o-normal--14-140-75-75-m-90-koi8-1")
     ("18 courier-medium-o"		"-adobe-courier-medium-o-normal--18-180-75-75-m-110-koi8-1")
     ("24 courier-medium-o"		"-adobe-courier-medium-o-normal--24-240-75-75-m-150-koi8-1")

     ("8 courier-medium-r"		"-adobe-courier-medium-r-normal--8-80-75-75-m-50-koi8-1")
     ("10 courier-medium-r"		"-adobe-courier-medium-r-normal--10-100-75-75-m-60-koi8-1")
     ("12 courier-medium-r"		"-adobe-courier-medium-r-normal--12-120-75-75-m-70-koi8-1")
     ("14 courier-medium-r"		"-adobe-courier-medium-r-normal--14-140-75-75-m-90-koi8-1")
     ("18 courier-medium-r"		"-adobe-courier-medium-r-normal--18-180-75-75-m-110-koi8-1")
     ("24 courier-medium-r"		"-adobe-courier-medium-r-normal--24-240-75-75-m-150-koi8-1")

     ("14 terminal-bold-r-double wide"	"-dec-terminal-bold-r-double wide--14-100-100-100-c-16-koi8-1")
     ("14 terminal-bold-r-narrow"	"-dec-terminal-bold-r-narrow--14-100-100-100-c-6-koi8-1")
     ("14 terminal-bold-r-normal"	"-dec-terminal-bold-r-normal--14-100-100-100-c-8-koi8-1")

     ("14 terminal-medium-r-narrow"	"-dec-terminal-medium-r-narrow--14-100-100-100-c-6-koi8-1")
     ("14 terminal-medium-r-normal"	"-dec-terminal-medium-r-normal--14-100-100-100-c-8-koi8-1")

     ("18 terminal-bold-r-double wide"	"-bitstream-terminal-bold-r-double wide--18-180-75-75-c-22-koi8-1")
     ("18 terminal-bold-r-narrow"	"-bitstream-terminal-bold-r-narrow--18-180-75-75-c-7-koi8-1")
     ("18 terminal-bold-r-narrow"	"-bitstream-terminal-bold-r-normal--18-180-75-75-c-11-koi8-1")
     ("18 terminal-medium-r-double wide" "-bitstream-terminal-medium-r-double wide--18-180-75-75-c-22-koi8-1")
     ("18 terminal-medium-r-normal"	"-bitstream-terminal-medium-r-normal--18-180-75-75-c-11-koi8-1")
     ("18 terminal-medium-r-normal"	"-bitstream-terminal-medium-r-narrow--18-180-75-75-c-7-koi8-1")
   ))))


; If the Cyrillic list has not yet been installed in x-fixed-font-alist, add it.
; Otherwise, do nothing: this library might have been loaded multiple times.
(if (not (assoc '"Cyrillic" x-fixed-font-alist))
    (setq x-fixed-font-alist Cyrillic-x-fixed-font-alist))