From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 22 Sep 2006 21:35:30 +0000 (+0000)
Subject: (woman0-so): Use `let*', not `let'.
X-Git-Tag: emacs-pretest-22.0.90~396
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da37d01fcedaa3594fe4141d3d89df159238c2d6;p=emacs.git

(woman0-so): Use `let*', not `let'.
(woman-horizontal-line): Remove unbalanced parenthesis.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89d22c0bb5a..61046f58917 100644
--- 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 55396f607eb..13fa3147487 100644
--- 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) ?_)))