Delete obsolete variable font-lock-maximum-size

* lisp/font-lock.el (font-lock-maximum-size): Delete variable
obsolete since 24.1.
(font-lock-initial-fontify):
* lisp/mail/rmail.el (rmail-variables):
* lisp/mh-e/mh-mime.el (mh-small-show-buffer-p): Don't use above
deleted variable.
* lisp/font-core.el (font-lock-mode):
* lisp/font-lock.el:
* lisp/info.el: Don't mention above deleted variable.

diff --git a/etc/NEWS b/etc/NEWS
index ef6e7216e24fa11b3738d3e16e6a689b00f0211a..9fe7c97549a09395999d962f3cd303de37ff813a 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2276,7 +2276,8 @@ This change is now applied in 'dired-insert-directory'.
 'deferred-action-function', 'dired-x-submit-report',
 'eieio-defgeneric', 'eieio-defmethod', 'emacs-lock-from-exiting',
 'erc-complete-word', 'eshell-cmpl-suffix-list', 'eshell-for',
-'gnus-carpal', 'gnus-debug-exclude-variables', 'gnus-debug-files',
+'font-lock-maximum-size', 'gnus-carpal',
+'gnus-debug-exclude-variables', 'gnus-debug-files',
 'gnus-local-domain', 'gnus-outgoing-message-group',
 'gnus-registry-user-format-function-M', 'image-extension-data',
 'image-library-alist', 'inhibit-first-line-modes-regexps',

diff --git a/lisp/font-core.el b/lisp/font-core.el
index 2b75309ff3f419b829e702e0fa0bbd9b0bb01d9d..db07aa011c472ebd1c79e83d2bcacd0838f83568 100644 (file)
--- a/lisp/font-core.el
+++ b/lisp/font-core.el
@@ -105,8 +105,7 @@ example, put in your ~/.emacs:
 Where major modes support different levels of fontification, you
 can use the variable `font-lock-maximum-decoration' to specify
 which level you generally prefer.  When you turn Font Lock mode
-on/off the buffer is fontified/defontified, though fontification
-occurs only if the buffer is less than `font-lock-maximum-size'.
+on/off the buffer is fontified/defontified.
 
 To add your own highlighting for some major mode, and modify the
 highlighting selected automatically via the variable

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 206879b169493e391fdcca2264698c61ef49513b..181a7dc90ef3a57426c0d28fca12a8bf08bb3de1 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -47,9 +47,9 @@
 ;;
 ;; Fontification for a particular mode may be available in a number of levels
 ;; of decoration.  The higher the level, the more decoration, but the more time
