summaryrefslogtreecommitdiff
path: root/lisp/font-core.el
diff options
context:
space:
mode:
authorAlan Mackenzie <acm@muc.de>2012-02-23 18:51:22 +0000
committerAlan Mackenzie <acm@muc.de>2012-02-23 18:51:22 +0000
commit2cb228f753fbaea3a86dfc1fd57b61db13624a2d (patch)
treef9f55e68442986ba10b4a25129855beec6b450d2 /lisp/font-core.el
parentb2e4ca7d12b306cd15d4ec24ce7749db56729e2b (diff)
downloademacs-2cb228f753fbaea3a86dfc1fd57b61db13624a2d.tar.gz
Add new parameter :after-hook to define-minor-mode. Use this in the
definition of font-lock-mode.
Diffstat (limited to 'lisp/font-core.el')
-rw-r--r--lisp/font-core.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/font-core.el b/lisp/font-core.el
index f6701c0c79f..9b655319bc9 100644
--- a/lisp/font-core.el
+++ b/lisp/font-core.el
@@ -138,6 +138,7 @@ The above is the default behavior of `font-lock-mode'; you may specify
your own function which is called when `font-lock-mode' is toggled via
`font-lock-function'. "
nil nil nil
+ :after-hook (if font-lock-mode (font-lock-initial-fontify))
;; Don't turn on Font Lock mode if we don't have a display (we're running a
;; batch job) or if the buffer is invisible (the name starts with a space).
(when (or noninteractive (eq (aref (buffer-name) 0) ?\s))