diff options
Diffstat (limited to 'modeline.el')
-rw-r--r-- | modeline.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/modeline.el b/modeline.el index cb06b0d..91b5b17 100644 --- a/modeline.el +++ b/modeline.el @@ -91,8 +91,10 @@ Characters that take up more than one column will be counted with (let ((name (get-char-code-property char 'name)) (decomposition (get-char-code-property char 'decomposition))) (cond - ((or (string-match (rx-to-string '(seq bos "CJK")) - name) + ((or (and + (stringp name) + (string-match (rx-to-string '(seq bos "CJK")) + name)) (eq (car decomposition) 'wide)) (setq len (+ len 1.7))) ((setq len (1+ len)))))) |