procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Accept "-w" as safe value for vc-git-annotate-switches

Browse source 
* lisp/vc/vc-git.el
(vc-git-annotate-switches-safe-p): New predicate function.
(vc-git-annotate-switches): Use above new predicate function to
check if it's :safe.
This commit is contained in:
Stefan Kangas 2022-09-09 23:56:24 +02:00
parent fa99392618
commit 1c1ff3bfd1
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/vc/vc-git.el
View file

@ -119,6 +119,14 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches."
(repeat :tag "Argument List" :value ("") string))
:version "23.1")
;;;###autoload
(defun vc-git-annotate-switches-safe-p (switches)
"Check if local value of `vc-git-annotate-switches' is safe.
Currently only \"-w\" (ignore whitespace) is considered safe, but
this list might be extended in the future."
;; TODO: Probably most options are perfectly safe.
(equal switches "-w"))
(defcustom vc-git-annotate-switches nil
"String or list of strings specifying switches for Git blame under VC.
If nil, use the value of `vc-annotate-switches'. If t, use no switches."
@ -127,6 +135,7 @@ If nil, use the value of `vc-annotate-switches'. If t, use no switches."
(string :tag "Argument String")
(repeat :tag "Argument List" :value ("") string))
:version "25.1")
;;;###autoload(put 'vc-git-annotate-switches 'safe-local-variable #'vc-git-annotate-switches-safe-p)
(defcustom vc-git-log-switches nil
"String or list of strings specifying switches for Git log under VC."