Mercurial > hg > xemacs-beta

comparison lisp/packages/fontl-hooks.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
70 70
71 If EXPLICIT-DEFAULTS is not nil and not t, it should be something 71 If EXPLICIT-DEFAULTS is not nil and not t, it should be something
72 that is allowable as a value for `font-lock-defaults' and will be 72 that is allowable as a value for `font-lock-defaults' and will be
73 used to initialize the Font Lock variables." 73 used to initialize the Font Lock variables."
74 74
75 (if (not (featurep 'font-lock)) 75 (when
76 nil 76 (and
77 (if (or (and font-lock-auto-fontify 77 (featurep 'font-lock)
78 (not (memq major-mode font-lock-mode-disable-list))) 78 (if font-lock-auto-fontify
79 (and (not font-lock-auto-fontify) 79 (not (memq major-mode font-lock-mode-disable-list))
80 (memq major-mode font-lock-mode-enable-list))) 80 (memq major-mode font-lock-mode-enable-list))
81 (if (and (font-lock-set-defaults-1 explicit-defaults) 81 (font-lock-set-defaults-1 explicit-defaults)
82 font-lock-keywords) 82 font-lock-keywords)
83 (turn-on-font-lock))))) 83 (turn-on-font-lock)))
84 84
85 (provide 'fontl-hooks) 85 (provide 'fontl-hooks)
86 86
87 ;;; fontl-hooks.el ends here 87 ;;; fontl-hooks.el ends here