(woman0-so): Use `let*', not `let'.

(woman-horizontal-line): Remove unbalanced parenthesis.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89d22c0bb5aa998a260cbef0c1bb8125d1467879..61046f589173700a431cdd64e093042eebc9885a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-22  Juanma Barranquero  <lekktu@gmail.com>
+
+       * woman.el (woman0-so): Use `let*', not `let'.
+       (woman-horizontal-line): Remove unbalanced parenthesis.
+
 2006-09-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * woman.el: Make sure all the end-of-region markers we use have

diff --git a/lisp/woman.el b/lisp/woman.el
index 55396f607eb2eb07a2664b4771b5b1478041b275..13fa314748755be5a08c91db1188e0df88733b49 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -2657,9 +2657,9 @@ If DELETE is non-nil then delete from point."
        (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 @@ Optional argument NUMERIC, if non-nil, means the argument is numeric."
   (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) ?_)))