From mboxrd@z Thu Jan 1 00:00:00 1970 From: SebastianRose Subject: Patch: org-reload changes default-directory Date: Tue, 10 Nov 2009 23:51:55 +0100 Message-ID: <87hbt2kn78.fsf@gmx.de> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N7zZM-0001tG-TJ for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 17:52:12 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N7zZH-0001sk-Oq for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 17:52:11 -0500 Received: from [199.232.76.173] (port=37254 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N7zZH-0001sh-FH for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 17:52:07 -0500 Received: from mail.gmx.net ([213.165.64.20]:56236) by monty-python.gnu.org with smtp (Exim 4.60) (envelope-from ) id 1N7zZG-000638-S4 for emacs-orgmode@gnu.org; Tue, 10 Nov 2009 17:52:07 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Emacs-orgmode mailing list Cc: carsten.dominik@gmail.com --=-=-= Hi, I found out why I ran into this earlier. It's _not_ org-reload, it's org-version that changes the default directory. Patch attached. I don't know where my bug report is... so I cannot respond to that post. Best wishes, Sebastian --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=fix-default-directory-on-version.patch Content-Description: Patch org-version diff --git a/lisp/org.el b/lisp/org.el index 42e229e..0b1005f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -102,7 +102,8 @@ "Show the org-mode version in the echo area. With prefix arg HERE, insert it at point." (interactive "P") - (let* ((version org-version) + (let* ((origin default-directory) + (version org-version) (git-version) (dir (concat (file-name-directory (locate-library "org")) "../" ))) (if (and (file-exists-p (expand-file-name ".git" dir)) @@ -122,6 +123,7 @@ With prefix arg HERE, insert it at point." (cd pwd)))) (setq version (format "Org-mode version %s" version)) (if here (insert version)) + (cd origin) (message version) version)) --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --=-=-=--