Browse files

added (modified) patch from gentoo-people:

  use distel-ebin-directory as path to find distel *.beam files
  value of which defaults to old, hardcoded, path.

git-svn-id: d5f8e727-742a-0410-b67d-dd739a6cc792
  • Loading branch information...
1 parent 0bdfd90 commit 0009d8bc76f1e65efd63249dbbbc58566f8d719e @massemanet committed Feb 21, 2009
Showing with 11 additions and 6 deletions.
  1. +11 −6 elisp/erl-service.el
@@ -172,15 +172,18 @@ If not then try to send the module over as a binary and load it in."
(&erl-load-backend node))
(_ t))))))
+(defvar distel-ebin-directory
+ (file-truename
+ (concat (file-name-directory
+ (or (locate-library "distel") load-file-name)) "../ebin"))
+ "Directory where beam files are located.")
(defun &erl-load-backend (node)
- (let* ((elisp-directory
- (file-name-directory (or (locate-library "distel") load-file-name)))
- (ebin-directory (concat elisp-directory "../ebin"))
- (modules '()))
- (dolist (file (directory-files ebin-directory))
+ (let ((modules '()))
+ (dolist (file (directory-files distel-ebin-directory))
(when (string-match "^\\(.*\\)\\.beam$" file)
(let ((module (intern (match-string 1 file)))
- (filename (concat ebin-directory "/" file)))
+ (filename (concat distel-ebin-directory "/" file)))
(push (list module filename) modules))))
(if (null modules)
(erl-warn-backend-problem "don't have beam files")
@@ -846,6 +849,8 @@ prompts for an mfa."
(erl-receive ()
((['rex nil]
(message "No doc found."))
+ (['rex 'no_html]
+ (message "no html docs installed"))
(['rex ['mfas string]]
(message "candidates: %s" string))
(['rex ['sig string]]

0 comments on commit 0009d8b

Please sign in to comment.