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))