yatex
changeset 304:a57f4c74179a dev
(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)