Automatically preview changes to an SVG in emacs on every save.

gistfile1.el

(defun refresh-svg-preview ()
  (interactive)
  (let ((oldbuf (current-buffer)))
    (with-current-buffer (get-buffer-create "*svg-preview*")
      (fundamental-mode)
      (erase-buffer)
      (insert-buffer-substring oldbuf)
      (image-mode))))

(global-set-key '[(ctrl c) (ctrl %)]
                (lambda () 
                  (interactive)
                  (if (member 'refresh-svg-preview after-save-hook)
                      (progn
                        (remove-hook 'after-save-hook 'refresh-svg-preview t)
                        (message "No longer previewing on save."))
                    (progn
                      (add-hook 'after-save-hook 'refresh-svg-preview nil t)
                      (message "Previewing this SVG on save.")))))