mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 11:06:26 +00:00
Code Releases Activity

Add .dirty to git org-version info if files are modified

Browse source 
Shows files as modified by appending .dirty to indicate that
you are running org-mode from a dirty working tree (some tracked
files are modified)
This commit is contained in:
Bernt Hansen 2009-08-18 12:32:43 -04:00 committed by Carsten Dominik
parent a5e87a4723
commit a32e8e8fec
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org.el
View file

@ -103,6 +103,7 @@
With prefix arg HERE, insert it at point."
(interactive "P")
(let* ((org-version org-version)
(git-version)
(dir (concat (file-name-directory (locate-library "org")) "../" )))
(if (file-exists-p (expand-file-name ".git" dir))
(progn
@ -113,7 +114,11 @@ With prefix arg HERE, insert it at point."
(replace-regexp "-" ".")
(goto-char (point-min))
(re-search-forward "[^\n]+")
(setq org-version (concat org-version " (" (match-string 0) ")")))))
(setq git-version (match-string 0))
(shell-command (concat "cd " dir " && git diff-index --name-only HEAD --"))
(unless (eql 1 (point-max))
(setq git-version (concat git-version ".dirty")))
(setq org-version (concat org-version " (" git-version ")")))))
(let ((version (format "Org-mode version %s" org-version)))
(message version)
(if here