comparison lisp/hi-lock.el @ 35779:1619fb3fdfa4

(hi-lock-mode, hi-lock-line-face-buffer): Doc fix. (hi-lock-find-patterns): Turn on font-lock-mode, if it is not on already.

35778:08937734f627

;;; hi-lock.el --- Minor mode for interactive automatic highlighting.

;; Copyright (C) 2000 Free Software Foundation, Inc.

;; Author: David M. Koppelman, [e-mail]
;; Keywords: faces, minor-mode, matching, display

;; This file is part of GNU Emacs.

;;;###autoload
(defun hi-lock-mode (&optional arg)
  "Toggle minor mode for interactively adding font-lock highlighting patterns.

If ARG positive turn hi-lock on.  Issuing a hi-lock command will also
turn hi-lock on.  When hi-lock turned on an \"Automatic Highlighting\"
submenu is added to the \"Edit\" menu.  The commands in the submenu,
which can be called interactively, are:

\\[highlight-regexp] REGEXP FACE
  Highlight matches of pattern REGEXP in current buffer with FACE.

  "Set face of all lines containing matches of REGEXP to FACE.

Interactively, prompt for REGEXP then FACE.  Buffer-local history
list maintained for regexps, global history maintained for faces.
\\<minibuffer-local-map>Use \\[next-history-element] and \\[previous-history-element] to retrieve next or previous history item.
(See info node `Minibuffer History')"
  (interactive
   (list
    (hi-lock-regexp-okay
     (read-from-minibuffer "Regexp to highlight line: "
                           (cons (or (car hi-lock-regexp-history) "") 1 )

  "Set face of all matches of REGEXP to FACE.

Interactively, prompt for REGEXP then FACE.  Buffer-local history
list maintained for regexps, global history maintained for faces.
\\<minibuffer-local-map>Use \\[next-history-element] and \\[previous-history-element] to retrieve next or previous history item.
(See info node `Minibuffer History')"
  (interactive
   (list
    (hi-lock-regexp-okay
     (read-from-minibuffer "Regexp to highlight: "
                           (cons (or (car hi-lock-regexp-history) "") 1 )

                                   (hi-lock-current-line))) nil))))
            (if patterns
                (setq all-patterns (append patterns all-patterns))))))
      (if (and (not hi-lock-mode) all-patterns)
          (hi-lock-mode 1))
      (if hi-lock-mode (hi-lock-set-file-patterns all-patterns))
      (if (interactive-p)
        (message (format "Hi-lock added %d patterns." (length all-patterns)))))))

(defun hi-lock-font-lock-hook ()

35779:1619fb3fdfa4

;;; hi-lock.el --- Minor mode for interactive automatic highlighting.

;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.

;; Author: David M. Koppelman, [e-mail]
;; Keywords: faces, minor-mode, matching, display

;; This file is part of GNU Emacs.

;;;###autoload
(defun hi-lock-mode (&optional arg)
  "Toggle minor mode for interactively adding font-lock highlighting patterns.

If ARG positive turn hi-lock on.  Issuing a hi-lock command will also
turn hi-lock on.  When hi-lock is turned on an \"Automatic Highlighting\"
submenu is added to the \"Edit\" menu.  The commands in the submenu,
which can be called interactively, are:

\\[highlight-regexp] REGEXP FACE
  Highlight matches of pattern REGEXP in current buffer with FACE.

  "Set face of all lines containing matches of REGEXP to FACE.

Interactively, prompt for REGEXP then FACE.  Buffer-local history
list maintained for regexps, global history maintained for faces.
\\<minibuffer-local-map>Use \\[next-history-element] and \\[previous-history-element] to retrieve next or previous history item.
\(See info node `Minibuffer History')"
  (interactive
   (list
    (hi-lock-regexp-okay
     (read-from-minibuffer "Regexp to highlight line: "
                           (cons (or (car hi-lock-regexp-history) "") 1 )

  "Set face of all matches of REGEXP to FACE.

Interactively, prompt for REGEXP then FACE.  Buffer-local history
list maintained for regexps, global history maintained for faces.
\\<minibuffer-local-map>Use \\[next-history-element] and \\[previous-history-element] to retrieve next or previous history item.
\(See info node `Minibuffer History')"
  (interactive
   (list
    (hi-lock-regexp-okay
     (read-from-minibuffer "Regexp to highlight: "
                           (cons (or (car hi-lock-regexp-history) "") 1 )

                                   (hi-lock-current-line))) nil))))
            (if patterns
                (setq all-patterns (append patterns all-patterns))))))
      (if (and (not hi-lock-mode) all-patterns)
          (hi-lock-mode 1))
      (unless font-lock-mode (font-lock-mode))
      (if hi-lock-mode (hi-lock-set-file-patterns all-patterns))
      (if (interactive-p)
        (message (format "Hi-lock added %d patterns." (length all-patterns)))))))

(defun hi-lock-font-lock-hook ()