emacs save-excursion не восстанавливает точку?

Я запускаю эту функцию (интерактивно и в ловушке) для переформатирования исходного кода

(defun a-style ()                                                                                                                                                                                         
  (interactive)                                                                                                                                                                                           
  (save-excursion                                                                                                                                                                                         
    (shell-command-on-region (point-min) (point-max) "/usr/local/bin/astyle -A10 -s4 -m0 -M40 -k1 -W0 -z2 -xd -CSKNLwYfpHjJcn" t t)))

, но сохраняю- Экскурсия не работает, точка всегда перескакивает на 1 (хотя команда оболочки работает!). Я упустил что-то очевидное?

Спасибо, Марио

РЕДАКТИРОВАТЬ:

Итак, я в конце концов сделал это наивным способом:

(defun a-style ()                                                                                                                                                                                         
  (interactive)                                                                                                                                                                                           
  (setq temp-point (point))                                                                                                                                                                               
  (shell-command-on-region (point-min) (point-max) "/usr/local/bin/astyle -A10 -s4 -m0 -M40 -k1 -W0 -z2 -xd -CSKNLwYfpHjJcn" t t)                                                                         
  (goto-char temp-point))

Вроде глупо, но делает то, что я хочу. Если кто-нибудь знает лучшее решение, я был бы признателен.