From: Dmitry Gutov Date: Thu, 26 Aug 2021 01:48:05 +0000 (+0300) Subject: Rename arguments for clarity X-Git-Tag: emacs-28.0.90~1306 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ac29b943bdcc099f578660395b17b430551ff79;p=emacs.git Rename arguments for clarity * lisp/vc/vc-git.el (vc-git--literal-pathspecs) (vc-git--literal-pathspecs): Rename arguments for clarity (bug#39452). --- diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index 779326be3fd..396d55adb2d 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -242,14 +242,14 @@ included in the completions." ;;;###autoload (load "vc-git" nil t) ;;;###autoload (vc-git-registered file)))) -(defun vc-git--literal-pathspec (pathspec) - "Prepend :(literal) path magic to PATHSPEC." - ;; Good example of PATHSPEC that needs this: "test[56].xx". - (and pathspec (concat ":(literal)" (file-local-name pathspec)))) - -(defun vc-git--literal-pathspecs (pathspecs) - "Prepend :(literal) path magic to PATHSPECS." - (mapcar #'vc-git--literal-pathspec pathspecs)) +(defun vc-git--literal-pathspec (file) + "Prepend :(literal) path magic to FILE." + ;; Good example of file name that needs this: "test[56].xx". + (and file (concat ":(literal)" (file-local-name file)))) + +(defun vc-git--literal-pathspecs (files) + "Prepend :(literal) path magic to FILES." + (mapcar #'vc-git--literal-pathspec files)) (defun vc-git-registered (file) "Check whether FILE is registered with git."