Mercurial > emacs
changeset 67201:ef8e06ff56b9
Throw error if facemenu is not loaded to prevent accidental change of
loading order in loadup.el. (Suggested by RMS.)
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Tue, 29 Nov 2005 05:03:21 +0000 |
| parents | d6ef634a9819 |
| children | 3423d9dbb1b7 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/font-lock.el Tue Nov 29 04:59:38 2005 +0000 +++ b/lisp/font-lock.el Tue Nov 29 05:03:21 2005 +0000 @@ -1123,8 +1123,9 @@ (font-lock-fontify-region (point) (mark))) ((error quit) (message "Fontifying block...%s" error-data))))))) -(if (boundp 'facemenu-keymap) - (define-key facemenu-keymap "\M-o" 'font-lock-fontify-block)) +(unless (featurep 'facemenu) + (error "facemenu must be loaded before font-lock")) +(define-key facemenu-keymap "\M-o" 'font-lock-fontify-block) ;;; End of Fontification functions.