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

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

[nongnu] elpa/annotate 2f4cbcdb3d 324/372: - fixed indentation.


From: ELPA Syncer
Subject: [nongnu] elpa/annotate 2f4cbcdb3d 324/372: - fixed indentation.
Date: Fri, 4 Feb 2022 16:59:15 -0500 (EST)

branch: elpa/annotate
commit 2f4cbcdb3d6dd9f0dbc49b9af491c7c564dc07cb
Author: cage <cage@localhost>
Commit: cage <cage@invalid>

    - fixed indentation.
---
 annotate.el | 58 +++++++++++++++++++++++++++++-----------------------------
 1 file changed, 29 insertions(+), 29 deletions(-)

diff --git a/annotate.el b/annotate.el
index 42f1c407c7..5d4815dcad 100644
--- a/annotate.el
+++ b/annotate.el
@@ -2490,35 +2490,35 @@ results can be filtered with a simple query language: 
see
           (when annotate-use-messages
             (message "The annotation database is empty"))
         (with-current-buffer-window
-         annotate-summary-buffer-name nil nil
-         (display-buffer annotate-summary-buffer-name)
-         (select-window (get-buffer-window annotate-summary-buffer-name t))
-         (outline-mode)
-         (use-local-map nil)
-         (local-set-key "q" (lambda ()
-                              (interactive)
-                              (kill-buffer annotate-summary-buffer-name)))
-         (dolist (annotation dump)
-           (let* ((all-annotations (annotate-annotations-from-dump annotation))
-                  (db-filename     (annotate-filename-from-dump annotation)))
-             (when (not (null all-annotations))
-               (insert (format (concat annotate-summary-list-prefix-file 
"%s\n\n")
-                               db-filename))
-               (dolist (annotation-field all-annotations)
-                 (let* ((button-text      (format "%s"
-                                                  (annotate-annotation-string 
annotation-field)))
-                        (annotation-begin (annotate-beginning-of-annotation 
annotation-field))
-                        (annotation-end   (annotate-ending-of-annotation    
annotation-field))
-                        (snippet-text     (build-snippet db-filename
-                                                         annotation-begin
-                                                         annotation-end)))
-                   (insert-item-summary db-filename
-                                        snippet-text
-                                        button-text
-                                        annotation-begin
-                                        annotation-end
-                                        filter-query))))))
-         (read-only-mode 1))))))
+            annotate-summary-buffer-name nil nil
+          (display-buffer annotate-summary-buffer-name)
+          (select-window (get-buffer-window annotate-summary-buffer-name t))
+          (outline-mode)
+          (use-local-map nil)
+          (local-set-key "q" (lambda ()
+                               (interactive)
+                               (kill-buffer annotate-summary-buffer-name)))
+          (dolist (annotation dump)
+            (let* ((all-annotations (annotate-annotations-from-dump 
annotation))
+                   (db-filename     (annotate-filename-from-dump annotation)))
+              (when (not (null all-annotations))
+                (insert (format (concat annotate-summary-list-prefix-file 
"%s\n\n")
+                                db-filename))
+                (dolist (annotation-field all-annotations)
+                  (let* ((button-text      (format "%s"
+                                                   (annotate-annotation-string 
annotation-field)))
+                         (annotation-begin (annotate-beginning-of-annotation 
annotation-field))
+                         (annotation-end   (annotate-ending-of-annotation    
annotation-field))
+                         (snippet-text     (build-snippet db-filename
+                                                          annotation-begin
+                                                          annotation-end)))
+                    (insert-item-summary db-filename
+                                         snippet-text
+                                         button-text
+                                         annotation-begin
+                                         annotation-end
+                                         filter-query))))))
+          (read-only-mode 1))))))
 
 ;;;; end summary window procedures
 



reply via email to

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