Mercurial > hg > xemacs-beta
annotate lisp/x-misc.el @ 5276:dd2976af8783
Add some missing #includes, termcap.c, hopefully fixing Adam Sjoegren's build.
2010-09-18 Aidan Kehoe <kehoea@parhasard.net>
* termcap.c:
Add a couple of missing includes here, which should fix builds
that use this file. (I have no access to such builds, but Mats'
buildbot shows output that indicates they fail at link time since
DEVICE_BAUD_RATE and IS_DIRECTORY_SEP are available.)
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 18 Sep 2010 15:03:54 +0100 |
| parents | e29fcfd8df5f |
| children | d0bb90d90736 308d34e9f07d |
| rev | line source |
|---|---|
| 428 | 1 ;;; x-misc.el --- miscellaneous X functions. |
| 2 | |
| 3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
| 4 ;; Copyright (C) 1995 Sun Microsystems. | |
| 5 ;; Copyright (C) 1995, 1996 Ben Wing. | |
| 6 | |
| 7 ;; Author: Ben Wing <ben@xemacs.org> | |
| 8 ;; Maintainer: XEmacs Development Team | |
| 9 ;; Keywords: extensions, dumped | |
| 10 | |
| 11 ;; This file is part of XEmacs. | |
| 12 | |
| 13 ;; XEmacs is free software; you can redistribute it and/or modify it | |
| 14 ;; under the terms of the GNU General Public License as published by | |
| 15 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 16 ;; any later version. | |
| 17 | |
| 18 ;; XEmacs is distributed in the hope that it will be useful, but | |
| 19 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 21 ;; General Public License for more details. | |
| 22 | |
| 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 | |
| 25 ;; Free Software Foundation, 59 Temple Place - Suite 330, | |
| 26 ;; Boston, MA 02111-1307, USA. | |
| 27 | |
| 28 ;;; Commentary: | |
| 29 | |
| 30 ;; This file is dumped with XEmacs (when X support is compiled in). | |
| 31 | |
| 32 ;;; Code: | |
| 33 | |
| 502 | 34 (globally-declare-fboundp |
| 35 '(x-get-resource)) | |
| 36 | |
| 428 | 37 (defun x-bogosity-check-resource (name class type) |
| 38 "Check for a bogus resource specification." | |
| 39 (let ((bogus (x-get-resource | |
| 40 (concat "__no-such-friggin-locale__." name) | |
| 41 (concat "__No-such-friggin-widget__." class) | |
| 42 type 'global nil t))) | |
| 43 (if bogus | |
| 44 (display-warning | |
| 45 'resource | |
| 46 (format "Bad resource specification encountered: something like | |
| 47 Emacs*%s: %s | |
| 48 You should replace the * with a . in order to get proper behavior when | |
| 49 you use the specifier and/or `set-face-*' functions." name bogus))))) | |
| 50 | |
| 51 (defun x-init-specifier-from-resources (specifier type locale | |
| 52 &rest resource-list) | |
| 53 "Initialize a specifier from the resource database. | |
| 54 LOCALE specifies the locale that is to be initialized and should be | |
| 55 a frame, a device, or 'global. TYPE is the type of the resource and | |
| 56 should be one of 'string, 'boolean, 'integer, or 'natnum. The | |
| 57 remaining args should be conses of names and classes of resources | |
| 58 to be examined. The first resource with a value specified becomes | |
| 59 the spec for SPECIFIER in LOCALE. (However, if SPECIFIER already | |
| 60 has a spec in LOCALE, nothing is done.) Finally, if LOCALE is 'global, | |
| 61 a check is done for bogus resource specifications." | |
| 62 (if (eq locale 'global) | |
|
4783
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
63 (mapc #'(lambda (x) |
|
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
64 (x-bogosity-check-resource (car x) (cdr x) type)) |
|
e29fcfd8df5f
Eliminate most core code byte-compile warnings.
Aidan Kehoe <kehoea@parhasard.net>
parents:
502
diff
changeset
|
65 resource-list)) |
| 428 | 66 (if (not (specifier-spec-list specifier locale)) |
| 67 (catch 'done | |
| 68 (while resource-list | |
| 69 (let* ((name (caar resource-list)) | |
| 70 (class (cdar resource-list)) | |
| 71 (resource | |
| 442 | 72 (x-get-resource name class type locale nil 'warn))) |
| 428 | 73 (if resource |
| 74 (progn | |
| 75 (add-spec-to-specifier specifier resource locale) | |
| 76 (throw 'done t)))) | |
| 77 (setq resource-list (cdr resource-list)))))) | |
| 78 | |
| 79 (defun x-get-resource-and-bogosity-check (name class type &optional locale) | |
| 80 (x-bogosity-check-resource name class type) | |
| 442 | 81 (x-get-resource name class type locale nil 'warn)) |
| 428 | 82 |
| 83 (defun x-get-resource-and-maybe-bogosity-check (name class type &optional | |
| 84 locale) | |
| 85 (if (eq locale 'global) | |
| 86 (x-bogosity-check-resource name class type)) | |
| 442 | 87 (x-get-resource name class type locale nil 'warn)) |
| 428 | 88 |
| 89 ;;; x-misc.el ends here |