Mercurial > emacs
changeset 73060:5d2e9706764f
(woman0-so): Use `let*', not `let'.
(woman-horizontal-line): Remove unbalanced parenthesis.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 22 Sep 2006 21:32:25 +0000 |
| parents | 1837e6621075 |
| children | 0b12c2c3fdb1 |
| files | lisp/woman.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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) ?_)))