fd9a/vc-pijul - Change UOLMJXXJ5MBMFF2RIHV7DW5R4NBEXLQLHT76A5V37SIH6XKLIIMQC

Fixes.

Fix vc-pijul-revert, vc-pijul-checkin, vc-pijul-dir-status-files, vc-pijul-mode-line-string.

Created by 3UpFPJ1TJr6uenQjKRxg2pgYzE5K8hrAPwG5mAk2U4nU on September 15, 2024

UOLMJXXJ5MBMFF2RIHV7DW5R4NBEXLQLHT76A5V37SIH6XKLIIMQC

Dependencies

In channels

main

Change contents

Deletion in vc-pijul.el at line 214 [4.120]
B:BD[4.7801] → [4.7801:7853]
```
(defalias 'vc-pijul-responsible-p #'vc-pijul-root)
```
Replacement in vc-pijul.el at line 235 [4.120]
B:BD[4.8640] → [3.78:94]
```
        backend
```
[4.8640]
[3.94]
```
        (symbol-name backend)
```

Replacement in vc-pijul.el at line 291 [4.120]

B:BD[4.10659] → [4.10659:10920]

    ;; FIXME: With the --amend option, you need to specify all the
    ;; files that were for the "change" to which the action is being
    ;; applied.
    (apply #'vc-pijul-command nil 0 files "rec"
           `("--all" ,@args "--description" ,description))))

[4.10659]

[4.10920]

    (apply #'vc-pijul-command nil 0
           (if (seq-contains-p args "--amend") nil files)
           "rec" `("--all" ,@args "--description" ,description))))

Replacement in vc-pijul.el at line 363 [4.120]

B:BD[4.13854] → [4.13854:13898]

    (vc-pijul-command nil 0 file "reset")))

[4.13854]

[4.13898]

    (if (eq (vc-state file) 'added)
        (vc-pijul-command nil 0 file "remove")
      (vc-pijul-command nil 0 file "reset"))))

Replacement in vc-pijul.el at line 481 [4.120]

B:BD[4.18096] → [2.745:807]

(defun vc-pijul-after-dir-status (root update-function files)

[4.18096]

[2.807]

(defun vc-pijul-after-dir-status (root update-function _files)

Replacement in vc-pijul.el at line 490 [4.120]

B:BD[2.1203] → [2.1203:1500]

        (when-let ((file-state (vc-pijul--file-state root
                                 (match-string 2)
                                 (vc-pijul--state-code (match-string 1)))))
          (push file-state result)
          (push (seq-first file-state) registered-and-not-up-to-date-files)))

[2.1203]

[2.1500]

        (when-let ((file (match-string 2))
                   (state (match-string 1))
                   (file-state (vc-pijul--file-state root
                                 file (vc-pijul--state-code state))))
          (unless (seq-contains-p registered-and-not-up-to-date-files file)
            (push file-state result)
            (push file registered-and-not-up-to-date-files))))

Replacement in vc-pijul.el at line 498 [4.120]

B:BD[2.1522] → [2.1522:2195]

    (funcall update-function (nreverse result)
             (not (null (seq-difference
                         files registered-and-not-up-to-date-files))))
    (let* ((rest-files (seq-difference
                        files registered-and-not-up-to-date-files))
           (last (seq-first (last rest-files))))
      (seq-each (lambda (file)
                  (funcall
                   update-function
                   `((,file ,(if (vc-pijul-registered file)
                                 'up-to-date
                               'unregistered)
                            nil))
                   (unless (equal last file) t)))
                rest-files))))

[2.1522]

[4.18153]

    (funcall update-function (nreverse result) nil)))