Mercurial > hg > xemacs-beta

comparison lisp/prim/specifier.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
117 SPECIFIER-TYPE specifies the type of specifier that this INST-LIST 117 SPECIFIER-TYPE specifies the type of specifier that this INST-LIST
118 will be used for. 118 will be used for.
119 119
120 Canonicalizing means converting to the full form for an inst-list, i.e. 120 Canonicalizing means converting to the full form for an inst-list, i.e.
121 `((TAG-SET . INSTANTIATOR) ...)'. This function accepts a single 121 `((TAG-SET . INSTANTIATOR) ...)'. This function accepts a single
122 inst-pair or any abbrevation thereof or a list of (possibly 122 inst-pair or any abbreviation thereof or a list of (possibly
123 abbreviated) inst-pairs. (See `canonicalize-inst-pair'.) 123 abbreviated) inst-pairs. (See `canonicalize-inst-pair'.)
124 124
125 If NOERROR is non-nil, signal an error if the inst-list is invalid; 125 If NOERROR is non-nil, signal an error if the inst-list is invalid;
126 otherwise return t." 126 otherwise return t."
127 127
128 ;; OK, the possibilities are: 128 ;; OK, the possibilities are:
129 ;; 129 ;;
130 ;; a) an inst-pair or various abbrevations thereof 130 ;; a) an inst-pair or various abbreviations thereof
131 ;; b) a list of (a) 131 ;; b) a list of (a)
132 (let ((result (canonicalize-inst-pair inst-list specifier-type t))) 132 (let ((result (canonicalize-inst-pair inst-list specifier-type t)))
133 (if (not (eq result t)) 133 (if (not (eq result t))
134 ;; case (a) 134 ;; case (a)
135 (list result) 135 (list result)
174 174
175 If NOERROR is nil, signal an error if the specification is invalid; 175 If NOERROR is nil, signal an error if the specification is invalid;
176 otherwise return t." 176 otherwise return t."
177 ;; OK, the possibilities are: 177 ;; OK, the possibilities are:
178 ;; 178 ;;
179 ;; a) an inst-list or some abbrevation thereof 179 ;; a) an inst-list or some abbreviation thereof
180 ;; b) a cons of a locale and an inst-list 180 ;; b) a cons of a locale and an inst-list
181 (let ((result (canonicalize-inst-list spec specifier-type t))) 181 (let ((result (canonicalize-inst-list spec specifier-type t)))
182 (if (not (eq result t)) 182 (if (not (eq result t))
183 ;; case (a) 183 ;; case (a)
184 (cons 'global result) 184 (cons 'global result)