fix character encoding for utf-8 (elisp)

(let ((chars '(("ú" . "ú")
               ("á" . "á")
               ("í" . "í")
               ("ó" . "ó")
               ("é" . "é"))))
  (dolist (char chars)
    (save-excursion
      (goto-char (point-min))
      (while (search-forward (car char) nil t)
        (replace-match (cdr char) t)))))