commit:     b5e22480d8b5a147889aeab84873f7808c2b8463
Author:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
AuthorDate: Fri Mar 31 05:26:16 2017 +0000
Commit:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
CommitDate: Fri Mar 31 05:26:16 2017 +0000
URL:        https://gitweb.gentoo.org/proj/emacs-tools.git/commit/?id=b5e22480

Update the copyright line only once.

* ebuild-mode.el (ebuild-mode-before-save):
Call ebuild-mode-update-copyright only once per buffer.

 ChangeLog      | 5 +++++
 ebuild-mode.el | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index ecfdf93..5dc7fe2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2017-03-31  Ulrich Müller  <[email protected]>
+
+       * ebuild-mode.el (ebuild-mode-before-save):
+       Call ebuild-mode-update-copyright only once per buffer.
+
 2017-03-17  Ulrich Müller  <[email protected]>
 
        * Version 1.35 released.

diff --git a/ebuild-mode.el b/ebuild-mode.el
index 956b32c..d24355b 100644
--- a/ebuild-mode.el
+++ b/ebuild-mode.el
@@ -289,7 +289,9 @@ Optional argument LIMIT restarts collection after that 
number of elements."
     (delete-trailing-whitespace)
     (ebuild-mode-tabify))
   (when ebuild-mode-update-copyright
-    (ebuild-mode-update-copyright))
+    (ebuild-mode-update-copyright)
+    ;; call it only once per buffer
+    (set (make-local-variable 'ebuild-mode-update-copyright) nil))
   (when ebuild-mode-delete-cvs-line
     (ebuild-mode-delete-cvs-line))
   ;; return nil, otherwise the file is presumed to be written

Reply via email to