/[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.20 by rms, Thu Feb 3 06:49:18 2005 UTC revision 1.21 by monnier, Thu Mar 24 22:12:00 2005 UTC
# Line 1  Line 1 
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
# Line 292  is found. A mode is excluded if it's in Line 292  is found. A mode is excluded if it's in
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)))
# Line 313  is found. A mode is excluded if it's in Line 313  is found. A mode is excluded if it's in
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    
# Line 568  Optional argument END is maximum excursi Line 568  Optional argument END is maximum excursi
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

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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