1 |
;;; hi-lock.el --- minor mode for interactive automatic highlighting |
;;; hi-lock.el --- minor mode for interactive automatic highlighting |
2 |
|
|
3 |
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2000, 2001, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David M. Koppelman, koppel@ee.lsu.edu |
;; Author: David M. Koppelman, koppel@ee.lsu.edu |
6 |
;; Keywords: faces, minor-mode, matching, display |
;; Keywords: faces, minor-mode, matching, display |
292 |
(> (prefix-numeric-value arg) 0))) |
(> (prefix-numeric-value arg) 0))) |
293 |
;; Turned on. |
;; Turned on. |
294 |
(when (and (not hi-lock-mode-prev) hi-lock-mode) |
(when (and (not hi-lock-mode-prev) hi-lock-mode) |
295 |
(add-hook 'find-file-hooks 'hi-lock-find-file-hook) |
(add-hook 'find-file-hook 'hi-lock-find-file-hook) |
296 |
(add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook) |
(add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook) |
297 |
(when (eq nil font-lock-defaults) |
(when (eq nil font-lock-defaults) |
298 |
(setq font-lock-defaults '(nil))) |
(setq font-lock-defaults '(nil))) |
313 |
hi-lock-file-patterns nil) |
hi-lock-file-patterns nil) |
314 |
(when font-lock-mode (hi-lock-refontify))))) |
(when font-lock-mode (hi-lock-refontify))))) |
315 |
(define-key-after menu-bar-edit-menu [hi-lock] nil) |
(define-key-after menu-bar-edit-menu [hi-lock] nil) |
316 |
(remove-hook 'find-file-hooks 'hi-lock-find-file-hook) |
(remove-hook 'find-file-hook 'hi-lock-find-file-hook) |
317 |
(remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook)))) |
(remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook)))) |
318 |
|
|
319 |
|
|
568 |
|
|
569 |
(provide 'hi-lock) |
(provide 'hi-lock) |
570 |
|
|
571 |
;;; arch-tag: d2e8fd07-4cc9-4c6f-a200-1e729bc54066 |
;; arch-tag: d2e8fd07-4cc9-4c6f-a200-1e729bc54066 |
572 |
;;; hi-lock.el ends here |
;;; hi-lock.el ends here |