# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1158960745 0
# Node ID 5d2e9706764f213ddcaa09a31b3729f16fa4fc76
# Parent  1837e6621075386d92f420833a18b9a03d6401be
(woman0-so): Use `let*', not `let'.
(woman-horizontal-line): Remove unbalanced parenthesis.

diff -r 1837e6621075 -r 5d2e9706764f lisp/woman.el
--- a/lisp/woman.el	Fri Sep 22 19:09:45 2006 +0000
+++ b/lisp/woman.el	Fri Sep 22 21:32:25 2006 +0000
@@ -2657,9 +2657,9 @@
 	(error "File `%s' not found" name))
     (beginning-of-line)
     (woman-delete-line 1)
-    (let ((from (point))
-	  (length (woman-insert-file-contents filename 0))
-	  (to (copy-marker (+ from length) t)))
+    (let* ((from (point))
+           (length (woman-insert-file-contents filename 0))
+           (to (copy-marker (+ from length) t)))
       (woman-pre-process-region from to)
       (set-marker to nil)
       (goto-char from)
@@ -3971,7 +3971,7 @@
   (delete-char 1)
   (looking-at "\\(.\\)\\(.*\\)\\1")
   (forward-char 1)
-  (let* ((to (match-end 2)))
+  (let* ((to (match-end 2))
          (from (match-beginning 0))
          (N (woman-parse-numeric-arg))
          (c (if (< (point) to) (following-char) ?_)))