Re: Fontless Info

[Dmitry Gutov]

Hey Alan,

Alan Mackenzie <address@hidden> 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))))