[uim-commit] r230 - trunk/scm

[tkng@freedesktop.org]

Author: tkng
Date: 2005-01-10 13:52:17 -0800 (Mon, 10 Jan 2005)
New Revision: 230

Modified:
   trunk/scm/plugin.scm
Log:
* scm/plugin.scm:
 -(uim-plugin-lib-load-path): Fixed that the priority of LIBUIM_PLUGIN_DIR 
  was lower than other pathes.
 -(uim-plugin-scm-load-path): Fixed that the priority of LIBUIM_SCM_FILES 
  was lower than other pathes.


Modified: trunk/scm/plugin.scm
===================================================================
--- trunk/scm/plugin.scm	2005-01-10 21:49:33 UTC (rev 229)
+++ trunk/scm/plugin.scm	2005-01-10 21:52:17 UTC (rev 230)
@@ -36,9 +36,9 @@
 
 (define uim-plugin-lib-load-path
   (filter string?
-	  (append (list (string-append (getenv "HOME") "/.uim.d/plugin")
-			(string-append (sys-pkglibdir) "/plugin")
-			(getenv "LIBUIM_PLUGIN_DIR"))
+	  (append (list (getenv "LIBUIM_PLUGIN_DIR")
+			(string-append (getenv "HOME") "/.uim.d/plugin")
+			(string-append (sys-pkglibdir) "/plugin"))
 		  ;; XXX
 		  (if (getenv "LD_LIBRARY_PATH")
 		      (string-split (getenv "LD_LIBRARY_PATH") ":")
@@ -46,9 +46,10 @@
 
 (define uim-plugin-scm-load-path
   (filter string?
-	  (list (string-append (getenv "HOME") "/.uim.d/plugin")
-		(sys-pkgdatadir)
-		(getenv "LIBUIM_SCM_FILES"))))
+	  (list (getenv "LIBUIM_SCM_FILES")
+		(string-append (getenv "HOME") "/.uim.d/plugin")
+		(sys-pkgdatadir))))
+		
 
 ;; 'print' prevents testing framework from normal run.
 ;;(print uim-plugin-lib-load-path)