Use "Protesilaos" instead of "Protesilaos Stavrou"externals/agitate

As I announced here: <https://protesilaos.com/news/2026-04-21-omitting-the-surname/>.

3 files changed, 18 insertions, 18 deletions

diff --git a/COPYING b/COPYING
index 89d9142..92e39a9 100644
--- a/COPYING
+++ b/COPYING
@@ -632,7 +632,7 @@ state the exclusion of warranty; and each file should have at least
 the "copyright" line and a pointer to where the full notice is found.
 
     <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) 2021  Protesilaos Stavrou
+    Copyright (C) 2021  Protesilaos
 
     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
@@ -652,7 +652,7 @@ Also add information on how to contact you by electronic and paper mail.
   If the program does terminal interaction, make it output a short
 notice like this when it starts in an interactive mode:
 
-    <program>  Copyright (C) 2021  Protesilaos Stavrou
+    <program>  Copyright (C) 2021  Protesilaos
     This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
     This is free software, and you are welcome to redistribute it
     under certain conditions; type `show c' for details.
diff --git a/README.org b/README.org
index a2eaeec..0b3b568 100644
--- a/README.org
+++ b/README.org
@@ -1,5 +1,5 @@
 #+title: agitate: Extras for diff-mode, vc-git, log-edit, log-view
-#+author: Protesilaos Stavrou
+#+author: Protesilaos
 #+email: info@protesilaos.com
 #+language: en
 #+options: ':t toc:nil author:t email:t num:t
@@ -13,13 +13,13 @@
 #+texinfo_dir_title: Agitate: (agitate)
 #+texinfo_dir_desc: Extras for diff-mode, vc-git, log-edit, log-view
 #+texinfo_header: @set MAINTAINERSITE @uref{https://protesilaos.com,maintainer webpage}
-#+texinfo_header: @set MAINTAINER Protesilaos Stavrou
+#+texinfo_header: @set MAINTAINER Protesilaos
 #+texinfo_header: @set MAINTAINEREMAIL @email{info@protesilaos.com}
 #+texinfo_header: @set MAINTAINERCONTACT @uref{mailto:info@protesilaos.com,contact the maintainer}
 
 #+texinfo: @insertcopying
 
-This manual, written by Protesilaos Stavrou, describes the customization
+This manual, written by Protesilaos, describes the customization
 options for the Emacs package called =agitate= (or =agitate.el=), and
 provides every other piece of information pertinent to it.
 
diff --git a/agitate.el b/agitate.el
index e6adb70..23d15b3 100644
--- a/agitate.el
+++ b/agitate.el
@@ -2,8 +2,8 @@
 
 ;; Copyright (C) 2022-2024  Free Software Foundation, Inc.
 
-;; Author: Protesilaos Stavrou <info@protesilaos.com>
-;; Maintainer: Protesilaos Stavrou <info@protesilaos.com>
+;; Author: Protesilaos <info@protesilaos.com>
+;; Maintainer: Protesilaos <info@protesilaos.com>
 ;; URL: https://github.com/protesilaos/agitate
 ;; Version: 0
 ;; Package-Requires: ((emacs "28.1"))
@@ -114,8 +114,8 @@ none exists, the one closest to it.  On second call, operate on
 the entire buffer.  And on the third time, remove all word-wise
 fontification."
   (interactive nil diff-mode)
-  (when-let (((derived-mode-p 'diff-mode))
-             (point (point)))
+  (when-let* (((derived-mode-p 'diff-mode))
+              (point (point)))
     (pcase agitate--refine-diff-state
       ('current
        (setq-local diff-refine 'font-lock)
@@ -337,7 +337,7 @@ user option `log-edit-keep-buffer'."
 (defun agitate--log-edit-informative-kill-buffer ()
   "Kill the vc-log buffer."
   ;; TODO 2022-10-19: More robust way to get this buffer?
-  (when-let ((buf (get-buffer "*vc-log*")))
+  (when-let* ((buf (get-buffer "*vc-log*")))
     (kill-buffer buf)))
 
 ;;;; Commands for log-view (listings of commits)
@@ -356,15 +356,15 @@ When the log-view is in the long format (detailed view where each
 revision spans several lines), the revision is the one pertinent
 to the text at point."
   (interactive)
-  (when-let ((revision (cadr (log-view-current-entry (point) t))))
+  (when-let* ((revision (cadr (log-view-current-entry (point) t))))
     (kill-new (format "%s" revision))
     (message "Copied: %s" revision)))
 
 (defun agitate--log-view-on-revision-p (&optional pos)
   "Return non-nil if optional POS is on a revision line.
 When POS is nil, use `point'."
-  (when-let ((point (or pos (point)))
-             ((not (log-view-inside-comment-p point))))
+  (when-let* ((point (or pos (point)))
+              ((not (log-view-inside-comment-p point))))
     (save-excursion
       (goto-char (line-beginning-position))
       (looking-at log-view-message-re))))
@@ -473,7 +473,7 @@ snapshot of the minibuffer prompt.  Then use the resulting buffer
 to browse through the available commits."
   (declare (interactive-only t))
   (interactive "P")
-  (when-let ((file (caadr (vc-deduce-fileset))))
+  (when-let* ((file (caadr (vc-deduce-fileset))))
     (let* ((f (when current-file file))
            (revision (agitate--vc-git-get-hash-from-string
                       (agitate--vc-git-commit-prompt
@@ -487,7 +487,7 @@ to browse through the available commits."
         (diff-mode)
         (setq-local revert-buffer-function
                     (lambda (_ignore-auto _noconfirm)
-                        (agitate--vc-git-show-revert buf "show" "--patch-with-stat" revision)))
+                      (agitate--vc-git-show-revert buf "show" "--patch-with-stat" revision)))
         (goto-char (point-min))))))
 
 (defun agitate--vc-git-tag-prompt ()
@@ -514,7 +514,7 @@ to browse through the available tags."
   (let* ((buf "*agitate-vc-git-show*")
          (inhibit-read-only t))
     (with-current-buffer (get-buffer-create buf)
-        (erase-buffer))
+      (erase-buffer))
     (vc-git--call buf "show" tag)
     (with-current-buffer (pop-to-buffer buf)
       (diff-mode)
@@ -526,7 +526,7 @@ to browse through the available tags."
 
 (defun agitate--vc-git-format-patch-single-commit ()
   "Help `agitate-vc-git-format-patch-single' with its COMMIT."
-  (if-let ((default-value (cadr (log-view-current-entry (point) t))))
+  (if-let* ((default-value (cadr (log-view-current-entry (point) t))))
       default-value
     (agitate--vc-git-get-hash-from-string (agitate--vc-git-commit-prompt))))
 
@@ -580,7 +580,7 @@ arguments."
 
 (defun agitate--vc-git-prompt-remote ()
   "Helper prompt for `agitate-git-push'."
-  (when-let ((remotes (process-lines vc-git-program "remote")))
+  (when-let* ((remotes (process-lines vc-git-program "remote")))
     (if (length> remotes 1)
         (completing-read "Select Git remote: " remotes nil t)
       (car remotes))))