Re: Tabs in texi files

[Kevin Ryde <user42@zip.com.au>]

Didier Verna <didier@xemacs.org> writes:
>
> So what's the general recommendation for texi files ?

I use the spot of code below to see any tabs that creep in (usually
from cutting and pasting code).  I've kept meaning to propose
something like it for texinfo-mode, but I've been through various
versions and still haven't got to a balance between warning vs fixing
vs being overly intrusive.


(defun my-texinfo-tab-warn-face (beg end)
  "Put `trailing-whitespace' face on any tabs from BEG to END, as a warning."
  (save-excursion
    (goto-char beg)
    (let ((modified (buffer-modified-p)))
      (while (re-search-forward "\t+" end t)
        (put-text-property (match-beginning 0) (match-end 0)
                           'face 'trailing-whitespace))
      (set-buffer-modified-p modified))))

(add-hook 'after-change-functions
          (lambda (beg end prev-len)
            (if (eq major-mode 'texinfo-mode)
                (my-texinfo-tab-warn-face beg end))))

(add-hook 'texinfo-mode-hook
          (lambda ()
            (my-texinfo-tab-warn-face (point-min) (point-max))))