-;; it takes to fontify.  See the variable `font-lock-maximum-decoration', and
-;; also the variable `font-lock-maximum-size'.  Support modes for Font Lock
-;; mode can be used to speed up Font Lock mode.  See `font-lock-support-mode'.
+;; it takes to fontify.  See the variable `font-lock-maximum-decoration'.
+;; Support modes for Font Lock mode can be used to speed up Font Lock
+;; mode.  See `font-lock-support-mode'.
 \f
 ;;;; How Font Lock mode fontifies:
 
@@ -228,32 +228,6 @@
 \f
 ;; User variables.
 
-(defcustom font-lock-maximum-size 256000
-  "Maximum buffer size for unsupported buffer fontification.
-When `font-lock-support-mode' is nil, only buffers smaller than
-this are fontified.  This variable has no effect if a Font Lock
-support mode (usually `jit-lock-mode') is enabled.
-
-If nil, means size is irrelevant.
-If a list, each element should be a cons pair of the form (MAJOR-MODE . SIZE),
-where MAJOR-MODE is a symbol or t (meaning the default).  For example:
- ((c-mode . 256000) (c++-mode . 256000) (rmail-mode . 1048576))
-means that the maximum size is 250K for buffers in C or C++ modes, one megabyte
-for buffers in Rmail mode, and size is irrelevant otherwise."
-  :type '(choice (const :tag "none" nil)
-                (integer :tag "size")
-                (repeat :menu-tag "mode specific" :tag "mode specific"
-                        :value ((t . nil))
-                        (cons :tag "Instance"
-                              (radio :tag "Mode"
-                                     (const :tag "all" t)
-                                     (symbol :tag "name"))
-                              (radio :tag "Size"
-                                     (const :tag "none" nil)
-                                     (integer :tag "size")))))
-  :group 'font-lock)
-(make-obsolete-variable 'font-lock-maximum-size nil "24.1")
-
 (defcustom font-lock-maximum-decoration t
   "Maximum decoration level for fontification.
 If nil, use the default decoration (typically the minimum available).
@@ -695,15 +669,9 @@ be enabled."
   ;; The first fontification after turning the mode on.  This must
   ;;  only be called after the mode hooks have been run.
   (when (and font-lock-mode
-            (font-lock-specified-p t))
-    (let ((max-size (font-lock-value-in-major-mode font-lock-maximum-size)))
-      (cond (font-lock-fontified
-            nil)
-           ((or (null max-size) (> max-size (buffer-size)))
-             (with-no-warnings (font-lock-fontify-buffer)))
-           (font-lock-verbose
-            (message "Fontifying %s...buffer size greater than font-lock-maximum-size"
-                     (buffer-name)))))))
+             (font-lock-specified-p t)
+             (not font-lock-fontified))
+    (with-no-warnings (font-lock-fontify-buffer))))
 
 (defun font-lock-mode-internal (arg)
   ;; Turn on Font Lock mode.

diff --git a/lisp/info.el b/lisp/info.el
index 0d0dda8c06691940ebc50432bd8de3a570d9a439..7fdb893edc59788bee91cb98f0d7c56915278860 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -133,8 +133,6 @@ orientation.  See `Info-nth-menu-item'.")
   :version "22.1"
   :type 'boolean)
 
-;; It's unfortunate that nil means no fontification, as opposed to no limit,
-;; since that differs from font-lock-maximum-size.
 (defcustom Info-fontify-maximum-menu-size 400000
   "Maximum size of menu to fontify if `font-lock-mode' is non-nil.
 Set to nil to disable node fontification; set to t for no limit."

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 467375dbe1f7c282d4fd3e6787bcc800a8c6e3e6..a970ab2a76026e12b4057e468b787535435b9e5f 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1451,7 +1451,6 @@ If so restore the actual mbox message collection."
   (setq-local font-lock-defaults
               '(rmail-font-lock-keywords
                 t t nil nil
-                (font-lock-maximum-size . nil)
                 (font-lock-dont-widen . t)
                 (font-lock-inhibit-thing-lock . (lazy-lock-mode fast-lock-mode))))
   (setq-local require-final-newline nil)

diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el
index d2e07977e5df324604a23ccae0700af914a305d5..144eb9b3f96b3b4ca73cefe1feeeb1c3071c2718 100644 (file)
--- a/lisp/mh-e/mh-mime.el
+++ b/lisp/mh-e/mh-mime.el
@@ -1141,15 +1141,7 @@ this ;-)"
   "Check if show buffer is small.
 This is used to decide if smileys and graphical emphasis should be
 displayed."
-  (let ((max nil))
-    ;; FIXME: font-lock-maximum-size is obsolete.
-    (when (and (boundp 'font-lock-maximum-size) font-lock-maximum-size)
-      (cond ((numberp font-lock-maximum-size)
-             (setq max font-lock-maximum-size))
-            ((listp font-lock-maximum-size)
-             (setq max (cdr (or (assoc 'mh-show-mode font-lock-maximum-size)
-                                (assoc t font-lock-maximum-size)))))))
-    (or (not (numberp max)) (>= (/ max 8) (buffer-size)))))
+  (>= 32000 (buffer-size)))
 
 \f