home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / shell-fo.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.8 KB  |  26 lines
  1. ;;; compiled by jwz@thalidomide on Mon Dec 28 16:02:10 1992
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/shell-font.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.08; 13-dec-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼ä┬┴!ê├┴!¼à─┼┴\"ê└ç" [find-face shell-prompt make-face face-differs-from-default-p copy-face bold] 3)
  14. (fset 'shell-hack-prompt-font #[(limit) "èdbê└ ┬Ä├ ╞#¡É╟òbê╚╔xê╩╦╟ö`\"╠\"+ç" [match-data _match_data_ ((store-match-data _match_data_)) re-search-backward comint-prompt-regexp limit t 0 "     " nil set-extent-face make-extent shell-prompt] 4 "\
  15. Search backward from point-max for text matching the comint-prompt-regexp,
  16. and put it in the `shell-prompt' face.  LIMIT is the left bound of the search."])
  17. (fset 'shell-face-process-filter #[(proc string) "è└    !qê┬    !bê` ¡â┼ !╟p!ë¡ä╔!\n╦ !ê\n½ê═\n╬#ê½å ╧ôê┬    !`╧ôê╨ !-ç" [process-buffer proc process-mark p comint-last-input-end marker-position ie get-buffer-window w window-start ws insert-before-markers string set-window-start t nil shell-hack-prompt-font] 5 "\
  18. A process-filter that simply inserts the string into the process's buffer,
  19. to give the illusion of a process with no filter, but then searches backward
  20. for text matching the comint-prompt-regexp of this buffer, and puts it in
  21. the `shell-prompt' face."])
  22. (fset 'install-shell-font-prompt #[nil "└┴p!┬\"ç" [set-process-filter get-buffer-process shell-face-process-filter] 3 "\
  23. Add this to your shell-mode-hook to make the prompt be printed in boldface.
  24. The prompt uses the face called `shell-prompt'; you can alter the graphical
  25. attributes of that with the normal face-manipulation functions."])
  26.