diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-12-07 16:53:48 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-12-07 16:53:48 +0000 |
commit | d4366ffc9b2eb384d87c6a9fc4903a84cc31adfb (patch) | |
tree | 5550c992b579f066bd081ea53b2357620f02f219 | |
parent | 7dcff5dbd54f197c68c57a7d24e18b073442dc34 (diff) | |
download | emacs-d4366ffc9b2eb384d87c6a9fc4903a84cc31adfb.tar.gz |
(ucs-names): Fix last-minute paren-typo.
-rw-r--r-- | lisp/international/mule-cmds.el | 26 |
1 files changed, 13 insertions, 13 deletions
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.") |