Mercurial > hg > xemacs-beta

comparison lisp/objects.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 41ff10fd062f
children 70ad99077275
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 ;; General Public License for more details. 21 ;; General Public License for more details.
22 22
23 ;; You should have received a copy of the GNU General Public License 23 ;; You should have received a copy of the GNU General Public License
24 ;; along with XEmacs; see the file COPYING. If not, write to the 24 ;; along with XEmacs; see the file COPYING. If not, write to the
25 ;; Free Software Foundation, 59 Temple Place - Suite 330, 25 ;; Free Software Foundation, 59 Temple Place - Suite 330,
26 ;; Boston, MA 02111-1307, USA. 26 ;; Boston, MA 02111-1307, USA.
27 27
28 ;;; Synched up with: Not in FSF. 28 ;;; Synched up with: Not in FSF.
29 29
40 (and instance (funcall function instance)))) 40 (and instance (funcall function instance))))
41 41
42 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; font specifiers 42 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; font specifiers
43 43
44 (defun make-font-specifier (spec-list) 44 (defun make-font-specifier (spec-list)
45 "Create a new `font' specifier object with the given specification list. 45 "Return a new `font' specifier object with the given specification list.
46 SPEC-LIST can be a list of specifications (each of which is a cons of a 46 SPEC-LIST can be a list of specifications (each of which is a cons of a
47 locale and a list of instantiators), a single instantiator, or a list 47 locale and a list of instantiators), a single instantiator, or a list
48 of instantiators. See `make-specifier' for more information about 48 of instantiators. See `make-specifier' for more information about
49 specifiers." 49 specifiers."
50 (make-specifier-and-init 'font spec-list)) 50 (make-specifier-and-init 'font spec-list))
121 (font-instance-descent font-instance))) 121 (font-instance-descent font-instance)))
122 122
123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; color specifiers 123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; color specifiers
124 124
125 (defun make-color-specifier (spec-list) 125 (defun make-color-specifier (spec-list)
126 "Create a new `color' specifier object with the given specification list. 126 "Return a new `color' specifier object with the given specification list.
127 SPEC-LIST can be a list of specifications (each of which is a cons of a 127 SPEC-LIST can be a list of specifications (each of which is a cons of a
128 locale and a list of instantiators), a single instantiator, or a list 128 locale and a list of instantiators), a single instantiator, or a list
129 of instantiators. See `make-specifier' for a detailed description of 129 of instantiators. See `make-specifier' for a detailed description of
130 how specifiers work." 130 how specifiers work."
131 (make-specifier-and-init 'color spec-list)) 131 (make-specifier-and-init 'color spec-list))