Re: Fontless Info

[Dmitry Gutov <dgutov@yandex.ru>]

Hey Alan,

Alan Mackenzie <acm@muc.de> writes:
>> This happens because font-lock-mode gets turned off in Info buffers.
>> Type "M-x font-lock-mode RET", and all the niceties are back.  (You
>> could guess that this is the problem if you'd go to the un-decorated
>> text and type "M-x describe-text-properties RET" there.)
>
>> The reason seems to be the changes in revision 111794: their result is
>> that, after Info mode is turned on and turns on font-lock, font-lock
>> is turned off again by something called
>> global-font-lock-mode-check-buffers.  And to make things _really_
>> interesting, if you run this under Edebug, the problem disappears...
>
> Thanks for the prod!
>
>> Since the voodoo of easy-mmode is beyond me, I'll let others fix this.
>
> This might well do the trick:

I've applied the patch, bootstrapped, and it [still] has problems with
whitespace-mode. To reproduce:

1. Run emacs -Q

2. Eval (add-hook 'prog-mode 'whitespace-mode)

3. Open any .el file, for example => no syntax highligting

> === modified file 'lisp/emacs-lisp/easy-mmode.el'
> *** lisp/emacs-lisp/easy-mmode.el	2013-02-15 20:01:51 +0000
> --- lisp/emacs-lisp/easy-mmode.el	2013-02-19 23:03:30 +0000
> ***************
> *** 417,423 ****
>   	 ;; Go through existing buffers.
>   	 (dolist (buf (buffer-list))
>   	   (with-current-buffer buf
> ! 	     (if ,global-mode (,turn-on) (when ,mode (,mode -1))))))
>   
>          ;; Autoloading define-globalized-minor-mode autoloads everything
>          ;; up-to-here.
> --- 417,425 ----
>   	 ;; Go through existing buffers.
>   	 (dolist (buf (buffer-list))
>   	   (with-current-buffer buf
> ! 	     (if ,global-mode
> ! 		 (,turn-on)
> ! 	       (when ,mode (let (,disable-MODE) (,mode -1)))))))
>   
>          ;; Autoloading define-globalized-minor-mode autoloads everything
>          ;; up-to-here.
> ***************
> *** 439,445 ****
>   		   (if ,mode (,mode -1))
>   		 (unless (eq ,MODE-major-mode major-mode)
>   		   (if ,mode
> ! 		       (progn
>   			 (,mode -1)
>   			 (,turn-on))
>   		     (,turn-on))))
> --- 441,447 ----
>   		   (if ,mode (,mode -1))
>   		 (unless (eq ,MODE-major-mode major-mode)
>   		   (if ,mode
> ! 		       (let (,disable-MODE)
>   			 (,mode -1)
>   			 (,turn-on))
>   		     (,turn-on))))