[Emacs-diffs] emacs/lisp/international mule-cmds.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/07 16:53:48

Modified files:
        lisp/international: mule-cmds.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.384&r2=1.385

Patches:
Index: mule-cmds.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.384
retrieving revision 1.385
diff -u -b -r1.384 -r1.385
--- mule-cmds.el        7 Dec 2009 16:12:50 -0000       1.384
+++ mule-cmds.el        7 Dec 2009 16:53:48 -0000       1.385
@@ -2918,7 +2918,7 @@
                         ;; We have to split the range.
                         (push (cons first last) ranges)
                         (setq first (setq last c)))))
-                  (cons (cons first last) ranges))))
+                  (cons (cons first last) ranges)))))
              name names)
             (dolist (range ranges)
               (let ((c (car range))
@@ -2930,7 +2930,7 @@
                   (if (setq name (get-char-code-property c 'old-name))
                       (push (cons name c) names))
                   (setq c (1+ c)))))
-            (setq ucs-names names)))))
+        (setq ucs-names names))))
 
 (defvar ucs-completions (lazy-completion-table ucs-completions ucs-names)
   "Lazy completion table for completing on Unicode character names.")