[elpa] 240/255: robust loading w/o load-path customization

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit aec8c1ea18398fa8c03a479f2c4050b61fd11e18
Author: Eric Schulte <address@hidden>
Date:   Fri Aug 9 15:41:36 2013 -0600

    robust loading w/o load-path customization
---
 go.el |   22 +++++++++++++---------
 1 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/go.el b/go.el
index 1058a7b..4862ea0 100644
--- a/go.el
+++ b/go.el
@@ -36,15 +36,19 @@
 ;; - TODO: the IGS protocol
 
 ;;; Code:
-(require 'go-util         "go-util.el")
-(require 'go-api          "go-api.el")
-(require 'go-board        "go-board.el")
-(require 'go-board-faces  "go-board-faces.el")
-(require 'gtp             "back-ends/gtp.el")
-(require 'gnugo           "back-ends/gnugo.el")
-(require 'sgf             "back-ends/sgf.el")
-(require 'sgf2el          "back-ends/sgf2el.el")
-(require 'igs             "back-ends/igs.el")
+(let ((load-path
+       (cons (file-name-directory (or load-file-name (buffer-file-name)))
+             load-path)))
+  (require 'go-util         "go-util.el")
+  (require 'go-api          "go-api.el")
+  (require 'go-board        "go-board.el")
+  (require 'go-board-faces  "go-board-faces.el")
+  (require 'gtp             "back-ends/gtp.el")
+  (require 'gnugo           "back-ends/gnugo.el")
+  (require 'sgf             "back-ends/sgf.el")
+  (require 'sgf2el          "back-ends/sgf2el.el")
+  (require 'igs             "back-ends/igs.el")
+  (require 'gtp-pipe        "back-ends/gtp-pipe.el"))
 
 (defun go-instantiate (back-end)
   (interactive)