Commits

Anonymous committed 4ca12be

(xslt-process-find-xslt-directory): Modified to take into account the XEmacs packaging scheme.

  • Participants
  • Parent commits b26a8d4

Comments (0)

Files changed (1)

lisp/xslt-process.el

 ;; Package: xslt-process
 ;; Author: Ovidiu Predescu <ovidiu@cup.hp.com>
 ;; Created: December 2, 2000
-;; Time-stamp: <January 11, 2001 22:15:46  ovidiu>
+;; Time-stamp: <April 30, 2001 22:39:27 ovidiu>
 ;; Keywords: XML, XSLT
 ;; URL: http://www.geocities.com/SiliconValley/Monitor/7464/
 ;; Compatibility: XEmacs 21.1, Emacs 20.4
   (makunbound 'user-agent))
 
 (defun xslt-process-find-xslt-directory ()
-  "Return the path to the xslt-process directory."
-  (file-truename
-   (concat (file-name-directory (locate-library "xslt-process")) "../")))
+  "Return the path to the xslt-process directory. On XEmacs check
+whether XSLT-process is installed as a package, in which case the
+directory structure looks a little different."
+  (let ((dir nil))
+    (if (featurep 'xemacs)
+	(setq dir (locate-data-directory "xslt-process")))
+    (when (not dir)
+      (setq dir (concat (file-name-directory (locate-library "xslt-process"))
+			".." xslt-process-dir-separator)))
+    (file-truename dir)))
 
 (defun xslt-process-invoke ()
   "This is the main function which invokes the XSLT processor of your