Mercurial > hg > xemacs-beta

comparison lisp/comint/comint-xemacs.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents d620409f5eb8
children
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
29 ;; Declare customizable faces for comint outside the main code so it can 29 ;; Declare customizable faces for comint outside the main code so it can
30 ;; be dumped with XEmacs. 30 ;; be dumped with XEmacs.
31 31
32 ;;; Code: 32 ;;; Code:
33 33
34 (defgroup comint nil
35 "General command interpreter in a window stuff."
36 :group 'processes)
37
34 (defface comint-input-face '((((class color) 38 (defface comint-input-face '((((class color)
35 (background dark)) 39 (background dark))
36 (:foreground "red")) 40 (:foreground "red"))
37 (((class color) 41 (((class color)
38 (background light)) 42 (background light))
39 (:foreground "blue")) 43 (:foreground "blue"))
40 (((class mono))
41 (:bold t))
42 (((class grayscale))
43 (:bold t))
44 (t 44 (t
45 (:bold t))) 45 (:bold t)))
46 "How to display user input for comint shells." 46 "How to display user input for comint shells."
47 :group 'comint-input-face) 47 :group 'comint)
48 48
49 49
50 50
51 (provide 'comint-xemacs) 51 (provide 'comint-xemacs)
52 52