From: Andrii Kolomoiets Date: Thu, 17 Oct 2019 02:25:10 +0000 (+0200) Subject: Add ui.report_untrusted=0 to vc-hg log commands X-Git-Tag: emacs-27.0.90~1026 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1610d67051f5160f3c3e74c8ea396368cfb0bbd7;p=emacs.git Add ui.report_untrusted=0 to vc-hg log commands * lisp/vc/vc-hg.el (vc-hg-state-slow, vc-hg-merge-branch) (vc-hg-command): Add "--config" "ui.report_untrusted=0" to the log commands to avoid "Hg-not trusting file " messages in the mode line (bug#31497). Copyright-paperwork-exempt: yes --- diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 61d5ee1d3af..cc737b30b15 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el @@ -237,6 +237,7 @@ highlighting the Log View buffer." process-environment))) (process-file vc-hg-program nil t nil + "--config" "ui.report_untrusted=0" "--config" "alias.status=status" "--config" "defaults.status=" "status" "-A" (file-relative-name file))) @@ -1436,7 +1437,7 @@ This runs the command \"hg merge\"." (buffer (format "*vc-hg : %s*" (expand-file-name root))) ;; Disable pager. (process-environment (cons "HGPLAIN=1" process-environment))) - (apply 'vc-do-async-command buffer root vc-hg-program '("merge")) + (apply 'vc-do-async-command buffer root vc-hg-program '("--config" "ui.report_untrusted=0" "merge")) (with-current-buffer buffer (vc-run-delayed (vc-compilation-mode 'hg))) (vc-set-async-update buffer))) @@ -1447,7 +1448,8 @@ This runs the command \"hg merge\"." This function differs from vc-do-command in that it invokes `vc-hg-program', and passes `vc-hg-global-switches' to it before FLAGS." ;; Disable pager. - (let ((process-environment (cons "HGPLAIN=1" process-environment))) + (let ((process-environment (cons "HGPLAIN=1" process-environment)) + (flags (append '("--config" "ui.report_untrusted=0") flags))) (apply 'vc-do-command (or buffer "*vc*") okstatus vc-hg-program file-or-list (if (stringp vc-hg-global-switches) (cons vc-hg-global-switches flags)