Expand file name before dirname

	* lisp/packages.el (package-suppress): Expand file name before
	call to file-dirname

Signed-off-by: Nelson Ferreira <nelson.ferreira@ieee.org>

diff --git a/lisp/packages.el b/lisp/packages.el
index 881ad12..0dba0ca 100644 (file)
--- a/lisp/packages.el
+++ b/lisp/packages.el
@@ -212,7 +212,9 @@ directory to be ignored."
 When SXEmacs searches for a file in the load path, it will ignore FILE
 if FORM evaluates to non-nil."
   (setq load-suppress-alist
-       (acons (expand-file-name file (file-dirname load-file-name)) form
+       (acons (expand-file-name file
+                                (file-dirname (expand-file-name load-file-name)))
+              form
               load-suppress-alist)))
 
 (defun package-require (name version)