Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(woman-horizontal-line): Remove unbalanced parenthesis.
This commit is contained in:
Juanma Barranquero 2006-09-22 21:35:30 +00:00
parent 8cc8239e5e
commit da37d01fce
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

8
lisp/woman.el
View file

@ -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) ?_)))