Manish <mailtomanish.sha...@gmail.com> writes: > On Wed, Aug 19, 2009 at 6:00 PM, Bernt Hansen<be...@norang.ca> wrote: >> Manish, >> >> Could you try this patch - does it work? > > Patch application fails. I tried with patch -p1 as well. > > ,---- > | [Wed 19 18:47] (2118) ~/elisp/org-mode.git $ git apply > org-version-patch-by-bernt.patch > | error: patch failed: lisp/org.el:104 > | error: lisp/org.el: patch does not apply > `---- > > -- > Manish
Can you try evaluating this? and then M-x org-version and report the results? (defun org-version (&optional here) "Show the org-mode version in the echo area. With prefix arg HERE, insert it at point." (interactive "P") (let* ((org-version org-version) (git-version) (dir (file-truename (concat (file-name-directory (locate-library "org")) "../" )))) (if (file-exists-p (expand-file-name ".git" dir)) (progn (shell-command (concat "GITDIR=" dir " && git describe --abbrev=4 HEAD")) (save-excursion (set-buffer "*Shell Command Output*") (goto-char (point-min)) (replace-regexp "-" ".") (goto-char (point-min)) (re-search-forward "[^\n]+") (setq git-version (match-string 0)) (shell-command (concat "GITDIR=" 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))) (if here (insert version)) (message version) version))) -Bernt _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode