tools: Update licence emacs script.

scenarios
Pierre-Antoine 2025-08-18 15:32:16 +02:00
parent f13ab03192
commit 2336dd22f3
1 changed files with 6 additions and 4 deletions

View File

@ -1,5 +1,5 @@
;; license.el -- Pamhyr
;; Copyright (C) 2023-2024 INRAE
;; Copyright (C) 2023-2025 INRAE
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@ -24,7 +24,7 @@
(let ((filename (pamhyr-current-filename)))
(insert (format
"# %s -- Pamhyr
# Copyright (C) 2024 INRAE
# Copyright (C) 2025 INRAE
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -46,8 +46,10 @@
(interactive)
(let ((pos (point)))
(goto-char (point-min))
(while (re-search-forward "Copyright (C) 2023 INRAE" nil t)
(replace-match "Copyright (C) 2023-2024 INRAE"))
(while (re-search-forward "Copyright (C) 2023-2025 INRAE" nil t)
(replace-match "Copyright (C) 2023-2025 INRAE"))
(while (re-search-forward "Copyright (C) 2024 INRAE" nil t)
(replace-match "Copyright (C) 2024-2025 INRAE"))
(goto-char pos)))
(defun pamhyr-root-dir-rec-aux (dir)