HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove inline bytecode
[bpt/emacs.git]
/
lisp
/
w32-fns.el
diff --git
a/lisp/w32-fns.el
b/lisp/w32-fns.el
index
e0d1abe
..
fda51b1
100644
(file)
--- a/
lisp/w32-fns.el
+++ b/
lisp/w32-fns.el
@@
-1,6
+1,6
@@
;;; w32-fns.el --- Lisp routines for 32-bit Windows
;;; w32-fns.el --- Lisp routines for 32-bit Windows
-;; Copyright (C) 1994, 2001-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 1994, 2001-201
4
Free Software Foundation, Inc.
;; Author: Geoff Voelker <voelker@cs.washington.edu>
;; Keywords: internal
;; Author: Geoff Voelker <voelker@cs.washington.edu>
;; Keywords: internal
@@
-250,6
+250,8
@@
This function is provided for backward compatibility, since
;; Set to a system sound if you want a fancy bell.
(set-message-beep nil)
;; Set to a system sound if you want a fancy bell.
(set-message-beep nil)
+(defvar w32-charset-info-alist) ; w32font.c
+
(defun w32-add-charset-info (xlfd-charset windows-charset codepage)
"Function to add character sets to display with Windows fonts.
Creates entries in `w32-charset-info-alist'.
(defun w32-add-charset-info (xlfd-charset windows-charset codepage)
"Function to add character sets to display with Windows fonts.
Creates entries in `w32-charset-info-alist'.
@@
-305,11
+307,6
@@
bit output with no translation."
(w32-add-charset-info "tis620-0" 'w32-charset-thai 874)
(w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252)
(w32-add-charset-info "tis620-0" 'w32-charset-thai 874)
(w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252)
-(make-obsolete-variable 'w32-enable-italics
- 'w32-enable-synthesized-fonts "21.1")
-(make-obsolete-variable 'w32-charset-to-codepage-alist
- 'w32-charset-info-alist "21.1")
-
\f
;;;; Support for build process
\f
;;;; Support for build process