# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1148371465 0
# Node ID 993df0652ff7f4fc3ce9e3845a9bc2b9cc0efbbb
# Parent  426725b2ce9a17b74cb49cb04126b35f45edc257
Refill; nfc.

diff -r 426725b2ce9a -r 993df0652ff7 lisp/emacs-lisp/bindat.el
--- a/lisp/emacs-lisp/bindat.el	Tue May 23 07:31:45 2006 +0000
+++ b/lisp/emacs-lisp/bindat.el	Tue May 23 08:04:25 2006 +0000
@@ -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))))