Mercurial > hg > xemacs-beta

diff lisp/prim/packages.el @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a2f645c6b9f8
children e45d5e7c476e
line wrap: on
line diff
--- a/lisp/prim/packages.el	Mon Aug 13 10:01:24 2007 +0200
+++ b/lisp/prim/packages.el	Mon Aug 13 10:02:21 2007 +0200
@@ -160,8 +160,9 @@
                 or are self-contained packages of their own."
   ;; Info files
   (if (and (null path-only) (file-directory-p (concat package "/info")))
-      (setq Info-default-directory-list
-	    (cons (concat package "/info/") Info-default-directory-list)))
+      (let ((dir (concat package "/info/")))
+	(when (not (member dir Info-default-directory-list))
+	  (nconc Info-default-directory-list (list dir)))))
   ;; Data files
   (if (and (null path-only) (file-directory-p (concat package "/etc")))
       (setq data-directory-list