/[emacs]/emacs/lisp/log-view.el
ViewVC logotype

Diff of /emacs/lisp/log-view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by monnier, Fri Feb 18 21:56:38 2005 UTC revision 1.20 by miles, Fri Jun 10 08:29:58 2005 UTC
# Line 63  Line 63 
63  (defvar log-view-mode-hook nil  (defvar log-view-mode-hook nil
64    "Hook run at the end of `log-view-mode'.")    "Hook run at the end of `log-view-mode'.")
65    
66  (defface log-view-file-face  (defface log-view-file
67    '((((class color) (background light))    '((((class color) (background light))
68       (:background "grey70" :weight bold))       (:background "grey70" :weight bold))
69      (t (:weight bold)))      (t (:weight bold)))
70    "Face for the file header line in `log-view-mode'."    "Face for the file header line in `log-view-mode'."
71    :group 'log-view)    :group 'log-view)
72  (defvar log-view-file-face 'log-view-file-face)  ;; backward-compatibility alias
73    (put 'log-view-file-face 'face-alias 'log-view-file)
74    (defvar log-view-file-face 'log-view-file)
75    
76  (defface log-view-message-face  (defface log-view-message
77    '((((class color) (background light))    '((((class color) (background light))
78       (:background "grey85"))       (:background "grey85"))
79      (t (:weight bold)))      (t (:weight bold)))
80    "Face for the message header line in `log-view-mode'."    "Face for the message header line in `log-view-mode'."
81    :group 'log-view)    :group 'log-view)
82  (defvar log-view-message-face 'log-view-message-face)  ;; backward-compatibility alias
83    (put 'log-view-message-face 'face-alias 'log-view-message)
84    (defvar log-view-message-face 'log-view-message)
85    
86  (defconst log-view-file-re  (defconst log-view-file-re
87    (concat "^\\("    (concat "^\\("

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26