[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bindat.el

[Thien-Thi Nguyen]

Index: emacs/lisp/emacs-lisp/bindat.el
diff -u emacs/lisp/emacs-lisp/bindat.el:1.8 emacs/lisp/emacs-lisp/bindat.el:1.9
--- emacs/lisp/emacs-lisp/bindat.el:1.8 Mon Feb  6 12:20:06 2006
+++ emacs/lisp/emacs-lisp/bindat.el     Tue May 23 08:04:25 2006
@@ -171,8 +171,8 @@
 ;;          |  INTEGER_CONSTANT
 ;;          |  DEREF
 
-;; DEREF   ::= ( [NAME | INTEGER]... ) -- Field NAME or Array index relative to
-;;                                         current structure spec.
+;; DEREF   ::= ( [NAME | INTEGER]... ) -- Field NAME or Array index relative
+;;                                         to current structure spec.
 ;;                                      -- see bindat-get-field
 
 ;; A `union' specification
@@ -415,7 +415,9 @@
         ((eq type 'repeat)
          (let ((index 0))
            (while (< index len)
-             (bindat--length-group (nth index (bindat-get-field struct field)) 
(nthcdr tail item))
+             (bindat--length-group
+               (nth index (bindat-get-field struct field))
+               (nthcdr tail item))
              (setq index (1+ index)))))
         ((eq type 'union)
          (let ((tag len) (cases (nthcdr tail item)) case cc)
@@ -436,7 +438,7 @@
          (setq pos (+ pos len))))))))
 
 (defun bindat-length (spec struct)
-  "Calculate raw-data length for STRUCT according to bindat specification 
SPEC."
+  "Calculate raw-data length for STRUCT according to bindat SPEC."
   (let ((pos 0))
     (bindat--length-group struct spec)
     pos))
@@ -557,7 +559,9 @@
         ((eq type 'repeat)
          (let ((index 0))
            (while (< index len)
-             (bindat--pack-group (nth index (bindat-get-field struct field)) 
(nthcdr tail item))
+             (bindat--pack-group
+               (nth index (bindat-get-field struct field))
+               (nthcdr tail item))
              (setq index (1+ index)))))
         ((eq type 'union)
          (let ((tag len) (cases (nthcdr tail item)) case cc)
@@ -583,7 +587,8 @@
 to make it unibyte if necessary."
   (let ((no-return raw-data))
     (unless pos (setq pos 0))
-    (unless raw-data (setq raw-data (make-vector (+ pos (bindat-length spec 
struct)) 0)))
+    (unless raw-data
+      (setq raw-data (make-vector (+ pos (bindat-length spec struct)) 0)))
     (bindat--pack-group struct spec)
     (if no-return nil (concat raw-data))))