# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1367888368 -32400
# Node ID a57f4c74179a2f53ef38551ccf9a734b9343124a
# Parent  13a62b7c8354cd2c585c17188f1c37bff1b426aa
(yatexpkg)YaTeX-package-lookup sees 'same-as entry.

diff -r 13a62b7c8354 -r a57f4c74179a yatexpkg.el
--- a/yatexpkg.el	Mon May 06 17:24:56 2013 +0900
+++ b/yatexpkg.el	Tue May 07 09:59:28 2013 +0900
@@ -1,7 +1,7 @@
 ;;; yatexpkg.el --- YaTeX package manager
 ;;; 
 ;;; (c)2003-2013 by HIROSE, Yuuji [yuuji@yatex.org]
-;;; Last modified Mon May  6 17:20:43 2013 on firestorm
+;;; Last modified Tue May  7 09:55:01 2013 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -75,11 +75,14 @@
 Optional second argument TYPE limits the macro type.
 TYPE is a symbol, one of 'env, 'section, 'maketitle."
   (let ((list (append YaTeX-package-alist-private YaTeX-package-alist-default))
-	element x val pkg pkglist r)
+	origlist element x sameas val pkg pkglist r)
+    (setq origlist list)
     (while list
       (setq element (car list)
 	    pkg (car element)
 	    element (cdr element))
+      (if (setq sameas (assq 'same-as element)) ;non-recursive retrieval
+	  (setq element (cdr (assoc (cdr sameas) origlist))))
       (if (setq r (catch 'found
 		    (while element
 		      (setq x (car element)