[Emacs-diffs] feature/byte-switch 6a82d19 1/2: * lisp/emacs-lisp/disass.el: Fix spacing while showing jump tables

[Vibhav Pant]

branch: feature/byte-switch
commit 6a82d19db18f8480342cc4c1a0ad76c75df41941
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>

    * lisp/emacs-lisp/disass.el: Fix spacing while showing jump tables
---
 lisp/emacs-lisp/disass.el |   12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index 22c1c96..66673b4 100644
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -224,10 +224,14 @@ OBJ should be a call to BYTE-CODE generated by the byte 
compiler."
                  ;; if the succeeding op is byte-switch, display the jump table
                  ;; used
                 (cond ((eq (car-safe (car-safe (cdr lap))) 'byte-switch)
-                         (insert (format "<jump-table-%s ( " (hash-table-test 
arg)))
-                         (maphash #'(lambda (value tag)
-                                      (insert (format "%s %s " value (cadr 
tag))))
-                                  arg)
+                         (insert (format "<jump-table-%s (" (hash-table-test 
arg)))
+                         (let ((first-time t))
+                           (maphash #'(lambda (value tag)
+                                        (if first-time
+                                            (setq first-time nil)
+                                          (insert " "))
+                                        (insert (format "%s %s" value (cadr 
tag))))
+                                    arg))
                          (insert ")>"))
                   ;; if the value of the constant is compiled code, then
                   ;; recursively disassemble it.