patch-emacs-helm-sh

Gbp-Pq: Name 0004-patch-emacs-helm-sh.patch

1 files changed, 5 insertions, 24 deletions

diff --git a/emacs-helm.sh b/emacs-helm.sh
index 1213a867..13d47613 100755
--- a/emacs-helm.sh
+++ b/emacs-helm.sh
@@ -40,23 +40,6 @@ case $1 in
         ;;
 esac
 
-cd $(dirname "$0")
-
-# Check if autoload file exists.
-# It is maybe in a different directory if
-# emacs-helm.sh is a symlink.
-LS=$(ls -l $0 | awk '{print $11}')
-if [ ! -z $LS ]; then
-    AUTO_FILE="$(dirname $LS)/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 2
-fi
-
-
 cat > $CONF_FILE <<EOF
 (setq initial-scratch-message (concat initial-scratch-message
 ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\
@@ -77,13 +60,11 @@ cat > $CONF_FILE <<EOF
 ;; You will find embeded help for most helm commands with \`C-h m'.\n\
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\n"))
 
-(setq package-user-dir (directory-file-name
-                        (file-name-directory
-                         (directory-file-name default-directory))))
-(unless (member "helm.el" (directory-files default-directory))
-  (setq package-load-list '((helm-core t) (helm t) (async t) (popup t)))
-  (package-initialize))
-(add-to-list 'load-path (file-name-directory (file-truename "$0")))
+
+(require 'package)
+(add-to-list 'package-directory-list "/usr/share/emacs/site-lisp/elpa-src")
+(setq package-load-list '((helm-core t) (helm t) (async t) (popup t)))
+(package-initialize)
 (setq default-frame-alist '((vertical-scroll-bars . nil)
                             (tool-bar-lines . 0)
                             (menu-bar-lines . 0)