(font-lock-defaults): Add defvar.

(buffer-file-type): Add defvar.

diff --git a/lisp/subr.el b/lisp/subr.el
index 427189f64a217fc063c0a92357377c8063c43096..261a7b670d944484b7b6d2f7ac8b72037c9c2e1a 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -826,6 +826,18 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
 \f
 ;;;; Miscellanea.
 
+;; A number of major modes set this locally.
+;; Give it a global value to avoid compiler warnings.
+(defvar font-lock-defaults nil)
+
+;; Avoid compiler warnings about this variable,
+;; which has a special meaning on certain system types.
+(defvar buffer-file-type nil
+  "Non-nil if the visited file is a binary file.
+This variable is meaningful on MS-DOG and Windows NT.
+On those systems, it is automatically local in every buffer.
+On other systems, this variable is normally always nil.")
+
 (defun ignore (&rest ignore)
   "Do nothing and return nil.
 This function accepts any number of arguments, but ignores them."