;ELC   
;;; compiled by jwz@thalidomide on Fri May  6 16:37:45 1994
;;; from file /th/jwz/emacs19/lisp/packages/shell-font.el
;;; emacs version 19.10 Lucid (beta21).
;;; 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 "АБ!€ВГ!€ДГ!¬…ЕЖГ\"€ВЗ!€ДЗ!¬…ЕИЗ\"€ВЙ!€ДЙ!¬ЌКЙ!€ЛЙ!€МЙН\"€ОП!¬ѓЗРСM‡" [require text-props make-face shell-prompt face-differs-from-default-p copy-face bold-italic shell-input bold shell-output make-face-unbold make-face-unitalic set-face-underline-p nil boundp shell-font-current-face shell-font-fontify-region #[(start end delete-count) "	U?­†В	Г$‡" [start end put-nonduplicable-text-property face shell-font-current-face] 5]] 3)
(fset 'shell-font-hack-prompt #[(limit) "Љdb€А ВЋГЖ#­—З•b€`dU­ЋИЙx€КМЗ”`З#)+‡" [match-data _match_data_ ((store-match-data _match_data_)) re-search-backward comint-prompt-regexp limit t 0 " 	" nil shell-prompt shell-font-current-face shell-font-fontify-region] 4 "\
Search backward from point-max for text matching the comint-prompt-regexp,
and put it in the `shell-prompt' face.  LIMIT is the left bound of the search."])
(defvar shell-font-process-filter nil "\
In an interaction buffer with shell-font, this is the original proc filter.
shell-font encapsulates this.")
(fset 'shell-font-process-filter #[(proc string) "pА	!\n¬†	\"Є›\nq€ЖЗ	!!Й\n	\")Л!€q€)*‡" [process-buffer proc pb cb shell-font-process-filter string marker-position process-mark p shell-output shell-font-current-face shell-font-hack-prompt] 3 "\
Invoke the original process filter, then set fonts on the output.
The original filter is in the buffer-local variable shell-font-process-filter."])
(fset 'install-shell-fonts #[nil "Аp!®„БВp\"Д!®„БЕ\"ЗИ!€ЙИК\"€ЗЛ!€МЗН!€Н=¬„ОН\"€*П‡" [get-buffer-process error "no process in %S" proc process-filter "no process filter on %S" old make-local-variable after-change-functions add-hook shell-font-fontify-region shell-font-current-face shell-input shell-font-process-filter set-process-filter nil] 3 "\
Decorate the current interaction buffer with fonts.
This uses the faces called `shell-prompt', `shell-input' and `shell-output';
you can alter the graphical attributes of those with the normal
face-manipulation functions."])
(byte-code "АБВ\"€АГВ\"€АДВ\"€ЕЖВ\"€ЗИ!‡" [add-hook shell-mode-hook install-shell-fonts telnet-mode-hook gdb-mode-hook make-obsolete install-shell-font-prompt provide shell-font] 3)