Mercurial > hg > xemacs-beta

comparison lisp/prim/specifier.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents ec9a17fef872
children 360340f9fd5f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details. 20 ;; General Public License for more details.
21 21
22 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the 23 ;; along with XEmacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;; Free Software Foundation, 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA. 25 ;; Boston, MA 02111-1307, USA.
26 26
27 ;;; Synched up with: Not in FSF. 27 ;;; Synched up with: Not in FSF.
28 28
29 (defun make-specifier-and-init (type spec-list &optional dont-canonicalize) 29 (defun make-specifier-and-init (type spec-list &optional dont-canonicalize)
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 abbreviation thereof or a list of (possibly 122 inst-pair or any abbrevation 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 abbreviations thereof 130 ;; a) an inst-pair or various abbrevations 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 abbreviation thereof 179 ;; a) an inst-list or some abbrevation 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)