emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix +vc/git-browse-region-or-line

Browse source 
git-link-use-commit = t breaks +vc/git-browse-region-or-line.
This commit is contained in:
Henrik Lissner 2019-06-01 20:20:11 -04:00
parent 1de21f57eb
commit 36a8e02857
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/emacs/vc/autoload/vc.el
View file

@ -12,16 +12,18 @@
(error "Remote `%s' is unknown or contains an unsupported URL" remote))))
(defvar git-link-open-in-browser)
(defvar git-link-use-commit)
;;;###autoload
(defun +vc/git-browse-region-or-line (&optional arg)
"Open the website for the current version controlled file. Fallback to
repository root."
(interactive "P")
(require 'git-link)
(cl-destructuring-bind (beg end)
(if buffer-file-name (git-link--get-region))
(let ((git-link-open-in-browser (not arg)))
(git-link (git-link--select-remote) beg end))))
(let (git-link-use-commit)
(cl-destructuring-bind (beg end)
(if buffer-file-name (git-link--get-region))
(let ((git-link-open-in-browser (not arg)))
(git-link (git-link--select-remote) beg end)))))
;;;###autoload
(defun +vc*update-header-line (revision)