emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/annotate 3bb486d0cf 158/372: - changed `let*' with `let'.


From: ELPA Syncer
Subject: [nongnu] elpa/annotate 3bb486d0cf 158/372: - changed `let*' with `let'.
Date: Fri, 4 Feb 2022 16:58:45 -0500 (EST)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]