branch: elpa/annotate
commit 3bb486d0cf706eee3d7f2f8e039eb43c280c2b56
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- changed `let*' with `let'.
---
annotate.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/annotate.el b/annotate.el
index e7821f3a6b..8552224537 100644
--- a/annotate.el
+++ b/annotate.el
@@ -780,13 +780,16 @@ to 'maximum-width'."
(let ((newline-position (point)))
(goto-char (1- (point))) ; we start at the start of the previous line
;; find overlays in the preceding line
- (let* ((prefix-first (annotate-make-prefix)) ; white spaces before
first line of annotation
- (prefix-rest (make-string annotate-annotation-column ? ))
- (bol (progn (beginning-of-line) (point)))
- (eol (progn (end-of-line) (point)))
- (text "")
- (overlays nil)
- (annotation-counter 1))
+ (let ((prefix-first (annotate-make-prefix)) ; white spaces
+ ; before first
+ ; line of
+ ; annotation
+ (prefix-rest (make-string annotate-annotation-column ? ))
+ (bol (progn (beginning-of-line) (point)))
+ (eol (progn (end-of-line) (point)))
+ (text "")
+ (overlays nil)
+ (annotation-counter 1))
;; include previous line if point is at bol:
(when (null (overlays-in bol eol))
(setq bol (1- bol)))
