diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-05-02 17:32:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-05-02 17:32:51 +0000 |
| commit | e5b5b82d4eb877083dafd278c19a4e73357f3dd7 (patch) | |
| tree | 7bf5f389badbf919d4a6d33626fcee5b23cddded /lisp/minibuffer.el | |
| parent | 2bd49e46f4568851ecf267bb79f240c778933c38 (diff) | |
| download | emacs-e5b5b82d4eb877083dafd278c19a4e73357f3dd7.tar.gz | |
(completion--insert-strings): Use string-width rather than length.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 2890978908a..02f695e41d3 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -578,8 +578,9 @@ It also eliminates runs of equal strings." (let* ((length (apply 'max (mapcar (lambda (s) (if (consp s) - (+ (length (car s)) (length (cadr s))) - (length s))) + (+ (string-width (car s)) + (string-width (cadr s))) + (string-width s))) strings))) (window (get-buffer-window (current-buffer) 0)) (wwidth (if window (1- (window-width window)) 79)) @@ -610,8 +611,9 @@ It also eliminates runs of equal strings." `(display (space :align-to ,column)))) (when (< wwidth (+ (max colwidth (if (consp str) - (+ (length (car str)) (length (cadr str))) - (length str))) + (+ (string-width (car str)) + (string-width (cadr str))) + (string-width str))) column)) (delete-char -2) (insert "\n") (setq column 0)) (if (not (consp str)) |