Mercurial > emacs

comparison lisp/obsolete/lucid.el @ 111233:d86e0c3de741

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge trunk
author Kenichi Handa <handa@m17n.org>
date Thu, 14 Oct 2010 16:21:40 +0900
parents 515d80e174ba
children 26c73acc214b
comparison
equal deleted inserted replaced
109848:637005c4c3ca 111233:d86e0c3de741
1 ;;; lucid.el --- emulate some Lucid Emacs functions 1 ;;; lucid.el --- emulate some Lucid Emacs functions
2 2
3 ;; Copyright (C) 1993, 1995, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 1993, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4 ;; 2008, 2009, 2010 Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: emulations 7 ;; Keywords: emulations
8 ;; Obsolete-since: 23.2 8 ;; Obsolete-since: 23.2
9 9
87 (cond 87 (cond
88 ((display-color-p device) 'color) 88 ((display-color-p device) 'color)
89 ((display-grayscale-p device) 'grayscale) 89 ((display-grayscale-p device) 'grayscale)
90 (t 'mono))) 90 (t 'mono)))
91 91
92 (defalias 'find-face 'internal-find-face) 92 (defalias 'find-face 'facep)
93 (defalias 'get-face 'internal-get-face) 93 (defalias 'get-face 'facep)
94 ;; internal-try-face-font was removed from faces.el in rev 1.139, 1999/07/21. 94 ;; internal-try-face-font was removed from faces.el in rev 1.139, 1999/07/21.
95 ;;;(defalias 'try-face-font 'internal-try-face-font) 95 ;;;(defalias 'try-face-font 'internal-try-face-font)
96 96
97 (defalias 'exec-to-string 'shell-command-to-string) 97 (defalias 'exec-to-string 'shell-command-to-string)
98 98