;; 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.")