(load "vms-patch")))
(if (eq system-type 'windows-nt)
(progn
- (load "international/ccl")
- (load "international/code-pages")
+ (load "w32-vars")
(load "term/w32-win")
(load "ls-lisp")
(load "disp-table") ; needed to setup ibm-pc char set, see internal.el
(or (featurep 'lisp-float-type)
(error "`ps-print' requires floating point support"))
+
(let ((case-fold-search t))
- (cond ((string-match "XEmacs" emacs-version))
+ (cond ((featurep 'xemacs))
((string-match "Lucid" emacs-version)
(error "`ps-print' doesn't support Lucid"))
((string-match "Epoch" emacs-version)
(require 'select)
(require 'menu-bar)
(require 'dnd)
-(require 'code-pages)
+ (require 'w32-vars)
;; Keep an obsolete alias for w32-focus-frame in case it is used by code
;; outside Emacs.
if (%noopt%) == (Y) echo NOOPT=1 >>config.settings\r
if (%nocygwin%) == (Y) echo NOCYGWIN=1 >>config.settings\r
if not "(%prefix%)" == "()" echo INSTALL_DIR=%prefix%>>config.settings\r
- if not "(%usercflags%)" == "()" echo USER_CFLAGS=%usercflags%>>config.settings\r
- if not "(%userldflags%)" == "()" echo USER_LDFLAGS=%userldflags%>>config.settings\r
+ rem We go thru docflags because usercflags could be "-DFOO=bar" -something\r
+ rem and the if command cannot cope with this\r
+ for %%v in (%usercflags%) do if not (%%v)==() set docflags=Y\r
+ if (%docflags%)==(Y) echo USER_CFLAGS=%usercflags%>>config.settings\r
+ for %%v in (%userldflags%) do if not (%%v)==() set doldflags=Y\r
+ if (%doldflags%)==(Y) echo USER_LDFLAGS=%userldflags%>>config.settings\r
+if (%usefontbackend%) == (Y) echo USE_FONTBACKEND=1 >>config.settings\r
echo # End of settings from configure.bat>>config.settings\r
echo. >>config.settings\r
\r
Lisp_Object Qbuffer_predicate, Qbuffer_list, Qburied_buffer_list;
Lisp_Object Qtty_color_mode;
Lisp_Object Qtty, Qtty_type;
- Lisp_Object Qwindow_system;
Lisp_Object Qfullscreen, Qfullwidth, Qfullheight, Qfullboth;
+#ifdef USE_FONT_BACKEND
+Lisp_Object Qfont_backend;
+#endif /* USE_FONT_BACKEND */
Lisp_Object Qinhibit_face_set_after_frame_default;
Lisp_Object Qface_set_after_frame_default;
EXFUN (Fnext_single_property_change, 4);
EXFUN (Fnext_single_char_property_change, 4);
EXFUN (Fprevious_single_property_change, 4);
+EXFUN (Fget_text_property, 3);
EXFUN (Fput_text_property, 5);
+ EXFUN (Fget_text_property, 3);
EXFUN (Fprevious_char_property_change, 2);
EXFUN (Fnext_char_property_change, 2);
extern void report_interval_modification P_ ((Lisp_Object, Lisp_Object));
#include <stdio.h>
#include <limits.h>
#include <errno.h>
+ #include <math.h>
#include "lisp.h"
-#include "charset.h"
-#include "dispextern.h"
#include "w32term.h"
-#include "keyboard.h"
#include "frame.h"
#include "window.h"
#include "buffer.h"