Re: AdaGIDE 7.42 and tabs

[Simon Wright <simon.j.wright@mac.com>]

"Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> writes:

> That would be fine to me, unfortunately indent-block inserts HTs.

In this ada-mode, there's a write-file-hook that removes trailing
spaces & untabifies the buffer.

(defun ada-set-write-file-hook ()
  "Reset the `local-write-file-hooks' for support of ada-mode.
As a result, the buffer is cleaned up upon saving, according
to the rules described for `ada-clean-buffer-before-saving'."
  (if (and ada-clean-buffer-before-saving
           (null local-write-file-hooks))
      (progn
        ;; remove all spaces at the end of lines in the whole buffer.
        (add-hook 'local-write-file-hooks
                  'delete-trailing-whitespace)
        ;; convert all tabs to the correct number of spaces.
        (add-hook 'local-write-file-hooks
                  (lambda () (untabify (point-min) (point-max))))
        )))