Mercurial > hg > xemacs-beta

comparison lisp/obsolete.el @ 2527:491f8cf78a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-28 02:58:38 by ben] Abstract font-list/color-list font-menu.el, font.el, frame.el, gtk-font-menu.el, minibuf.el, msw-faces.el, msw-font-menu.el, obsolete.el, x-faces.el, x-font-menu.el: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions. console-impl.h, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions.
author ben
date Fri, 28 Jan 2005 02:58:52 +0000
parents 02909207294a
children db783273b399
comparison
equal deleted inserted replaced
2526:902d5bd9b75c 2527:491f8cf78a9c
1 ;;; obsolete.el --- obsoleteness support 1 ;;; obsolete.el --- obsoleteness support
2 2
3 ;; Copyright (C) 1985-1994, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985-1994, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1994, 1995 Amdahl Corporation. 4 ;; Copyright (C) 1994, 1995 Amdahl Corporation.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 ;; Copyright (C) 2002 Ben Wing. 6 ;; Copyright (C) 2002, 2004 Ben Wing.
7 7
8 ;; Maintainer: XEmacs Development Team 8 ;; Maintainer: XEmacs Development Team
9 ;; Keywords: internal, dumped 9 ;; Keywords: internal, dumped
10 10
11 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
370 on the system; white is (65280 65280 65280) or (65535 65535 65535). 370 on the system; white is (65280 65280 65280) or (65535 65535 65535).
371 If FRAME is omitted or nil, use the selected frame." 371 If FRAME is omitted or nil, use the selected frame."
372 (color-instance-rgb-components (make-color-instance color))) 372 (color-instance-rgb-components (make-color-instance color)))
373 (make-compatible 'x-color-values 'color-instance-rgb-components) 373 (make-compatible 'x-color-values 'color-instance-rgb-components)
374 374
375 (make-obsolete 'mswindows-color-list 'color-list)
376 (make-obsolete 'tty-color-list 'color-list)
377 (make-compatible 'list-fonts 'font-list)
378
375 ;; Two loser functions which shouldn't be used. 379 ;; Two loser functions which shouldn't be used.
376 (make-obsolete 'following-char 'char-after) 380 (make-obsolete 'following-char 'char-after)
377 (make-obsolete 'preceding-char 'char-before) 381 (make-obsolete 'preceding-char 'char-before)
378 382
379 ;; Keywords already do The Right Thing in XEmacs 383 ;; Keywords already do The Right Thing in XEmacs