Mercurial > emacs
changeset 19944:e274dc2d61f1
(quail-completion-list-translations): Fix
and simplify generation of translation list.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 16 Sep 1997 07:04:03 +0000 |
| parents | 23ada3fdbc8b |
| children | 3808d67c4e72 |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 6 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/quail.el Tue Sep 16 01:57:52 1997 +0000 +++ b/lisp/international/quail.el Tue Sep 16 07:04:03 1997 +0000 @@ -1659,21 +1659,16 @@ ;; Insert every 10 elements with indices in a line. (let ((len (length translations)) (i 0) - (first t) num) (while (< i len) - (if first - (progn - (insert "(1/1)") - (setq first nil)) - (if (= (% i 10) 0) - (progn - (newline) - (indent-to indent) - (insert (format "(%d/%d)" (1+ (/ i 10)) (1+ (/ len 10))))))) + (when (zerop (% i 10)) + (when (>= i 10) + (newline) + (indent-to indent)) + (insert (format "(%d/%d)" (1+ (/ i 10)) (1+ (/ len 10))))) ;; We show the last digit of FROM while converting ;; 0,1,..,9 to 1,2,..,0. - (insert (format " %d." (if (= (% i 10) 9) 0 (1+ (% i 10))))) + (insert (format " %d." (% (1+ i) 10))) (insert (aref translations i)) (setq i (1+ i))) (newline)))))