Miroirs/slackbuilds
1
0
Fork 0
mirror of https://codeberg.org/gwh/slackbuilds.git synced 2024-11-16 19:51:19 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

General defaulting for revisions.

Browse source 
* magit.el (magit-commit-at-point): Added option nil-ok-p argument.
(magit-default-rev): New.
This commit is contained in:
Marius Vollmer 2008-08-17 01:37:48 +03:00
parent 3c9bf0a0f2
commit b74bb2d2d9
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -191,6 +191,9 @@
(magit-rev-describe (cdr range)))
(format "%s at %s" things (magit-rev-describe (car range))))))
(defun magit-default-rev ()
(magit-commit-at-point t))
;;; Sections
(defun magit-insert-section (section title washer cmd &rest args)
@ -824,13 +827,15 @@ pushed.
;;; Commits
(defun magit-commit-at-point ()
(defun magit-commit-at-point (&optional nil-ok-p)
(let* ((info (get-text-property (point) 'magit-info))
(commit (and info
(eq (car info) 'commit)
(cadr info))))
(or commit
(error "No commit at point."))))
(if nil-ok-p
commit
(or commit
(error "No commit at point.")))))
(defun magit-revert-commit ()
(interactive)