diff options
author | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
---|---|---|
committer | V3n3RiX <venerix@redcorelinux.org> | 2018-07-14 21:03:06 +0100 |
commit | 8376ef56580626e9c0f796d5b85b53a0a1c7d5f5 (patch) | |
tree | 7681bbd4e8b05407772df40a4bf04cbbc8afc3fa /app-emacs/ecb/files | |
parent | 30a9caf154332f12ca60756e1b75d2f0e3e1822d (diff) |
gentoo resync : 14.07.2018
Diffstat (limited to 'app-emacs/ecb/files')
-rw-r--r-- | app-emacs/ecb/files/70ecb-gentoo.el | 2 | ||||
-rw-r--r-- | app-emacs/ecb/files/ecb-2.32-gentoo.patch | 73 |
2 files changed, 75 insertions, 0 deletions
diff --git a/app-emacs/ecb/files/70ecb-gentoo.el b/app-emacs/ecb/files/70ecb-gentoo.el new file mode 100644 index 000000000000..bc71f7c18e94 --- /dev/null +++ b/app-emacs/ecb/files/70ecb-gentoo.el @@ -0,0 +1,2 @@ +(add-to-list 'load-path "@SITELISP@") +(require 'ecb-autoloads) diff --git a/app-emacs/ecb/files/ecb-2.32-gentoo.patch b/app-emacs/ecb/files/ecb-2.32-gentoo.patch new file mode 100644 index 000000000000..09d3d86afdcd --- /dev/null +++ b/app-emacs/ecb/files/ecb-2.32-gentoo.patch @@ -0,0 +1,73 @@ +Change default paths to Gentoo install locations. +Allow for compressed Info files. + +--- ecb-2.32-orig/ecb-common-browser.el 2005-07-11 16:16:01.000000000 +0200 ++++ ecb-2.32/ecb-common-browser.el 2009-03-03 09:42:51.000000000 +0100 +@@ -261,10 +261,7 @@ + ;; additonal images are necessary - but currently i don't think we need + ;; special images for this analyse-stuff. + (defcustom ecb-tree-image-icons-directories +- (let ((base (concat (if ecb-regular-xemacs-package-p +- (format "%s" (locate-data-directory "ecb")) +- ecb-ecb-dir) +- "ecb-images/"))) ++ (let ((base "/usr/share/emacs/etc/ecb/ecb-images/")) + (cons (concat base "default/height-17") + (mapcar (function (lambda (i) + (cons (car i) (concat base (cdr i))))) +--- ecb-2.32-orig/ecb-help.el 2005-07-11 16:16:00.000000000 +0200 ++++ ecb-2.32/ecb-help.el 2009-03-03 09:47:49.000000000 +0100 +@@ -81,16 +81,8 @@ + (const :tag "Html" :value html))) + + +-(defcustom ecb-help-info-path (concat +- (if ecb-running-xemacs +- (if (file-exists-p +- (concat ecb-ecb-dir +- ecb-help-info-subdir +- ecb-help-info-start-file)) +- ecb-help-info-subdir +- "../../info/") +- ecb-help-info-subdir) +- ecb-help-info-start-file) ++(defcustom ecb-help-info-path ++ (concat "/usr/share/info/" ecb-help-info-start-file) + "*Path where the ECB online help in info format resides. + This must be the location of the file \"ecb.info\" which comes with the ECB + distribution. If is installed by unpacking the archive available on the ECB +@@ -107,24 +99,7 @@ + :type 'file) + + (defcustom ecb-help-html-path +- (if (not ecb-running-xemacs) +- (concat ecb-help-html-subdir ecb-help-html-start-file) +- (cond ((file-exists-p +- (concat ecb-ecb-dir +- ecb-help-html-subdir +- ecb-help-html-start-file)) +- (concat ecb-help-html-subdir ecb-help-html-start-file)) +- ((file-exists-p +- (concat ecb-ecb-dir +- "../../html/" +- ecb-help-html-start-file)) +- (concat "../../html/" ecb-help-html-start-file)) +- ((file-exists-p +- (concat ecb-ecb-dir +- "../../html/ecb/index.html")) +- "../../html/ecb/index.html") +- (t +- (concat "../../etc/ecb/html/" ecb-help-html-start-file)))) ++ (concat "/usr/share/doc/@PF@/html/" ecb-help-html-start-file) + "*Path where the ECB online help in HTML format resides. + This must be the location of the file \"index.html\" which comes with the ECB + distribution. If is installed by unpacking the archive available on the ECB +@@ -145,7 +120,7 @@ + "Starts `info' with INFO-FILE. If INFO-FILE does not exists then nil is + returned otherwise true. If NO-FILE-NOT-EXIST-ERR is not nil then just nil is + returned if INFO-FILE does not exist otherwise an error is reported." +- (if (file-exists-p info-file) ++ (if (file-expand-wildcards (concat info-file "*")) + (prog1 t + (info info-file)) + (unless no-file-not-exist-err |