[elpa] externals/vc-jj 3dd1103608 41/58: Show immutable status in vc-dir headers

[ELPA Syncer]

branch: externals/vc-jj
commit 3dd11036088bcce4d3c40569fe0c5d1393036d02
Author: Rudi Schlatte <rudi@constantly.at>
Commit: Rudi Schlatte <rudi@constantly.at>

    Show immutable status in vc-dir headers
---
 vc-jj.el | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/vc-jj.el b/vc-jj.el
index a4f2176e44..0cb63c688e 100644
--- a/vc-jj.el
+++ b/vc-jj.el
@@ -163,18 +163,18 @@ The list is passed to UPDATE-FUNCTION."
       (funcall update-function result nil))))
 
 (defun vc-jj-dir-extra-headers (dir)
-  "Return extra headers for to display in the vc-dir buffer of DIR.
-
-Always add the first line of the description, the change ID, and
-the git commit ID of the current change.  If the current change
-is named by one or more bookmarks, also add a Bookmarks header.
-If the current change is conflicted, divergent or hidden, also
-add a Status header.  (We do not check for emptiness of the
-current change since the user can see that via the list of files
-below the headers anyway.)"
+  "Return extra headers for `vc-dir' when executed inside DIR.
+
+Always add headers for the first line of the description, the change ID,
+and the git commit ID of the current change.  If the current change is
+named by one or more bookmarks, also add a Bookmarks header.  If the
+current change is conflicted, divergent, hidden or immutable, also add a
+Status header.  (We do not check for emptiness of the current change
+since the user can see that via the list of files below the headers
+anyway.)"
   (pcase-let* ((default-directory (file-name-as-directory dir))
                (`( ,change-id ,change-id-short ,commit-id ,commit-id-short
-                   ,description ,bookmarks ,conflict ,divergent ,hidden)
+                   ,description ,bookmarks ,conflict ,divergent ,hidden 
,immutable)
                 (process-lines vc-jj-program "log" "--no-graph" "-r" "@" "-T"
                                "concat(
 self.change_id().short(), \"\\n\",
@@ -185,12 +185,14 @@ description.first_line(), \"\\n\",
 bookmarks.join(\",\"), \"\\n\",
 self.conflict(), \"\\n\",
 self.divergent(), \"\\n\",
-self.hidden(), \"\\n\"
+self.hidden(), \"\\n\",
+self.immutable(), \"\\n\"
 )"))
                (status (concat
                         (and (string= conflict "true") "(conflict)")
                         (and (string= divergent "true") "(divergent)")
-                        (and (string= hidden "true") "(hidden)")))
+                        (and (string= hidden "true") "(hidden)")
+                        (and (string= immutable "true") "(immutable)")))
                (change-id-suffix (substring change-id (length 
change-id-short)))
                (commit-id-suffix (substring commit-id (length 
commit-id-short))))
     (cl-flet ((fmt (key value &optional prefix)