0

I have this code to highlight tab characters and want to disable them using project-specifics macro:

(require 'highlight-chars)
(make-variable-buffer-local 'prevent-highlight-tabs)
(setq highlight-chars-disable '(term-mode erc-mode fundamental-mode))
(setq-default prevent-highlight-tabs nil)
(add-hook 'font-lock-mode-hook
          (lambda()
            (message "lock")
            (when (and (null (memql major-mode highlight-chars-disable))
                       (not prevent-highlight-tabs))
              (message "%s" prevent-highlight-tabs)
              (hc-highlight-tabs))))
(custom-set-faces '(hc-tab ((t (:background "red")))))

and project-specifics is a macro that define add find-file-hook and dired-after-readin-hook from this question

(project-specifics "projects/test"
  (message "specific")
  (setq prevent-highlight-tabs t)
  (setq indent-tabs-mode t))

What I wanted to do is disable red tabs (I want them because in most projects I want only spaces, and want to see tabs) for files in project/test, but I have a problem because the code from font-lock-mode-hook is executing before project-specifics (find-file-hook), and prevent-highlight-tabs is always nil in font-lock-mode-hook. Why is that, and how to fix it?

Community
  • 1
  • 1
jcubic
  • 61,973
  • 54
  • 229
  • 402
  • The in-built `whitespace-mode` might be useful to you. (It might also be over-kill and over-complicated for your needs, but is certainly worth playing with.) – phils Mar 27 '14 at 21:18
  • @phils I wanted to use whitespace-mode in the first try, but then when someone suggest to use `highlight-chars` instead. – jcubic Mar 28 '14 at 08:11

2 Answers2

2

I suggest that you place your settings in .dir-locals.el as described in Per-Directory Local Variables.

sds
  • 58,617
  • 29
  • 161
  • 278
1

What you are doing seems convoluted.

And it is partly undefined (here) - e.g., what is the major mode highlight-chars-disable? That is not defined in library highlight-chars.el, and it doesn't sound like something that would be a good candidate for a major mode.

See the Commentary of library highlight-chars.el for suggestions.

Something like this, perhaps (and you would put property prevent-highlight-tabs on any major-mode symbols you like:

(add-hook 'font-lock-mode-hook
          (lambda () (unless (get major-mode 'prevent-highlight-tabs)
                       (hc-highlight-tabs))))

Or something like this (from the Commentary):

(add-hook 'change-major-mode-hook
          (lambda ()
            (add-hook 'font-lock-mode-hook 'hc-highlight-tabs)))

(add-hook 'after-change-major-mode-hook
          (lambda ()
            (when (eq major-mode 'THE-MODE)
              (remove-hook 'font-lock-mode-hook 'hc-highlight-tabs)
              (hc-dont-highlight-tabs)))
          'APPEND)
Drew
  • 29,895
  • 7
  • 74
  • 104
  • sorry didn't included `highlight-chars-disable`, it's a list of modes that should not have marked tabs. – jcubic Mar 27 '14 at 21:37