yatex

changeset 304:a57f4c74179a dev

find changesets by author, revision, files, or words in the commit message
(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 diff
     1.1 --- a/yatexpkg.el	Mon May 06 17:24:56 2013 +0900
     1.2 +++ b/yatexpkg.el	Tue May 07 09:59:28 2013 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexpkg.el --- YaTeX package manager
     1.5  ;;; 
     1.6  ;;; (c)2003-2013 by HIROSE, Yuuji [yuuji@yatex.org]
     1.7 -;;; Last modified Mon May  6 17:20:43 2013 on firestorm
     1.8 +;;; Last modified Tue May  7 09:55:01 2013 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Code:
    1.12 @@ -75,11 +75,14 @@
    1.13  Optional second argument TYPE limits the macro type.
    1.14  TYPE is a symbol, one of 'env, 'section, 'maketitle."
    1.15    (let ((list (append YaTeX-package-alist-private YaTeX-package-alist-default))
    1.16 -	element x val pkg pkglist r)
    1.17 +	origlist element x sameas val pkg pkglist r)
    1.18 +    (setq origlist list)
    1.19      (while list
    1.20        (setq element (car list)
    1.21  	    pkg (car element)
    1.22  	    element (cdr element))
    1.23 +      (if (setq sameas (assq 'same-as element)) ;non-recursive retrieval
    1.24 +	  (setq element (cdr (assoc (cdr sameas) origlist))))
    1.25        (if (setq r (catch 'found
    1.26  		    (while element
    1.27  		      (setq x (car element)