bug-gnu-emacs
[Top][All Lists]
Advanced

[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"






reply via email to

[Prev in Thread] Current Thread [Next in Thread]