1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index c322a6899a0..ace46b6ccaa 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -230,8 +230,8 @@ sequence VECTOR.  (VECTOR is normally one character long.)")
               (aset deadvec 0 deadkey)
               (define-key isearch-mode-map (vector deadkey) nil)
               (define-key key-translation-map deadvec (cdr (car alist)))))
-        (setq tail (cdr tail)))))
-  (setq alist (cdr alist)))
+        (setq tail (cdr tail))))
+    (setq alist (cdr alist))))
 
 (defun iso-transl-set-language (lang)
   (interactive (list (let ((completion-ignore-case t))