mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-05 11:45:52 +00:00
Code

Compatibility: Make `org-reload' work on XEmacs.

Browse Source 
This uses ideas by Tony E. Bennett.
This commit is contained in:
Carsten Dominik 2009-04-05 15:24:40 +02:00
parent c9675ebc96
commit 56a8ae9414
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -6,6 +6,7 @@
case-sensitively.
(org-map-continue-from): New variable.
(org-scan-tags): Respect values in `org-map-continue-from'.
(org-reload): Make XEmacs compatible.
2009-04-04 Carsten Dominik <carsten.dominik@gmail.com>

10
lisp/org.el
View File

@ -14710,7 +14710,15 @@ With optional NODE, go directly to that node."
With prefix arg UNCOMPILED, load the uncompiled versions."
(interactive "P")
(require 'find-func)
(let* ((dir (file-name-directory (find-library-name "org")))
(let* ((dir
(if (fboundp 'find-library-name)
(file-name-directory (find-library-name "org"))
(flet ((find-library-name-helper (filename ignored-codesys)
filename)
(find-library-name
(library)
(find-library library nil 'find-library-name-helper)))
(file-name-directory (find-library-name "org")))))
(files (directory-files dir t "\\.el\\'"))
(remove-re (concat (if (featurep 'xemacs)
"org-colview" "org-colview-xemacs")