From da37d01fcedaa3594fe4141d3d89df159238c2d6 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 22 Sep 2006 21:35:30 +0000 Subject: [PATCH] (woman0-so): Use `let*', not `let'. (woman-horizontal-line): Remove unbalanced parenthesis. --- lisp/ChangeLog | 5 +++++ lisp/woman.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + + * woman.el (woman0-so): Use `let*', not `let'. + (woman-horizontal-line): Remove unbalanced parenthesis. + 2006-09-22 Stefan Monnier * 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) ?_))) -- 2.39.2