Mercurial > emacs
comparison lisp/eshell/esh-test.el @ 110580:f57f72bb4757
Cosmetic doc fixes for eshell.
* eshell/em-alias.el, eshell/em-banner.el, eshell/em-basic.el:
* eshell/em-cmpl.el, eshell/em-dirs.el, eshell/em-glob.el:
* eshell/em-hist.el, eshell/em-ls.el, eshell/em-pred.el:
* eshell/em-prompt.el, eshell/em-rebind.el, eshell/em-script.el:
* eshell/em-smart.el, eshell/em-term.el, eshell/em-unix.el:
* eshell/esh-cmd.el, eshell/esh-ext.el, eshell/esh-io.el:
* eshell/esh-mode.el, eshell/esh-proc.el, eshell/esh-test.el:
* eshell/esh-util.el, eshell/esh-var.el:
Remove leading `*' from docs of faces and defcustoms.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 25 Sep 2010 14:51:55 -0700 |
parents | d835100c3e8b |
children | 646142bd4c38 |
comparison
equal
deleted
inserted
replaced
110579:5fabe7db5188 | 110580:f57f72bb4757 |
---|---|
41 ;;; User Variables: | 41 ;;; User Variables: |
42 | 42 |
43 (defface eshell-test-ok | 43 (defface eshell-test-ok |
44 '((((class color) (background light)) (:foreground "Green" :bold t)) | 44 '((((class color) (background light)) (:foreground "Green" :bold t)) |
45 (((class color) (background dark)) (:foreground "Green" :bold t))) | 45 (((class color) (background dark)) (:foreground "Green" :bold t))) |
46 "*The face used to highlight OK result strings." | 46 "The face used to highlight OK result strings." |
47 :group 'eshell-test) | 47 :group 'eshell-test) |
48 (define-obsolete-face-alias 'eshell-test-ok-face 'eshell-test-ok "22.1") | 48 (define-obsolete-face-alias 'eshell-test-ok-face 'eshell-test-ok "22.1") |
49 | 49 |
50 (defface eshell-test-failed | 50 (defface eshell-test-failed |
51 '((((class color) (background light)) (:foreground "OrangeRed" :bold t)) | 51 '((((class color) (background light)) (:foreground "OrangeRed" :bold t)) |
52 (((class color) (background dark)) (:foreground "OrangeRed" :bold t)) | 52 (((class color) (background dark)) (:foreground "OrangeRed" :bold t)) |
53 (t (:bold t))) | 53 (t (:bold t))) |
54 "*The face used to highlight FAILED result strings." | 54 "The face used to highlight FAILED result strings." |
55 :group 'eshell-test) | 55 :group 'eshell-test) |
56 (define-obsolete-face-alias 'eshell-test-failed-face 'eshell-test-failed "22.1") | 56 (define-obsolete-face-alias 'eshell-test-failed-face 'eshell-test-failed "22.1") |
57 | 57 |
58 (defcustom eshell-show-usage-metrics nil | 58 (defcustom eshell-show-usage-metrics nil |
59 "*If non-nil, display different usage metrics for each Eshell command." | 59 "If non-nil, display different usage metrics for each Eshell command." |
60 :set (lambda (symbol value) | 60 :set (lambda (symbol value) |
61 (if value | 61 (if value |
62 (add-hook 'eshell-mode-hook 'eshell-show-usage-metrics) | 62 (add-hook 'eshell-mode-hook 'eshell-show-usage-metrics) |
63 (remove-hook 'eshell-mode-hook 'eshell-show-usage-metrics)) | 63 (remove-hook 'eshell-mode-hook 'eshell-show-usage-metrics)) |
64 (set symbol value)) | 64 (set symbol value)) |