diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-09-22 21:35:30 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-09-22 21:35:30 +0000 |
| commit | da37d01fcedaa3594fe4141d3d89df159238c2d6 (patch) | |
| tree | d750bf0f4cab022f7cd9df3b8a0baccaf9841625 /lisp/woman.el | |
| parent | 8cc8239e5e33846c4d74b0a5d89429ff6daa0177 (diff) | |
| download | emacs-da37d01fcedaa3594fe4141d3d89df159238c2d6.tar.gz | |
(woman0-so): Use `let*', not `let'.
(woman-horizontal-line): Remove unbalanced parenthesis.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 8 |
1 files changed, 4 insertions, 4 deletions
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) ?_))) |