parouby
/
Pamhyr2
mirror of https://gitlab.com/pamhyr/pamhyr2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/license.el
View File

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