diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2016-02-06 11:17:39 -0700 |
---|---|---|
committer | Arto Jantunen <viiru@debian.org> | 2022-04-07 18:22:24 +0300 |
commit | 90458bb105f96bbd0325f1f1eeb0c18b08f5be5f (patch) | |
tree | 8dcda0a983980472e2b23f5941a76f292a0745b9 | |
parent | f3036eb7c23fc35c49b2a77601ecb75594153ae7 (diff) |
patch emacs-helm.sh for Debian
Gbp-Pq: Name 0004-patch-emacs-helm-sh.patch
-rwxr-xr-x | emacs-helm.sh | 25 |
1 files changed, 1 insertions, 24 deletions
diff --git a/emacs-helm.sh b/emacs-helm.sh index 094878a3..0f62585d 100755 --- a/emacs-helm.sh +++ b/emacs-helm.sh @@ -135,22 +135,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=$(ls -l "$0" | awk '{print $11}') -if [ ! -z "$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 (concat initial-scratch-message ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\\n\ @@ -204,13 +188,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")) - (add-to-list 'package-directory-list (directory-file-name - (file-name-directory - (directory-file-name default-directory))))) (let* ((str-lst "$LOAD_PACKAGES") (load-packages (and str-lst @@ -224,7 +201,7 @@ cat > $CONF_FILE <<EOF (package-initialize)) -(add-to-list 'load-path (file-name-directory (file-truename "$0"))) +(add-to-list 'package-directory-list "/usr/share/emacs/site-lisp/elpa-src") (unless (> $TOOLBARS 0) (setq default-frame-alist '((vertical-scroll-bars . nil) |