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 | e07278736e3103b4ad0ae01dfa1deaf2c2684e0e (patch) | |
tree | 9bb9c5a7f8004e67f2334f8da536098f29f53284 | |
parent | f82b1493b0806914f2bf73c41166687b16ebf251 (diff) | |
download | emacs-e07278736e3103b4ad0ae01dfa1deaf2c2684e0e.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.") |