From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 6 Feb 2016 11:17:39 -0700
Subject: patch emacs-helm.sh for Debian

---
 emacs-helm.sh | 28 +---------------------------
 1 file changed, 1 insertion(+), 27 deletions(-)

diff --git a/emacs-helm.sh b/emacs-helm.sh
index 9bd07fd..9a406dc 100755
--- a/emacs-helm.sh
+++ b/emacs-helm.sh
@@ -139,22 +139,6 @@ done
 
 LOAD_PATH=$($EMACS -q -batch --eval "(prin1 load-path)")
 
-cd "${0%/*}" || exit 1
-
-# Check if autoload file exists.
-# It may be in a different directory if emacs-helm.sh is a symlink.
-TRUENAME=$(find "${0%/*}" -path "$0" -printf "%l")
-if [ -n "$TRUENAME" ]; then
-    AUTO_FILE="${TRUENAME%/*}/helm-autoloads.el"
-else
-    AUTO_FILE="helm-autoloads.el"
-fi
-if [ ! -e "$AUTO_FILE" ]; then
-    echo No autoloads found, please run make first to generate autoload file
-    exit 1
-fi
-
-
 cat > $CONF_FILE <<EOF
 (setq initial-scratch-message
 ";; This buffer is for text that is not saved, and for Lisp evaluation.\\n\
@@ -227,16 +211,6 @@ cat > $CONF_FILE <<EOF
 
 (unless (eq default-package-manager 'straight)
   (require 'package)
-  ;; User may be using a non standard \`package-user-dir'.
-  ;; Modify \`package-directory-list' instead of \`package-user-dir'
-  ;; in case the user starts Helm from a non-ELPA installation.
-  (unless (file-equal-p package-user-dir (locate-user-emacs-file "elpa"))
-    ;; Something like  /home/you/.emacs.d/somedir/else/elpa/
-    ;; starting from default-directory is wrong in case helm.sh is a symlink
-    ;; or e.g. helm --chdir foo have been used.
-    (add-to-list 'package-directory-list (directory-file-name
-                                          (file-name-directory
-                                           (directory-file-name initial-package-directory)))))
 
   (let* ((str-lst "$LOAD_PACKAGES")
          (load-packages (and str-lst
@@ -250,7 +224,7 @@ cat > $CONF_FILE <<EOF
 
   (package-initialize))
 
-(add-to-list 'load-path initial-package-directory)
+(add-to-list 'package-directory-list "/usr/share/emacs/site-lisp/elpa-src")
 
 (unless (> $TOOLBARS 0)
    (setq default-frame-alist '((vertical-scroll-bars . nil)