GNU bug report logs - #6422
[describe-char PATCH 1/2] describe-char: add missing space in Unicode "Decomposition" line

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Gustav Hållberg <gustav <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: [describe-char PATCH 1/2] describe-char: add missing space in
	Unicode "Decomposition" line
Date: Mon, 14 Jun 2010 14:23:43 +0200

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"

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.