comparison lisp/font-lock.el @ 69499:caf8f09897bc

* font-lock.el (font-lock-lines-before): Delete variable, subsumed by the new extend-region feature. (font-lock-after-change-function): Update correspondingly. * jit-lock.el (jit-lock-after-change): Update correspondingly. * progmodes/grep.el (font-lock-lines-before): Don't disable. * modes.texi (Region to Fontify): Remove font-lock-lines-before.

69498:b17150b61168

If a number, only buffers greater than this size have fontification messages."
  :type '(choice (const :tag "never" nil)
		 (other :tag "always" t)
		 (integer :tag "size"))
  :group 'font-lock)

(defcustom font-lock-lines-before 0
  "*Number of lines before the changed text to include in refontification."
  :type 'integer
  :group 'font-lock
  :version "22.1")


;; Originally these variable values were face names such as `bold' etc.
;; Now we create our own faces, but we keep these variables for compatibility
;; and they give users another mechanism for changing face appearance.

      (save-match-data
	(if region
	    ;; Fontify the region the major mode has specified.
	    (setq beg (car region) end (cdr region))
	  ;; Fontify the whole lines which enclose the region.
	  (setq beg (progn (goto-char beg)
			   (forward-line (- font-lock-lines-before)))
		end (progn (goto-char end) (forward-line 1) (point))))
	(font-lock-fontify-region beg end)))))

(defun font-lock-fontify-block (&optional arg)
  "Fontify some lines the way `font-lock-fontify-buffer' would.
The lines could be a function or paragraph, or a specified number of lines.

69499:caf8f09897bc

If a number, only buffers greater than this size have fontification messages."
  :type '(choice (const :tag "never" nil)
		 (other :tag "always" t)
		 (integer :tag "size"))
  :group 'font-lock)


;; Originally these variable values were face names such as `bold' etc.
;; Now we create our own faces, but we keep these variables for compatibility
;; and they give users another mechanism for changing face appearance.

      (save-match-data
	(if region
	    ;; Fontify the region the major mode has specified.
	    (setq beg (car region) end (cdr region))
	  ;; Fontify the whole lines which enclose the region.
	  (setq beg (progn (goto-char beg) (line-beginning-position))
		end (progn (goto-char end) (line-beginning-position 2))))
	(font-lock-fontify-region beg end)))))

(defun font-lock-fontify-block (&optional arg)
  "Fontify some lines the way `font-lock-fontify-buffer' would.
The lines could be a function or paragraph, or a specified number of lines.