Ver Fonte

org-git-gitrepos-p: Make definition XEmacs compatible.

Carsten Dominik há 15 anos atrás
pai
commit
764dc91fe3
2 ficheiros alterados com 9 adições e 3 exclusões
  1. 5 0
      contrib/ChangeLog
  2. 4 3
      contrib/lisp/org-git-link.el

+ 5 - 0
contrib/ChangeLog

@@ -1,3 +1,8 @@
+2009-11-20  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* lisp/org-git-link.el (org-git-gitrepos-p): Make definition
+	XEmacs compatible.
+
 2009-11-01  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* lisp/org-mac-iCal.el (omi-import-ics): Use `diary-file'

+ 4 - 3
contrib/lisp/org-git-link.el

@@ -130,9 +130,10 @@
       (list (expand-file-name ".git" dir) relpath))))
 
 
-(defalias 'org-git-gitrepos-p 'org-git-find-gitdir
-  "Return non-nil if path is in git repository")
-
+(if (featurep 'xemacs)
+    (defalias 'org-git-gitrepos-p 'org-git-find-gitdir)
+  (defalias 'org-git-gitrepos-p 'org-git-find-gitdir
+  "Return non-nil if path is in git repository"))
 
 ;; splitting the link string