[Emacs-diffs] Changes to emacs/lisp/hi-lock.el

[Juri Linkov]

Index: emacs/lisp/hi-lock.el
diff -c emacs/lisp/hi-lock.el:1.28 emacs/lisp/hi-lock.el:1.29
*** emacs/lisp/hi-lock.el:1.28  Sat Nov 12 17:17:52 2005
--- emacs/lisp/hi-lock.el       Thu Nov 17 07:21:54 2005
***************
*** 84,92 ****
  (eval-and-compile
    (require 'font-lock))
  
! (defgroup hi-lock-interactive-text-highlighting nil
    "Interactively add and remove font-lock patterns for highlighting text."
!   :group 'faces)
  
  ;;;###autoload
  (defcustom hi-lock-mode nil
--- 84,93 ----
  (eval-and-compile
    (require 'font-lock))
  
! (defgroup hi-lock nil
    "Interactively add and remove font-lock patterns for highlighting text."
!   :link '(custom-manual "(emacs)Highlight Interactively")
!   :group 'font-lock)
  
  ;;;###autoload
  (defcustom hi-lock-mode nil
***************
*** 95,101 ****
           (hi-lock-mode (or value 0)))
    :initialize 'custom-initialize-default
    :type 'boolean
!   :group 'hi-lock-interactive-text-highlighting
    :require 'hi-lock)
  
  (defcustom hi-lock-file-patterns-range 10000
--- 96,102 ----
           (hi-lock-mode (or value 0)))
    :initialize 'custom-initialize-default
    :type 'boolean
!   :group 'hi-lock
    :require 'hi-lock)
  
  (defcustom hi-lock-file-patterns-range 10000
***************
*** 104,110 ****
  up to this limit are added to font-lock's patterns.  See documentation
  of functions `hi-lock-mode' and `hi-lock-find-patterns'."
    :type 'integer
!   :group 'hi-lock-interactive-text-highlighting)
  
  (defcustom hi-lock-exclude-modes
    '(rmail-mode mime/viewer-mode gnus-article-mode)
--- 105,111 ----
  up to this limit are added to font-lock's patterns.  See documentation
  of functions `hi-lock-mode' and `hi-lock-find-patterns'."
    :type 'integer
!   :group 'hi-lock)
  
  (defcustom hi-lock-exclude-modes
    '(rmail-mode mime/viewer-mode gnus-article-mode)
***************
*** 112,123 ****
  For security reasons since font lock patterns can specify function
  calls."
    :type '(repeat symbol)
!   :group 'hi-lock-interactive-text-highlighting)
  
  
  (defgroup hi-lock-faces nil
    "Faces for hi-lock."
!   :group 'hi-lock-interactive-text-highlighting)
  
  (defface hi-yellow
    '((((min-colors 88) (background dark))
--- 113,125 ----
  For security reasons since font lock patterns can specify function
  calls."
    :type '(repeat symbol)
!   :group 'hi-lock)
  
  
  (defgroup hi-lock-faces nil
    "Faces for hi-lock."
!   :group 'hi-lock
!   :group 'faces)
  
  (defface hi-yellow
    '((((min-colors 88) (background dark))