[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#14325: 24.3; cc-mode does not initialize correctly w/ -batch
From: |
Glenn Morris |
Subject: |
bug#14325: 24.3; cc-mode does not initialize correctly w/ -batch |
Date: |
Tue, 30 Apr 2013 23:37:16 -0400 |
User-agent: |
Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) |
Glenn Morris wrote:
> To me, c-standard-font-lock-fontify-region-function seems pointless in
> Emacs, where font-lock is preloaded since 22.1.
Even it is wasn't preloaded, I still don't see anything wrong with the
following. cc-mode only changes the buffer-local value.
*** lisp/progmodes/cc-mode.el 2013-04-15 16:10:24 +0000
--- lisp/progmodes/cc-mode.el 2013-05-01 03:34:59 +0000
***************
*** 1160,1168 ****
;; `c-set-fl-decl-start' for the detailed functionality.
(cons (c-set-fl-decl-start beg) end))
- (defvar c-standard-font-lock-fontify-region-function nil
- "Standard value of `font-lock-fontify-region-function'")
-
(defun c-font-lock-fontify-region (beg end &optional verbose)
;; Effectively advice around `font-lock-fontify-region' which extends the
;; region (BEG END), for example, to avoid context fontification chopping
--- 1160,1165 ----
***************
*** 1187,1193 ****
(setq new-region (funcall fn new-beg new-end))
(setq new-beg (car new-region) new-end (cdr new-region)))
c-before-context-fontification-functions))))
! (funcall c-standard-font-lock-fontify-region-function
new-beg new-end verbose)))
(defun c-after-font-lock-init ()
--- 1184,1190 ----
(setq new-region (funcall fn new-beg new-end))
(setq new-beg (car new-region) new-end (cdr new-region)))
c-before-context-fontification-functions))))
! (funcall (default-value 'font-lock-fontify-region-function)
new-beg new-end verbose)))
(defun c-after-font-lock-init ()
***************
*** 1195,1203 ****
;; function will get executed before the font-lock one. Amongst other
;; things.
(remove-hook 'after-change-functions 'c-after-change t)
! (add-hook 'after-change-functions 'c-after-change nil t)
! (setq c-standard-font-lock-fontify-region-function
! (default-value 'font-lock-fontify-region-function)))
(defun c-font-lock-init ()
"Set up the font-lock variables for using the font-lock support in CC Mode.
--- 1192,1198 ----
;; function will get executed before the font-lock one. Amongst other
;; things.
(remove-hook 'after-change-functions 'c-after-change t)
! (add-hook 'after-change-functions 'c-after-change nil t))
(defun c-font-lock-init ()
"Set up the font-lock variables for using the font-lock support in CC Mode.