Mercurial > emacs

changeset 28343:4ecf90324237

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update sample code for adding font-lock-keywords
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 27 Mar 2000 04:20:08 +0000
parents 9761cf2351fa
children 54fda0e8528a
files man/mh-e.texi
diffstat 1 files changed, 4 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/man/mh-e.texi	Sun Mar 26 23:05:51 2000 +0000
+++ b/man/mh-e.texi	Mon Mar 27 04:20:08 2000 +0000
@@ -1,5 +1,5 @@
 \input texinfo   @c -*-texinfo-*-
-@c $Id: mh-e.texi,v 1.1 1999/09/29 15:17:04 fx Exp $
+@c $Id: mh-e.texi,v 1.2 1999/11/18 15:59:59 eliz Exp $
 @c %**start of header
 @setfilename ../info/mh-e
 @settitle mh-e
@@ -2375,17 +2375,9 @@
 
 (defun my-mh-show-mode-hook ()
   "Hook to turn on and customize fonts."
-  (require 'font-lock)                 ; @r{for font-lock-keywords below}
-  (make-local-variable 'font-lock-mode-hook) ; @r{don't affect other buffers}
-  (add-hook 'font-lock-mode-hook       ; @r{set a hook with inline function}
-            (function                  ; @r{modifies font-lock-keywords when}
-             (lambda ()                ; @r{font-lock-mode run}
-               (setq font-lock-keywords
-                     (append my-mh-keywords font-lock-keywords)))))
-  (font-lock-mode 1))                  ; @r{change the typefaces}
-
-(if window-system                      ; @r{can't do this on @sc{ascii} terminal}
-    (add-hook 'mh-show-mode-hook 'my-mh-show-mode-hook))
+  (font-lock-add-keywords nil my-mh-keywords))
+
+(add-hook 'mh-show-mode-hook 'my-mh-show-mode-hook))
 @end group
 @end lisp