Mercurial > emacs
comparison lisp/obsolete/lucid.el @ 111233:d86e0c3de741
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 |