Mercurial > emacs
comparison lisp/hi-lock.el @ 59873:f69e6bb9b8fc
(hi-lock-mode): Turning on Hi-Lock turns on Font-Lock.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Feb 2005 06:49:18 +0000 |
| parents | 695cf19ef79e |
| children | 7160fe3a7ef1 72cf6261961e |
comparison
equal
deleted
inserted
replaced
| 59872:d7da3e10bfef | 59873:f69e6bb9b8fc |
|---|---|
| 292 (> (prefix-numeric-value arg) 0))) | 292 (> (prefix-numeric-value arg) 0))) |
| 293 ;; Turned on. | 293 ;; Turned on. |
| 294 (when (and (not hi-lock-mode-prev) hi-lock-mode) | 294 (when (and (not hi-lock-mode-prev) hi-lock-mode) |
| 295 (add-hook 'find-file-hooks 'hi-lock-find-file-hook) | 295 (add-hook 'find-file-hooks 'hi-lock-find-file-hook) |
| 296 (add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook) | 296 (add-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook) |
| 297 (when (eq nil font-lock-defaults) | |
| 298 (setq font-lock-defaults '(nil))) | |
| 299 (unless font-lock-mode | |
| 300 (font-lock-mode 1)) | |
| 297 (define-key-after menu-bar-edit-menu [hi-lock] | 301 (define-key-after menu-bar-edit-menu [hi-lock] |
| 298 (cons "Regexp Highlighting" hi-lock-menu)) | 302 (cons "Regexp Highlighting" hi-lock-menu)) |
| 299 (dolist (buffer (buffer-list)) | 303 (dolist (buffer (buffer-list)) |
| 300 (with-current-buffer buffer (hi-lock-find-patterns)))) | 304 (with-current-buffer buffer (hi-lock-find-patterns)))) |
| 301 ;; Turned off. | 305 ;; Turned off. |