[gentoo-commits] emacs r1493 - gentoo-syntax

[Ulrich Mueller (ulm)]

Author: ulm
Date: 2009-12-30 10:12:44 +0000 (Wed, 30 Dec 2009)
New Revision: 1493

Modified:
   gentoo-syntax/ChangeLog
   gentoo-syntax/gentoo-syntax.el
Log:
Use relative name in ebuild-run-command, to make it work on remote systems.

Modified: gentoo-syntax/ChangeLog
===================================================================
--- gentoo-syntax/ChangeLog	2009-12-30 10:10:19 UTC (rev 1492)
+++ gentoo-syntax/ChangeLog	2009-12-30 10:12:44 UTC (rev 1493)
@@ -1,3 +1,8 @@
[phone]  Ulrich Mueller  <ulm@g.o>
+
+	* gentoo-syntax.el (ebuild-run-command): Use file-relative-name,
+	to make it work for ebuild files on remote systems.
+
 2009-12-27  Christian Faulhammer  <fauli@g.o>
 
 	* ebuild-mode-keywords.el (ebuild-mode-keywords-python):

Modified: gentoo-syntax/gentoo-syntax.el
===================================================================
--- gentoo-syntax/gentoo-syntax.el	2009-12-30 10:10:19 UTC (rev 1492)
+++ gentoo-syntax/gentoo-syntax.el	2009-12-30 10:12:44 UTC (rev 1493)
@@ -261,13 +261,12 @@
 			  nil t)))
   (or (member command ebuild-commands-list)
       (error "Ebuild command \"%s\" not known" command))
-  (let ((process-environment
-	 (cons "NOCOLOR=true" process-environment))
-	;;(compilation-mode-hook
-	;; (lambda () (setq truncate-lines t)))
+  (let ((file (file-relative-name buffer-file-name))
+	(process-environment (cons "NOCOLOR=true" process-environment))
+	;;(compilation-mode-hook (lambda () (setq truncate-lines t)))
 	(compilation-buffer-name-function
 	 (list 'lambda '(mode) (concat "*ebuild " command "*"))))
-    (compile (format "ebuild %s %s" buffer-file-name command))))
+    (compile (format "ebuild %s %s" file command))))
 
 
 ;;; Modify package keywords.