diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2024-10-19 04:05:37 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2024-10-19 04:05:37 +0200 |
| commit | cd6cf89d6a306f4fcdcfc497828e8cff39fe43ca (patch) | |
| tree | 0ed3b7a9dd72e150af97e65f2f796a018a0cbcf4 /lisp/magit-process.el | |
| parent | b11524120e880be8c170dbd5a1123955d8629739 (diff) | |
Use different face for debug-only process sections
Diffstat (limited to 'lisp/magit-process.el')
| -rw-r--r-- | lisp/magit-process.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/magit-process.el b/lisp/magit-process.el index 7c9ba4a..9f0b449 100644 --- a/lisp/magit-process.el +++ b/lisp/magit-process.el @@ -691,7 +691,8 @@ Magit status buffer." (prog1 (magit-process-insert-section pwd program args nil nil) (backward-char 1)))))) -(defun magit-process-insert-section (pwd program args &optional errcode errlog) +(defun magit-process-insert-section + (pwd program args &optional errcode errlog face) (let ((inhibit-read-only t) (magit-insert-section--current nil) (magit-insert-section--parent magit-root-section) @@ -704,11 +705,12 @@ Magit status buffer." "run ")) (when magit-process-timestamp-format (insert (format-time-string magit-process-timestamp-format) " ")) - (unless (equal (expand-file-name pwd) - (expand-file-name default-directory)) - (insert (file-relative-name pwd default-directory) ?\s)) - (insert (magit-process--format-arguments program args)) - (magit-insert-heading) + (let ((cmd (concat + (and (not (equal (expand-file-name pwd) + (expand-file-name default-directory))) + (concat (file-relative-name pwd default-directory) " ")) + (magit-process--format-arguments program args)))) + (magit-insert-heading (if face (propertize cmd 'face face) cmd))) (when errlog (if (bufferp errlog) (insert (with-current-buffer errlog |