/[emacs]/emacs/lisp/hi-lock.el
ViewVC logotype

Diff of /emacs/lisp/hi-lock.el

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

revision 1.28 by cyd, Sat Nov 12 17:17:52 2005 UTC revision 1.29 by jurta, Thu Nov 17 07:21:54 2005 UTC
# Line 84  Line 84 
84  (eval-and-compile  (eval-and-compile
85    (require 'font-lock))    (require 'font-lock))
86    
87  (defgroup hi-lock-interactive-text-highlighting nil  (defgroup hi-lock nil
88    "Interactively add and remove font-lock patterns for highlighting text."    "Interactively add and remove font-lock patterns for highlighting text."
89    :group 'faces)    :link '(custom-manual "(emacs)Highlight Interactively")
90      :group 'font-lock)
91    
92  ;;;###autoload  ;;;###autoload
93  (defcustom hi-lock-mode nil  (defcustom hi-lock-mode nil
# Line 95  Line 96 
96           (hi-lock-mode (or value 0)))           (hi-lock-mode (or value 0)))
97    :initialize 'custom-initialize-default    :initialize 'custom-initialize-default
98    :type 'boolean    :type 'boolean
99    :group 'hi-lock-interactive-text-highlighting    :group 'hi-lock
100    :require 'hi-lock)    :require 'hi-lock)
101    
102  (defcustom hi-lock-file-patterns-range 10000  (defcustom hi-lock-file-patterns-range 10000
# Line 104  When a file is visited and hi-lock mode Line 105  When a file is visited and hi-lock mode
105  up to this limit are added to font-lock's patterns.  See documentation  up to this limit are added to font-lock's patterns.  See documentation
106  of functions `hi-lock-mode' and `hi-lock-find-patterns'."  of functions `hi-lock-mode' and `hi-lock-find-patterns'."
107    :type 'integer    :type 'integer
108    :group 'hi-lock-interactive-text-highlighting)    :group 'hi-lock)
109    
110  (defcustom hi-lock-exclude-modes  (defcustom hi-lock-exclude-modes
111    '(rmail-mode mime/viewer-mode gnus-article-mode)    '(rmail-mode mime/viewer-mode gnus-article-mode)
# Line 112  of functions `hi-lock-mode' and `hi-lock Line 113  of functions `hi-lock-mode' and `hi-lock
113  For security reasons since font lock patterns can specify function  For security reasons since font lock patterns can specify function
114  calls."  calls."
115    :type '(repeat symbol)    :type '(repeat symbol)
116    :group 'hi-lock-interactive-text-highlighting)    :group 'hi-lock)
117    
118    
119  (defgroup hi-lock-faces nil  (defgroup hi-lock-faces nil
120    "Faces for hi-lock."    "Faces for hi-lock."
121    :group 'hi-lock-interactive-text-highlighting)    :group 'hi-lock
122      :group 'faces)
123    
124  (defface hi-yellow  (defface hi-yellow
125    '((((min-colors 88) (background dark))    '((((min-colors 88) (background dark))

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

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