[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#6422: [describe-char PATCH 1/2] describe-char: add missing space in
From: |
Gustav Hållberg |
Subject: |
bug#6422: [describe-char PATCH 1/2] describe-char: add missing space in Unicode "Decomposition" line |
Date: |
Mon, 14 Jun 2010 14:23:43 +0200 |
User-agent: |
StGit/0.15-114-gf9037 |
If there is an "info" field, make sure to add a space after it.
---
lisp/descr-text.el | 28 ++++++++++++++--------------
1 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 36ee08d..51f7a77 100644
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -288,20 +288,20 @@ This function is semi-obsolete. Use
`get-char-code-property'."
(or (char-code-property-description
'bidi-class (intern val))
val)))
- (list
- "Decomposition"
- (if (nth 4 fields)
- (let* ((parts (split-string (nth 4 fields)))
- (info (car parts)))
- (if (string-match "\\`<\\(.+\\)>\\'" info)
- (setq info (match-string 1 info))
- (setq info nil))
- (if info (setq parts (cdr parts)))
- (setq parts (mapconcat
- (lambda (arg)
- (string (string-to-number arg 16)))
- parts " "))
- (concat info parts))))
+ (list "Decomposition"
+ (let ((field (nth 4 fields)))
+ (when field
+ (let* ((parts (split-string field))
+ (info (car parts)))
+ (if (string-match "\\`<\\(.+\\)>\\'" info)
+ (setq info (match-string 1 info)
+ parts (cdr parts))
+ (setq info nil))
+ (concat info (when info " ")
+ (mapconcat
+ (lambda (arg)
+ (string (string-to-number arg 16)))
+ parts " "))))))
(list "Decimal digit value"
(nth 5 fields))
(list "Digit value"