[elpa] externals/auto-header 5195004da5 15/26: Skip a potential comment at the beginning of a file

[ELPA Syncer]

branch: externals/auto-header
commit 5195004da54e885b73a52ac1d91e2531e57fad62
Author: Philip Kaludercic <philip.kaludercic@fau.de>
Commit: Philip Kaludercic <philip.kaludercic@fau.de>

    Skip a potential comment at the beginning of a file
---
 auto-header.el | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/auto-header.el b/auto-header.el
index 24add178ca..c6e9fa00cd 100644
--- a/auto-header.el
+++ b/auto-header.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2022  Philip Kaludercic
 
 ;; Author: Philip Kaludercic <philip.kaludercic@fau.de>
-;; Version: $Id: auto-header.el,v 1.11 2022/05/16 08:32:02 oj14ozun Exp 
oj14ozun $
+;; Version: $Id: auto-header.el,v 1.11 2022/05/16 08:32:02 oj14ozun Exp $
 ;; URL: https://wwwcip.cs.fau.de/~oj14ozun/src+etc/auto-header.el
 ;; Package-Version: 1
 ;; Keywords: c
@@ -85,24 +85,24 @@
     (widen)
     (save-excursion
       (goto-char (point-min))
+      (when (forward-comment 1)
+       (search-forward-regexp "^.+$" nil t)
+       (forward-paragraph))
       (dolist (header headers)
-        (insert "#include <" header ">")
-        (newline))
+       (insert "#include <" header ">")
+       (newline))
       (goto-char (point-max))
       (when (search-backward-regexp "#include ?<" nil t)
-        (save-restriction
-          (narrow-to-region (point-min) (line-end-position))
-          (delete-duplicate-lines (point-min) (point-max) nil nil t)
-          (sort-lines nil (point-min) (point-max))
-          (goto-char (point-max))
-          (newline))
-        (delete-blank-lines))
-      (newline))))
-
-(defun auto-header-insert (header)
-  "Add HEADER to the top of the file."
-  (interactive "MAdd header: ")
-  (auto-header--insert-headers (list header)))
+       (save-restriction
+         (let ((end (line-end-position)))
+           (goto-char (point-min))
+           (forward-comment 1)
+           (narrow-to-region (point) end)
+           (delete-duplicate-lines (point-min) (point-max) nil nil t)
+           (sort-lines nil (point-min) (point-max)))
+         (goto-char (point-max))
+         (newline))
+       (delete-blank-lines)))))
 
 ;;;###autoload
 (defun auto-header-at-point (name)