Re: Tabs in texi files

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <873b3pf07b.fsf@zip.com.au> Kevin Ryde wrote:

> 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))))

I use:

http://www.jpl.org/ftp/pub/elisp/develock.el.gz
(or ftp://ftp.jpl.org/pub/elisp/develock.el.gz)