; * lisp/vc/vc-git.el (vc-git--out-str): Doc fix.

(cherry picked from commit ce29ae32d0b05cedbc9ba65c1a347ab7c34420ad)

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index cbb5618ffcefa6207029c02498fe86f36f3bbdb6..a1e49b50510fb8fc1beaa10dd04aecf5b5521f4a 100644 (file)
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -1781,7 +1781,7 @@ With prefix numeric argument ARG, do it that many times."
   (interactive)
   (save-excursion
     (goto-char (pos-bol))
-    (when-let* ((re (rx bol "(" (group (+ (not (in " "))))))
+    (when-let* ((re (rx bol "(" (group (+ (not (in " )"))))))
                 (string
                  (and (or (looking-at re)
                           (re-search-backward re nil t))

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 0d54e2346599d0f291ec8aa7d7678953351f8195..b23a5ca95a18a89325ec92704cc9642cdf90fb0c 100644 (file)
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -2240,7 +2240,7 @@ Return whether the process exited with status zero."
   (zerop (apply #'vc-git--call '(t nil) command args)))
 
 (defun vc-git--out-str (command &rest args)
-  "Run `git COMMAND ARGS...' and return standard output.
+  "Run `git COMMAND ARGS...' and return standard output as a string.
 The exit status is ignored."
   (with-output-to-string
     (with-current-buffer standard-output