# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 870576647 0
# Node ID 9f4b95f30c4f45bf529d3293bcf0946d711d6ac8
# Parent  8fdb29b769edf5e7c62297e26e085676f9ea7302
(quail-next-translation): Call
quail-execute-non-quail-command when no current translations.
(quail-prev-translation): Likewise.
(quail-next-translation-block): Likewise.
(quail-prev-translation-block): Likewise.

diff -r 8fdb29b769ed -r 9f4b95f30c4f lisp/international/quail.el
--- a/lisp/international/quail.el	Sat Aug 02 21:59:55 1997 +0000
+++ b/lisp/international/quail.el	Sun Aug 03 02:50:47 1997 +0000
@@ -1189,12 +1189,12 @@
   (if quail-current-translations
       (let ((indices (car quail-current-translations)))
 	(if (= (1+ (car indices)) (length (cdr quail-current-translations)))
-	    ;; We are alread at the tail.
+	    ;; We are already at the tail.
 	    (beep)
 	  (setcar indices (1+ (car indices)))
 	  (quail-update-current-translations)
 	  (quail-update-translation nil)))
-    (beep)))
+    (quail-execute-non-quail-command)))
 
 (defun quail-prev-translation ()
   "Select previous translation in the current batch of candidates."
@@ -1207,7 +1207,7 @@
 	  (setcar indices (1- (car indices)))
 	  (quail-update-current-translations)
 	  (quail-update-translation nil)))
-    (beep)))
+    (quail-execute-non-quail-command)))
 
 (defun quail-next-translation-block ()
   "Select from the next block of translations."
@@ -1221,7 +1221,7 @@
 	  (setcar indices (+ (nth 2 indices) offset))
 	  (quail-update-current-translations)
 	  (quail-update-translation nil)))
-    (beep)))
+    (quail-execute-non-quail-command)))
 
 (defun quail-prev-translation-block ()
   "Select the previous batch of 10 translation candidates."
@@ -1239,7 +1239,7 @@
 		(setcar indices (+ (nth 1 indices) offset))
 		(quail-update-current-translations)))
 	  (quail-update-translation nil)))
-    (beep)))
+    (quail-execute-non-quail-command)))
 
 (defun quail-abort-translation ()
   "Abort translation and delete the current Quail key sequence."