From: Luc Teirlinck <teirllm@auburn.edu>
Date: Tue, 29 Nov 2005 05:03:21 +0000 (+0000)
Subject: Throw error if facemenu is not loaded to prevent accidental change of
X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/407f5edd353e13f53ac82f9617f477352914008d

Throw error if facemenu is not loaded to prevent accidental change of
loading order in loadup.el.  (Suggested by RMS.)
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index b3a4a80e04..e14ee81647 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1123,8 +1123,9 @@ delimit the region to fontify."
 	      (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.