Commit 985773c9 authored by Miles Bader's avatar Miles Bader

Fix up multi-tty merge

Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-261
Creator:  Stefan Monnier <monnier@iro.umontreal.ca>
parent 47632e43
...@@ -18922,11 +18922,13 @@ _ACEOF ...@@ -18922,11 +18922,13 @@ _ACEOF
cat confdefs.h >>conftest.$ac_ext cat confdefs.h >>conftest.$ac_ext
cat >>conftest.$ac_ext <<_ACEOF cat >>conftest.$ac_ext <<_ACEOF
/* end confdefs.h. */ /* end confdefs.h. */
#include <stdio.h> #include <sys/types.h> /* for off_t */
#include <stdio.h>
int int
main () main ()
{ {
return fseeko (stdin, 0, 0) && (fseeko) (stdin, 0, 0); int (*fp) (FILE *, off_t, int) = fseeko;
return fseeko (stdin, 0, 0) && fp (stdin, 0, 0);
; ;
return 0; return 0;
} }
...@@ -18966,11 +18968,13 @@ cat confdefs.h >>conftest.$ac_ext ...@@ -18966,11 +18968,13 @@ cat confdefs.h >>conftest.$ac_ext
cat >>conftest.$ac_ext <<_ACEOF cat >>conftest.$ac_ext <<_ACEOF
/* end confdefs.h. */ /* end confdefs.h. */
#define _LARGEFILE_SOURCE 1 #define _LARGEFILE_SOURCE 1
#include <stdio.h> #include <sys/types.h> /* for off_t */
#include <stdio.h>
int int
main () main ()
{ {
return fseeko (stdin, 0, 0) && (fseeko) (stdin, 0, 0); int (*fp) (FILE *, off_t, int) = fseeko;
return fseeko (stdin, 0, 0) && fp (stdin, 0, 0);
; ;
return 0; return 0;
} }
......
# Unlike most emacs dirs, etc has a simple non-autoconf-generated makefile # Unlike most emacs dirs, etc has a simple non-autoconf-generated makefile
source ^(Makefile)$ source ^(Makefile)$
# Auto-generated files, which ignore
precious ^(buildobj\.lst)$
# Generated files (DOC-X is generated on windows) # Generated files (DOC-X is generated on windows)
backup ^(DOC(|-[0-9.]*|-X))$ backup ^(DOC(|-[0-9.]*|-X))$
......
2007-10-12 Stefan Monnier <monnier@iro.umontreal.ca>
Fix up multy-tty merge.
* version.el (emacs-version): Bump to 23.0.60.
* term/x-win.el (x-initialize-window-system): Don't try to create
a fontset from a font-specification anymore. This was removed on the
unicode branch and mistakenly re-added by the multi-tty merge.
* term/w32-win.el: Remove duplicate code that's now in
w32-initialize-window-system.
(w32-initialize-window-system): Don't try to create a fontset from
a font-specification anymore. This was removed on the unicode branch
and mistakenly re-added by the multi-tty merge.
* term/mac-win.el: Remove duplicate top-level code.
* ldefs-boot.el: Update.
* language/ethio-util.el:
* international/characters.el: Use utf-8 rather than utf-8-emacs
since it works as well and has the advantage of working with
non-unicode versions of Emacs.
* international/encoded-kb.el (encoded-kbd-setup-display): Use the new
multi-tty code, which includes the previous local change.
2007-09-07 Kenichi Handa <handa@m17n.org> 2007-09-07 Kenichi Handa <handa@m17n.org>
* skeleton.el (skeleton-internal-1): Use integerp and stringp * skeleton.el (skeleton-internal-1): Use integerp and stringp
......
...@@ -283,7 +283,7 @@ Not documented ...@@ -283,7 +283,7 @@ Not documented
;;;;;; do* do loop return-from return block etypecase typecase ecase ;;;;;; do* do loop return-from return block etypecase typecase ecase
;;;;;; case load-time-value eval-when destructuring-bind function* ;;;;;; case load-time-value eval-when destructuring-bind function*
;;;;;; defmacro* defun* gentemp gensym cl-compile-time-init) "cl-macs" ;;;;;; defmacro* defun* gentemp gensym cl-compile-time-init) "cl-macs"
;;;;;; "cl-macs.el" "6990af555f962480552cf0867f3d5bab") ;;;;;; "cl-macs.el" "6ebe05f6ba95a14ea35d74ef52c17882")
;;; Generated autoloads from cl-macs.el ;;; Generated autoloads from cl-macs.el
(autoload 'cl-compile-time-init "cl-macs" "\ (autoload 'cl-compile-time-init "cl-macs" "\
......
...@@ -1171,7 +1171,7 @@ ...@@ -1171,7 +1171,7 @@
)) ))
;; Local Variables: ;; Local Variables:
;; coding: utf-8-emacs ;; coding: utf-8
;; End: ;; End:
;; arch-tag: 85889c35-9f4d-4912-9bf5-82de31b0d42d ;; arch-tag: 85889c35-9f4d-4912-9bf5-82de31b0d42d
......
...@@ -333,53 +333,43 @@ The following key sequence may cause multilingual text insertion." ...@@ -333,53 +333,43 @@ The following key sequence may cause multilingual text insertion."
(defun encoded-kbd-setup-display (display) (defun encoded-kbd-setup-display (display)
"Set up a `input-decode-map' for `keyboard-coding-system' on DISPLAY. "Set up a `input-decode-map' for `keyboard-coding-system' on DISPLAY.
(put 'encoded-kbd-mode 'permanent-local t) DISPLAY may be a display id, a frame, or nil for the selected frame's display."
;;;###autoload (let ((frame (if (framep display) display (car (frames-on-display-list display)))))
(define-minor-mode encoded-kbd-mode (when frame
"Toggle Encoded-kbd minor mode. (with-selected-frame frame
With arg, turn Encoded-kbd mode on if and only if arg is positive. ;; Remove any previous encoded-kb keymap from input-decode-map.
(let ((m input-decode-map))
You should not turn this mode on manually, instead use the command (if (equal (keymap-prompt m) "encoded-kb")
\\[set-keyboard-coding-system] which turns on or off this mode (setq input-decode-map (keymap-parent m))
automatically. (while (keymap-parent m)
(if (equal (keymap-prompt (keymap-parent m)) "encoded-kb")
In Encoded-kbd mode, a text sent from keyboard is accepted (set-keymap-parent m (keymap-parent (keymap-parent m))))
as a multilingual text encoded in a coding system set by (setq m (keymap-parent m)))))
\\[set-keyboard-coding-system]."
:global t :group 'keyboard :group 'mule (if (keyboard-coding-system)
;; We are turning on Encoded-kbd mode.
(if encoded-kbd-mode (let ((coding (keyboard-coding-system))
;; We are turning on Encoded-kbd mode. (keymap (make-sparse-keymap "encoded-kb"))
(let ((coding (keyboard-coding-system)) (cim (current-input-mode))
result) result)
(or saved-key-translation-map (set-keymap-parent keymap input-decode-map)
(if (keymapp key-translation-map) (setq input-decode-map keymap)
(setq saved-key-translation-map (unless (terminal-parameter nil 'encoded-kbd-saved-input-meta-mode)
(copy-keymap key-translation-map)) (set-terminal-parameter nil 'encoded-kbd-saved-input-mode (nth 2 cim)))
(setq key-translation-map (make-sparse-keymap)))) (setq result (and coding (encoded-kbd-setup-keymap keymap coding)))
(or saved-input-mode (if result
(setq saved-input-mode (when (and (eq result 8)
(current-input-mode))) (memq (nth 2 cim) '(t nil)))
(setq result (and coding (encoded-kbd-setup-keymap coding))) (set-input-meta-mode 'use-8th-bit))
(if result (set-terminal-parameter nil 'encoded-kbd-saved-input-meta-mode nil)
(if (eq result 8) (error "Unsupported coding system in Encoded-kbd mode: %S"
(set-input-mode coding)))
(nth 0 saved-input-mode) ;; We are turning off Encoded-kbd mode.
(nth 1 saved-input-mode) (when (and (terminal-parameter nil 'encoded-kbd-saved-input-meta-mode)
'use-8th-bit (not (equal (nth 2 (current-input-mode))
(nth 3 saved-input-mode))) (terminal-parameter nil 'encoded-kbd-saved-input-meta-mode))))
(setq encoded-kbd-mode nil (set-input-meta-mode (terminal-parameter nil 'encoded-kbd-saved-input-meta-mode)))
saved-key-translation-map nil (set-terminal-parameter nil 'saved-input-meta-mode nil))))))
saved-input-mode nil)
(error "Unsupported coding system in Encoded-kbd mode: %S"
coding)))
;; We are turning off Encoded-kbd mode.
(when saved-input-mode
(setq key-translation-map saved-key-translation-map
saved-key-translation-map nil)
(apply 'set-input-mode saved-input-mode)
(setq saved-input-mode nil))))
(provide 'encoded-kb) (provide 'encoded-kb)
......
;;; ethio-util.el --- utilities for Ethiopic -*- coding: utf-8-emacs; -*- ;;; ethio-util.el --- utilities for Ethiopic -*- coding: utf-8; -*-
;; Copyright (C) 1997, 1998, 2002, 2003, 2004, 2005, 2006, 2007 ;; Copyright (C) 1997, 1998, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc. ;; Free Software Foundation, Inc.
......
This diff is collapsed.
...@@ -6498,7 +6498,7 @@ If FACE is not a valid face name, use default face." ...@@ -6498,7 +6498,7 @@ If FACE is not a valid face name, use default face."
;; But autoload them here to make the separation invisible. ;; But autoload them here to make the separation invisible.
;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize ;;;### (autoloads (ps-mule-end-job ps-mule-begin-job ps-mule-initialize
;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "bb18668f99d691db470ec2a32753ba28") ;;;;;; ps-multibyte-buffer) "ps-mule" "ps-mule.el" "ba0ba38bf1f9831ca12701290fd4b211")
;;; Generated autoloads from ps-mule.el ;;; Generated autoloads from ps-mule.el
(defvar ps-multibyte-buffer nil "\ (defvar ps-multibyte-buffer nil "\
...@@ -6544,20 +6544,20 @@ Valid values are: ...@@ -6544,20 +6544,20 @@ Valid values are:
Any other value is treated as nil.") Any other value is treated as nil.")
(custom-autoload (quote ps-multibyte-buffer) "ps-mule" t) (custom-autoload 'ps-multibyte-buffer "ps-mule" t)
(autoload (quote ps-mule-initialize) "ps-mule" "\ (autoload 'ps-mule-initialize "ps-mule" "\
Initialize global data for printing multi-byte characters. Initialize global data for printing multi-byte characters.
\(fn)" nil nil) \(fn)" nil nil)
(autoload (quote ps-mule-begin-job) "ps-mule" "\ (autoload 'ps-mule-begin-job "ps-mule" "\
Start printing job for multi-byte chars between FROM and TO. Start printing job for multi-byte chars between FROM and TO.
It checks if all multi-byte characters in the region are printable or not. It checks if all multi-byte characters in the region are printable or not.
\(fn FROM TO)" nil nil) \(fn FROM TO)" nil nil)
(autoload (quote ps-mule-end-job) "ps-mule" "\ (autoload 'ps-mule-end-job "ps-mule" "\
Finish printing job for multi-byte chars. Finish printing job for multi-byte chars.
\(fn)" nil nil) \(fn)" nil nil)
......
...@@ -2346,34 +2346,6 @@ See also `mac-dnd-known-types'." ...@@ -2346,34 +2346,6 @@ See also `mac-dnd-known-types'."
(mac-dnd-drop-data event (selected-frame) window (mac-dnd-drop-data event (selected-frame) window
(cdr item) (car item) action))))) (cdr item) (car item) action)))))
;;; Do the actual Windows setup here; the above code just defines
;;; functions and variables that we use now.
(setq command-line-args (x-handle-args command-line-args))
;;; Make sure we have a valid resource name.
(or (stringp x-resource-name)
(let (i)
(setq x-resource-name (invocation-name))
;; Change any . or * characters in x-resource-name to hyphens,
;; so as not to choke when we use it in X resource queries.
(while (setq i (string-match "[.*]" x-resource-name))
(aset x-resource-name i ?-))))
(if (x-display-list)
;; On Mac OS 8/9, Most coding systems used in code conversion for
;; font names are not ready at the time when the terminal frame is
;; created. So we reconstruct font name table for the initial
;; frame.
(mac-clear-font-name-table)
(x-open-connection "Mac"
x-command-line-resources
;; Exit Emacs with fatal error if this fails.
t))
(setq frame-creation-function 'x-create-frame-with-faces)
(setq font-encoding-alist (setq font-encoding-alist
(append (append
'(("mac-roman" . mac-roman) '(("mac-roman" . mac-roman)
......
...@@ -1076,44 +1076,6 @@ European languages which are distributed with Windows as ...@@ -1076,44 +1076,6 @@ European languages which are distributed with Windows as
See the documentation of `create-fontset-from-fontset-spec' for the format.") See the documentation of `create-fontset-from-fontset-spec' for the format.")
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
(when (fboundp 'new-fontset)
;; Setup the default fontset.
(setup-default-fontset)
;; Create the standard fontset.
(create-fontset-from-fontset-spec w32-standard-fontset-spec t)
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...).
(create-fontset-from-x-resource))
;; Apply a geometry resource to the initial frame. Put it at the end
;; of the alist, so that anything specified on the command line takes
;; precedence.
(let* ((res-geometry (x-get-resource "geometry" "Geometry"))
parsed)
(if res-geometry
(progn
(setq parsed (x-parse-geometry res-geometry))
;; If the resource specifies a position,
;; call the position and size "user-specified".
(if (or (assq 'top parsed) (assq 'left parsed))
(setq parsed (cons '(user-position . t)
(cons '(user-size . t) parsed))))
;; All geometry parms apply to the initial frame.
(setq initial-frame-alist (append initial-frame-alist parsed))
;; The size parms apply to all frames.
(if (assq 'height parsed)
(push (cons 'height (cdr (assq 'height parsed)))
default-frame-alist))
(if (assq 'width parsed)
(push (cons 'width (cdr (assq 'width parsed)))
default-frame-alist)))))
;; Check the reverseVideo resource.
(let ((case-fold-search t))
(let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
(if (and rv (string-match "^\\(true\\|yes\\|on\\)$" rv))
(push '(reverse . t) default-frame-alist))))
(defun x-win-suspend-error () (defun x-win-suspend-error ()
"Report an error when a suspend is attempted." "Report an error when a suspend is attempted."
(error "Suspending an Emacs running under W32 makes no sense")) (error "Suspending an Emacs running under W32 makes no sense"))
...@@ -1145,7 +1107,7 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')." ...@@ -1145,7 +1107,7 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')."
;; Append list of fontsets currently defined. ;; Append list of fontsets currently defined.
;; Conditional on new-fontset so bootstrapping works on non-GUI compiles ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
(if (fboundp 'new-fontset) (if (fboundp 'new-fontset)
(append w32-fixed-font-alist (list (generate-fontset-menu))))))) (append w32-fixed-font-alist (list (generate-fontset-menu)))))))
(if fonts (if fonts
(let (font) (let (font)
(while fonts (while fonts
...@@ -1199,30 +1161,6 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')." ...@@ -1199,30 +1161,6 @@ pop-up menu are unaffected by `w32-list-proportional-fonts')."
(create-fontset-from-fontset-spec w32-standard-fontset-spec t) (create-fontset-from-fontset-spec w32-standard-fontset-spec t)
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...). ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1,...).
(create-fontset-from-x-resource) (create-fontset-from-x-resource)
;; Try to create a fontset from a font specification which comes
;; from initial-frame-alist, default-frame-alist, or X resource.
;; A font specification in command line argument (i.e. -fn XXXX)
;; should be already in default-frame-alist as a `font'
;; parameter. However, any font specifications in site-start
;; library, user's init file (.emacs), and default.el are not
;; yet handled here.
(let ((font (or (cdr (assq 'font initial-frame-alist))
(cdr (assq 'font default-frame-alist))
(x-get-resource "font" "Font")))
xlfd-fields resolved-name)
(if (and font
(not (query-fontset font))
(setq resolved-name (x-resolve-font-name font))
(setq xlfd-fields (x-decompose-font-name font)))
(if (string= "fontset"
(aref xlfd-fields xlfd-regexp-registry-subnum))
(new-fontset font
(x-complement-fontset-spec xlfd-fields nil))
;; Create a fontset from FONT. The fontset name is
;; generated from FONT.
(create-fontset-from-ascii-font font
resolved-name "startup"))))
;; Apply a geometry resource to the initial frame. Put it at the end ;; Apply a geometry resource to the initial frame. Put it at the end
;; of the alist, so that anything specified on the command line takes ;; of the alist, so that anything specified on the command line takes
......
...@@ -2469,28 +2469,6 @@ order until succeed.") ...@@ -2469,28 +2469,6 @@ order until succeed.")
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
(create-fontset-from-x-resource) (create-fontset-from-x-resource)
;; Try to create a fontset from a font specification which comes
;; from initial-frame-alist, default-frame-alist, or X resource.
;; A font specification in command line argument (i.e. -fn XXXX)
;; should be already in default-frame-alist as a `font'
;; parameter. However, any font specifications in site-start
;; library, user's init file (.emacs), and default.el are not
;; yet handled here.
(let ((font (or (cdr (assq 'font initial-frame-alist))
(cdr (assq 'font default-frame-alist))
(x-get-resource "font" "Font")))
xlfd-fields resolved-name)
(if (and font
(not (query-fontset font))
(setq resolved-name (x-resolve-font-name font))
(setq xlfd-fields (x-decompose-font-name font)))
(if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
(new-fontset font (x-complement-fontset-spec xlfd-fields nil))
;; Create a fontset from FONT. The fontset name is
;; generated from FONT.
(create-fontset-from-ascii-font font resolved-name "startup"))))
;; Set scroll bar mode to right if set by X resources. Default is left. ;; Set scroll bar mode to right if set by X resources. Default is left.
(if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right") (if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right")
(customize-set-variable 'scroll-bar-mode 'right)) (customize-set-variable 'scroll-bar-mode 'right))
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
(defconst emacs-copyright "Copyright (C) 2007 Free Software Foundation, Inc." (defconst emacs-copyright "Copyright (C) 2007 Free Software Foundation, Inc."
"Short copyright string for this version of Emacs.") "Short copyright string for this version of Emacs.")
(defconst emacs-version "23.0.50" "\ (defconst emacs-version "23.0.60" "\
Version numbers of this version of Emacs.") Version numbers of this version of Emacs.")
(defconst emacs-major-version (defconst emacs-major-version
......
...@@ -12403,6 +12403,11 @@ ...@@ -12403,6 +12403,11 @@
* regex.c (re_error_msgid): Add an entry for REG_ERANGEX. * regex.c (re_error_msgid): Add an entry for REG_ERANGEX.
(regex_compile): Return REG_ERANGEX if appropriate. (regex_compile): Return REG_ERANGEX if appropriate.
2004-10-22 Kenichi Handa <handa@m17n.org>
* editfns.c (Ftranslate_region_internal): New function.
(syms_of_editfns): Defsubr it.
2004-10-22 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> 2004-10-22 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* xfns.c (xic_create_xfontset): Initialize missing_list to NULL. * xfns.c (xic_create_xfontset): Initialize missing_list to NULL.
......
2007-10-12 Stefan Monnier <monnier@iro.umontreal.ca>
Fix up multy-tty merge.
* xterm.c (handle_one_xevent): Remove duplicate code and fix up nesting
and indentation.
* xfaces.c (free_realized_face, clear_face_gcs):
Include font_done_for_face in the input_blocked section, just in case.
* xdisp.c (decode_mode_spec): Use terminal-local coding systems.
(get_char_face_and_encoding): Undo last change and remove the *other*
duplicate definition (i.e. keep the one that's better scoped and that
includes code for the font-backend).
* terminal.c (create_terminal): Default keyboard_coding to
`no-conversion' and terminal_coding to `undecided'.
* lread.c (read1): Use XSETPVECTYPE to set a pseudovector's tag.
* fontset.c (free_realized_fontsets): Check that the table entry does
contain a fontset before trying to compare it to `base'.
* emacs.c (main): Move syms_of_data, syms_of_fileio, syms_of_alloc,
syms_of_charset, and syms_of_coding earlier because init_window_once
now needs Vcoding_system_hash_table to be setup.
* coding.h (default_buffer_file_coding): Remove.
* coding.c (default_buffer_file_coding): Remove.
(Fterminal_coding_system, Fkeyboard_coding_system): Use ->id rather
than ->symbol, and use the terminal-local coding system.
(syms_of_coding): Don't setup the coding-systems that are not
terminal-local.
(Fdefine_coding_system_internal): Use XCAR/XCDR.
* chartab.c (Fmake_char_table, make_sub_char_table, copy_char_table):
Use XSETPVECTYPE now that XSETCHAR_TABLE doesn't set the tag anymore.
* alloc.c (Fmake_char_table, make_sub_char_table): Remove. They're now
in chartab.c and were re-added here by mistake.
(Fpurecopy): Use XSETPVECTYPE after copying a COMPILED pseudovector.
* doc.c (Fsnarf_documentation):
* Makefile.in (temacs${EXEEXT}, mostlyclean): Move buildobj.lst from
src to etc.
* ChangeLog.10: Add mistakenly removed entry.
2007-10-12 Dan Nicolaescu <dann@ics.uci.edu> 2007-10-12 Dan Nicolaescu <dann@ics.uci.edu>
* Makefile.in (fringe.o, minibuf.o): Fix dependencies. * Makefile.in (fringe.o, minibuf.o): Fix dependencies.
......
...@@ -1007,7 +1007,7 @@ ${lispsource}international/charprop.el: temacs${EXEEXT} ${UNIDATA} ...@@ -1007,7 +1007,7 @@ ${lispsource}international/charprop.el: temacs${EXEEXT} ${UNIDATA}
#endif #endif
temacs${EXEEXT}: MAKE_PARALLEL $(LOCALCPP) $(STARTFILES) stamp-oldxmenu ${obj} ${otherobj} OBJECTS_MACHINE prefix-args${EXEEXT} temacs${EXEEXT}: MAKE_PARALLEL $(LOCALCPP) $(STARTFILES) stamp-oldxmenu ${obj} ${otherobj} OBJECTS_MACHINE prefix-args${EXEEXT}
echo "${obj} ${otherobj} " OBJECTS_MACHINE > buildobj.lst echo "${obj} ${otherobj} " OBJECTS_MACHINE > ${etc}buildobj.lst
$(LD) YMF_PASS_LDFLAGS (${STARTFLAGS} ${TEMACS_LDFLAGS}) $(LDFLAGS) \ $(LD) YMF_PASS_LDFLAGS (${STARTFLAGS} ${TEMACS_LDFLAGS}) $(LDFLAGS) \
-o temacs ${STARTFILES} ${obj} ${otherobj} \ -o temacs ${STARTFILES} ${obj} ${otherobj} \
OBJECTS_MACHINE ${LIBES} OBJECTS_MACHINE ${LIBES}
...@@ -1133,7 +1133,7 @@ ecrt0.o: ecrt0.c $(config_h) ...@@ -1133,7 +1133,7 @@ ecrt0.o: ecrt0.c $(config_h)
CRT0_COMPILE ${srcdir}/ecrt0.c CRT0_COMPILE ${srcdir}/ecrt0.c
dired.o: dired.c commands.h buffer.h $(config_h) character.h charset.h \ dired.o: dired.c commands.h buffer.h $(config_h) character.h charset.h \
coding.h regex.h systime.h blockinput.h atimer.h coding.h regex.h systime.h blockinput.h atimer.h
dispnew.o: dispnew.c systty.h systime.h commands.h process.h frame.h \ dispnew.o: dispnew.c systime.h commands.h process.h frame.h \
window.h buffer.h dispextern.h termchar.h termopts.h termhooks.h cm.h \ window.h buffer.h dispextern.h termchar.h termopts.h termhooks.h cm.h \
disptab.h indent.h intervals.h \ disptab.h indent.h intervals.h \
xterm.h blockinput.h atimer.h character.h msdos.h composite.h keyboard.h \ xterm.h blockinput.h atimer.h character.h msdos.h composite.h keyboard.h \
...@@ -1288,11 +1288,10 @@ fns.o: fns.c commands.h $(config_h) frame.h buffer.h character.h keyboard.h \ ...@@ -1288,11 +1288,10 @@ fns.o: fns.c commands.h $(config_h) frame.h buffer.h character.h keyboard.h \
keymap.h frame.h window.h dispextern.h $(INTERVAL_SRC) coding.h md5.h \ keymap.h frame.h window.h dispextern.h $(INTERVAL_SRC) coding.h md5.h \
blockinput.h atimer.h systime.h xterm.h termhooks.h blockinput.h atimer.h systime.h xterm.h termhooks.h
print.o: print.c process.h frame.h window.h buffer.h keyboard.h character.h \ print.o: print.c process.h frame.h window.h buffer.h keyboard.h character.h \
$(config_h) dispextern.h termchar.h $(INTERVAL_SRC) msdos.h composite.h \ $(config_h) dispextern.h termchar.h $(INTERVAL_SRC) msdos.h composite.h \
blockinput.h atimer.h systime.h blockinput.h atimer.h systime.h
lread.o: lread.c commands.h keyboard.h buffer.h epaths.h character.h \ lread.o: lread.c commands.h keyboard.h buffer.h epaths.h character.h \
charset.h $(config_h) $(INTERVAL_SRC) termhooks.h coding.h msdos.h \ charset.h $(config_h) $(INTERVAL_SRC) termhooks.h coding.h msdos.h
blockinput.h atimer.h systime.h
/* Text properties support */ /* Text properties support */
textprop.o: textprop.c buffer.h window.h dispextern.h $(INTERVAL_SRC) \ textprop.o: textprop.c buffer.h window.h dispextern.h $(INTERVAL_SRC) \
...@@ -1357,7 +1356,7 @@ mostlyclean: ...@@ -1357,7 +1356,7 @@ mostlyclean:
rm -f temacs${EXEEXT} prefix-args${EXEEXT} core *.core \#* *.o libXMenu11.a liblw.a rm -f temacs${EXEEXT} prefix-args${EXEEXT} core *.core \#* *.o libXMenu11.a liblw.a
rm -f ../etc/DOC rm -f ../etc/DOC
rm -f bootstrap-emacs${EXEEXT} emacs-${version}${EXEEXT} rm -f bootstrap-emacs${EXEEXT} emacs-${version}${EXEEXT}
rm -f buildobj.lst rm -f ${etc}buildobj.lst
clean: mostlyclean clean: mostlyclean
rm -f emacs-*${EXEEXT} emacs${EXEEXT} rm -f emacs-*${EXEEXT} emacs${EXEEXT}
/**/# This is used in making a distribution. /**/# This is used in making a distribution.
......
...@@ -3070,51 +3070,6 @@ See also the function `vector'. */) ...@@ -3070,51 +3070,6 @@ See also the function `vector'. */)
} }
DEFUN ("make-char-table", Fmake_char_table, Smake_char_table, 1, 2, 0,
doc: /* Return a newly created char-table, with purpose PURPOSE.
Each element is initialized to INIT, which defaults to nil.
PURPOSE should be a symbol which has a `char-table-extra-slots' property.
The property's value should be an integer between 0 and 10. */)
(purpose, init)
register Lisp_Object purpose, init;
{
Lisp_Object vector;
Lisp_Object n;
CHECK_SYMBOL (purpose);
n = Fget (purpose, Qchar_table_extra_slots);
CHECK_NUMBER (n);
if (XINT (n) < 0 || XINT (n) > 10)
args_out_of_range (n, Qnil);
/* Add 2 to the size for the defalt and parent slots. */