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

* lisp/vc/vc-git.el (vc-git-symbolic-commit): Use --no-undefined

Browse source
This commit is contained in:
Philip Kaludercic 2022-10-15 00:06:25 +02:00
parent 1f4b234a5c
commit 5933055a3e
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -2038,16 +2038,15 @@ allowed to include revision specifications like \"master~8\"
branch), otherwise such revision specifications are rejected, and
the function returns nil."
(and commit
(let ((name (with-temp-buffer
(and
(vc-git--out-ok "name-rev" "--name-only" commit)
(goto-char (point-min))
(or force (not (looking-at "^.*[~^].*$" t)))
(= (forward-line 2) 1)
(bolp)
(buffer-substring-no-properties (point-min)
(1- (point-max)))))))
(and name (not (string= name "undefined")) name))))
(with-temp-buffer
(and
(vc-git--out-ok "name-rev" "--no-undefined" "--name-only" commit)
(goto-char (point-min))
(or force (not (looking-at "^.*[~^].*$" t)))
(= (forward-line 2) 1)
(bolp)
(buffer-substring-no-properties (point-min)
(1- (point-max)))))))
(defvar-keymap vc-dir-git-mode-map
"z c" #'vc-git-stash