From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Dec 2009 16:53:48 +0000 (+0000)
Subject: (ucs-names): Fix last-minute paren-typo.
X-Git-Tag: emacs-pretest-23.1.90~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e07278736e3103b4ad0ae01dfa1deaf2c2684e0e;p=emacs.git

(ucs-names): Fix last-minute paren-typo.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 57060ff9442..c13d96ec7b5 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2918,19 +2918,19 @@ on encoding."
                         ;; We have to split the range.
                         (push (cons first last) ranges)
                         (setq first (setq last c)))))
-                  (cons (cons first last) ranges))))
-             name names)
-            (dolist (range ranges)
-              (let ((c (car range))
-                    (end (cdr range)))
-                (while (<= c end)
-                  (if (setq name (get-char-code-property c 'name))
-                      (push (cons name c) names)
-                    (error "Wrong range"))
-                  (if (setq name (get-char-code-property c 'old-name))
-                      (push (cons name c) names))
-                  (setq c (1+ c)))))
-            (setq ucs-names names)))))
+                  (cons (cons first last) ranges)))))
+            name names)
+        (dolist (range ranges)
+          (let ((c (car range))
+                (end (cdr range)))
+            (while (<= c end)
+              (if (setq name (get-char-code-property c 'name))
+                  (push (cons name c) names)
+                (error "Wrong range"))
+              (if (setq name (get-char-code-property c 'old-name))
+                  (push (cons name c) names))
+              (setq c (1+ c)))))
+        (setq ucs-names names))))
 
 (defvar ucs-completions (lazy-completion-table ucs-completions ucs-names)
   "Lazy completion table for completing on Unicode character names.")