Mercurial > emacs
changeset 106477:51b191bf2e2e
(ucs-names): Fix last-minute paren-typo.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 07 Dec 2009 16:53:48 +0000 |
| parents | 97d377672952 |
| children | 1d70a4746fc4 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 13 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Mon Dec 07 16:18:42 2009 +0000 +++ b/lisp/international/mule-cmds.el Mon Dec 07 16:53:48 2009 +0000 @@ -2918,19 +2918,19 @@ ;; 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.")