Mercurial > emacs
comparison lisp/font-lock.el @ 9513:76ce1230257f
Use purify-flag not noninteractive.
author | Simon Marshall <simon@gnu.org> |
---|---|
date | Thu, 13 Oct 1994 07:55:30 +0000 |
parents | f80b2a33df03 |
children | d352bebc9103 |
comparison
equal
deleted
inserted
replaced
9512:b2aaf43191aa | 9513:76ce1230257f |
---|---|
909 font-lock-syntax-table) | 909 font-lock-syntax-table) |
910 (setq slist (cdr slist)))))))) | 910 (setq slist (cdr slist)))))))) |
911 | 911 |
912 ;; Install ourselves: | 912 ;; Install ourselves: |
913 | 913 |
914 (if noninteractive | 914 (if purify-flag |
915 (add-hook 'after-init-hook 'font-lock-make-faces) | 915 (add-hook 'after-init-hook 'font-lock-make-faces) |
916 (font-lock-make-faces)) | 916 (font-lock-make-faces)) |
917 | 917 |
918 (or (assq 'font-lock-mode minor-mode-alist) | 918 (or (assq 'font-lock-mode minor-mode-alist) |
919 (setq minor-mode-alist (cons '(font-lock-mode " Font") minor-mode-alist))) | 919 (setq minor-mode-alist (cons '(font-lock-mode " Font") minor-mode-alist))) |