From: Nelson Ferreira <nelson.ferreira@ieee.org>
Date: Sat, 9 Jan 2016 22:52:44 +0000 (-0500)
Subject: Expand file name before dirname
X-Git-Tag: v22.1.16~4^2~1
X-Git-Url: http://cgit.sxemacs.org/?p=sxemacs;a=commitdiff_plain;h=8c1dd60e3a0279869dae0b4a79f6347344fc060d

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
--- 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)