Mercurial > hgrepos > hgweb.cgi > yatex

changeset 304:a57f4c74179a dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(yatexpkg)YaTeX-package-lookup sees 'same-as entry.
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 07 May 2013 09:59:28 +0900
parents 13a62b7c8354
children 53709ee88448
files yatexpkg.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)

yatex.org