2010-10-24 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * configure.in: Remove the BROKEN annotation from gnutls.
+ * configure.in: Remove the BROKEN annotation from GnuTLS.
2010-10-22 Glenn Morris <rgm@gnu.org>
2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
* configure.in (HAVE_GNUTLS): Don't break if we don't have the
- gnutls libraries.
+ GnuTLS libraries.
2010-09-26 Teodor Zlatanov <tzz@lifelogs.com>
* org.texi (Activation, Exporting, ASCII export, HTML export)
(HTML Export commands, LaTeX/PDF export commands):
Improve documentation about transient-mark-mode.
- (References): DOcuemtn the use of special names like $LR1 to reference
+ (References): Document the use of special names like $LR1 to reference
to fields in the last table row.
2008-12-19 Juri Linkov <juri@jurta.org>
+2011-11-25 Juanma Barranquero <lekktu@gmail.com>
+
+ * emacs-lisp/avl-tree.el (avl-tree--do-copy, avl-tree-create)
+ (avl-tree-compare-function, avl-tree-empty, avl-tree-enter)
+ (avl-tree-delete, avl-tree-member, avl-tree-member-p, avl-tree-map)
+ (avl-tree-mapc, avl-tree-mapf, avl-tree-mapcar, avl-tree-copy)
+ (avl-tree-clear, avl-tree-stack, avl-tree-stack-pop)
+ (avl-tree-stack-first):
+ * emacs-lisp/cconv.el (cconv--analyse-use):
+ * net/gnutls.el (gnutls-negotiate): Fix typos.
+
2011-11-24 Glenn Morris <rgm@gnu.org>
* lpr.el (lpr-windows-system, lpr-lp-system):
* cus-edit.el (custom-show): Mark as obsolete.
- * net/network-stream.el (network-stream-open-starttls): If gnutls
+ * net/network-stream.el (network-stream-open-starttls): If GnuTLS
negotiation fails, then possibly try again with a non-encrypted
connection (bug#9017).
2011-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/network-stream.el (network-stream-open-starttls): Only do
- opportunistic STARTTLS upgrades if we have built-in gnutls support.
+ opportunistic STARTTLS upgrades if we have built-in GnuTLS support.
Upgrades via gnutls-cli are too slow to be done opportunistically.
2011-04-12 Juanma Barranquero <lekktu@gmail.com>
2002-09-28 Simon Josefsson <jas@extundo.com>
- * mail/smtpmail.el (smtpmail-via-smtp): Only negotiate starttls on
- streams that were opened using starttls.
+ * mail/smtpmail.el (smtpmail-via-smtp): Only negotiate STARTTLS on
+ streams that were opened using STARTTLS.
2002-09-28 Paul Reilly <pmr@pajato.com>
2004-05-28 Simon Josefsson <jas@extundo.com>
* mail/smtpmail.el (smtpmail-open-stream):
- Bind starttls-extra-arguments too, if starttls.el uses GNUTLS.
+ Bind starttls-extra-arguments too, if starttls.el uses GnuTLS.
2004-05-26 Simon Josefsson <jas@extundo.com>
- * starttls.el: Merge with my GNUTLS based starttls.el.
+ * starttls.el: Merge with my GnuTLS based starttls.el.
(starttls-gnutls-program, starttls-use-gnutls)
(starttls-extra-arguments, starttls-process-connection-type)
(starttls-connect, starttls-failure, starttls-success): New variables.
stops with an error and Emacs does not compile with those things in.
Besides, declare-function is not defined in XEmacs.
- * ediff-util.el (eqiff-quit): Autoraise minibuffer.
+ * ediff-util.el (ediff-quit): Autoraise minibuffer.
* ediff-diff.el (ediff-convert-fine-diffs-to-overlays): Make it a defun.
* help-mode.el (help-mode): Set view-exit-action to bury the
buffer instead of fiddling with windows. Simplify code.
- (help-mode-finish): When help-window eqs t set it to the selected
+ (help-mode-finish): When help-window equals t set it to the selected
window and have with-help-window set up view-return-to-alist.
(help-buffer): Add autoload cookie.
2010-10-03 Teodor Zlatanov <tzz@lifelogs.com>
- * net/gnutls.el: Improve docs. Remove starttls and ssl emulation.
+ * net/gnutls.el: Improve docs. Remove STARTTLS and SSL emulation.
Provide only `open-gnutls-stream' (formerly `open-ssl-stream') and
`gnutls-negotiate' (formerly `starttls-negotiate').
Remove trivial wrapper `starttls-open-stream'.
2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * net/tls.el (tls-starttls-switches): Give up on using starttls with
+ * net/tls.el (tls-starttls-switches): Give up on using STARTTLS with
gnutls-cli.
(tls-program): Add --insecure to be consistent with the defaults from
openssl s_client. Now all three commands are insecure.
bindings for quail-execute-non-quail-command deleted.
(quail-conversion-keymap): Likewise. Add key bindings for
quail-self-insert-command.
- (quail-delete-overlays): Chekc overlay-start for overlays before
+ (quail-delete-overlays): Check overlay-start for overlays before
deleting them.
(quail-mode): This function deleted.
(quail-inactivate, quail-activate): New functions.
* loadup.el: Load language/english and language/tibetan.
* mule-cmds.el: Prefix for Mule related commands is changed.
- (view-hello-file): Allways does correct decoding of HELLO file.
+ (view-hello-file): Always does correct decoding of HELLO file.
* mule-conf.el: Change descriptions for Arabic, Indian, and
Vietnamese character sets. Define Tibetan character sets.
cmpfun)
(defmacro avl-tree--root (tree)
- ;; Return the root node for an avl-tree. INTERNAL USE ONLY.
+ ;; Return the root node for an AVL tree. INTERNAL USE ONLY.
`(avl-tree--node-left (avl-tree--dummyroot ,tree)))
(defsetf avl-tree--root (tree) (node)
;;; INTERNAL USE ONLY
(defun avl-tree--do-copy (root)
- "Copy the avl tree with ROOT as root. Highly recursive."
+ "Copy the AVL tree with ROOT as root. Highly recursive."
(if (null root)
nil
(avl-tree--node-create
;; front of the STACK, until a leaf is reached.
(let ((node (car (avl-tree--stack-store stack)))
(dir (if (avl-tree--stack-reverse stack) 1 0)))
- (when node ; check for emtpy stack
+ (when node ; check for empty stack
(while (setq node (avl-tree--node-branch node dir))
(push node (avl-tree--stack-store stack))))))
;; define public alias for constructors so that we can set docstring
(defalias 'avl-tree-create 'avl-tree--create
- "Create an empty avl tree.
+ "Create an empty AVL tree.
COMPARE-FUNCTION is a function which takes two arguments, A and B,
and returns non-nil if A is less than B, and nil otherwise.")
(defalias 'avl-tree-compare-function 'avl-tree--cmpfun
- "Return the comparison function for the avl tree TREE.
+ "Return the comparison function for the AVL tree TREE.
\(fn TREE)")
(defun avl-tree-empty (tree)
- "Return t if avl tree TREE is emtpy, otherwise return nil."
+ "Return t if AVL tree TREE is empty, otherwise return nil."
(null (avl-tree--root tree)))
(defun avl-tree-enter (tree data &optional updatefun)
- "Insert DATA into the avl tree TREE.
+ "Insert DATA into the AVL tree TREE.
If an element that matches DATA (according to the tree's
comparison function, see `avl-tree-create') already exists in
If UPDATEFUN is supplied and an element matching DATA already
exists in TREE, UPDATEFUN is called with two arguments: DATA, and
-the matching element. Its return value replaces the existing
-element. This value *must* itself match DATA (and hence the
+the matching element. Its return value replaces the existing
+element. This value *must* itself match DATA (and hence the
pre-existing data), or an error will occur.
Returns the new data."
0 data updatefun)))
(defun avl-tree-delete (tree data &optional test nilflag)
- "Delete the element matching DATA from the avl tree TREE.
+ "Delete the element matching DATA from the AVL tree TREE.
Matching uses the comparison function previously specified in
`avl-tree-create' when TREE was created.
element.
If supplied, TEST specifies a test that a matching element must
-pass before it is deleted. If a matching element is found, it is
+pass before it is deleted. If a matching element is found, it is
passed as an argument to TEST, and is deleted only if the return
value is non-nil."
(cdr (avl-tree--do-delete (avl-tree--cmpfun tree)
(defun avl-tree-member (tree data &optional nilflag)
- "Return the element in the avl tree TREE which matches DATA.
+ "Return the element in the AVL tree TREE which matches DATA.
Matching uses the comparison function previously specified in
`avl-tree-create' when TREE was created.
If there is no such element in the tree, nil is
-returned. Optional argument NILFLAG specifies a value to return
-instead of nil in this case. This allows non-existent elements to
-be distinguished from a null element. (See also
+returned. Optional argument NILFLAG specifies a value to return
+instead of nil in this case. This allows non-existent elements to
+be distinguished from a null element. (See also
`avl-tree-member-p', which does this for you.)"
(let ((node (avl-tree--root tree))
(compare-function (avl-tree--cmpfun tree)))
(defun avl-tree-member-p (tree data)
- "Return t if an element matching DATA exists in the avl tree TREE,
-otherwise return nil. Matching uses the comparison function
+ "Return t if an element matching DATA exists in the AVL tree TREE.
+Otherwise return nil. Matching uses the comparison function
previously specified in `avl-tree-create' when TREE was created."
(let ((flag '(nil)))
(not (eq (avl-tree-member tree data flag) flag))))
(defun avl-tree-map (__map-function__ tree &optional reverse)
- "Modify all elements in the avl tree TREE by applying FUNCTION.
+ "Modify all elements in the AVL tree TREE by applying FUNCTION.
Each element is replaced by the return value of FUNCTION applied
to that element.
(defun avl-tree-mapc (__map-function__ tree &optional reverse)
- "Apply FUNCTION to all elements in avl tree TREE,
+ "Apply FUNCTION to all elements in AVL tree TREE,
for side-effect only.
FUNCTION is applied to the elements in ascending order, or
(defun avl-tree-mapf
(__map-function__ combinator tree &optional reverse)
- "Apply FUNCTION to all elements in avl tree TREE,
+ "Apply FUNCTION to all elements in AVL tree TREE,
and combine the results using COMBINATOR.
The FUNCTION is applied and the results are combined in ascending
(defun avl-tree-mapcar (__map-function__ tree &optional reverse)
- "Apply FUNCTION to all elements in avl tree TREE,
+ "Apply FUNCTION to all elements in AVL tree TREE,
and make a list of the results.
The FUNCTION is applied and the list constructed in ascending
(avl-tree--node-data node))))
(defun avl-tree-copy (tree)
- "Return a copy of the avl tree TREE."
+ "Return a copy of the AVL tree TREE."
(let ((new-tree (avl-tree-create (avl-tree--cmpfun tree))))
(setf (avl-tree--root new-tree) (avl-tree--do-copy (avl-tree--root tree)))
new-tree))
treesize))
(defun avl-tree-clear (tree)
- "Clear the avl tree TREE."
+ "Clear the AVL tree TREE."
(setf (avl-tree--root tree) nil))
Operations on these objects are significantly more efficient than
constructing a real stack with `avl-tree-flatten' and using
-standard stack functions. As such, they can be useful in
-implementing efficient algorithms of AVL trees. However, in cases
+standard stack functions. As such, they can be useful in
+implementing efficient algorithms of AVL trees. However, in cases
where mapping functions `avl-tree-mapc', `avl-tree-mapcar' or
`avl-tree-mapf' would be sufficient, it is better to use one of
those instead."
(defun avl-tree-stack-pop (avl-tree-stack &optional nilflag)
"Pop the first element from AVL-TREE-STACK.
-\(See also `avl-tree-stack'\).
+\(See also `avl-tree-stack').
-Returns nil if the stack is empty, or NILFLAG if specified. (The
-latter allows an empty stack to be distinguished from a null
-element stored in the AVL tree.)"
+Returns nil if the stack is empty, or NILFLAG if specified.
+\(The latter allows an empty stack to be distinguished from
+a null element stored in the AVL tree.)"
(let (node next)
(if (not (setq node (pop (avl-tree--stack-store avl-tree-stack))))
nilflag
"Return the first element of AVL-TREE-STACK, without removing it
from the stack.
-Returns nil if the stack is empty, or NILFLAG if specified. (The
-latter allows an empty stack to be distinguished from a null
-element stored in the AVL tree.)"
+Returns nil if the stack is empty, or NILFLAG if specified.
+\(The latter allows an empty stack to be distinguished from
+a null element stored in the AVL tree.)"
(or (car (avl-tree--stack-store avl-tree-stack))
nilflag))
(defalias 'byte-compile-not-lexical-var-p 'boundp))
(defun cconv--analyse-use (vardata form varkind)
- "Analyse the use of a variable.
+ "Analyze the use of a variable.
VARDATA should be (BINDER READ MUTATED CAPTURED CALLED).
VARKIND is the name of the kind of variable.
FORM is the parent form that binds this var."
(t (let ((varstruct (list arg nil nil nil nil)))
(push (cons (list arg) (cdr varstruct)) newvars)
(push varstruct newenv)))))
- (dolist (form body) ;Analyse body forms.
+ (dolist (form body) ;Analyze body forms.
(cconv-analyse-form form newenv))
;; Summarize resulting data about arguments.
(dolist (vardata newvars)
(push (cons binder (cdr varstruct)) newvars)
(push varstruct env))))
- (dolist (form body-forms) ; Analyse body forms.
+ (dolist (form body-forms) ; Analyze body forms.
(cconv-analyse-form form env))
(dolist (vardata newvars)
we're using an encrypted connection.
* proto-stream.el: Alter the interface functions to also return the
- actual stream type used: network or tls.
+ actual stream type used: network or TLS.
2011-01-25 Julien Danjou <julien@danjou.info>
2010-11-30 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * proto-stream.el (open-protocol-stream): All starttls connections are
+ * proto-stream.el (open-protocol-stream): All STARTTLS connections are
handled by the network handler.
2010-11-30 Julien Danjou <julien@danjou.info>
(nnimap-open-connection): Be more backwards-compatible.
* proto-stream.el (proto-stream-always-use-starttls): New variable.
- (proto-stream-open-starttls): De-duplicate the starttls code.
+ (proto-stream-open-starttls): De-duplicate the STARTTLS code.
(proto-stream-open-starttls): Folded back into the main function.
- (proto-stream-open-network): Fix typo in the gnutls path.
+ (proto-stream-open-network): Fix typo in the GnuTLS path.
(proto-stream-command): Refactor out.
* nntp.el (nntp-open-connection): Fix the STARTTLS command syntax.
* proto-stream.el (proto-stream-open-tls): Delete output from openssl
if we're using tls.el.
- (proto-stream-open-network): If we don't have gnutls-cli or gnutls
+ (proto-stream-open-network): If we don't have gnutls-cli or GnuTLS
built in, then don't try to establish a STARTTLS connection.
* nntp.el (nntp-open-connection): Switch on STARTTLS on supported
* gnus-sum.el (gnus-summary-set-local-parameters): Ignore the `active'
non-variable, too.
- * nnimap.el (nnimap-open-connection): Use gnutls STARTTLS, if
+ * nnimap.el (nnimap-open-connection): Use GnuTLS STARTTLS, if
available.
(nnimap-update-info): Rely more on the current active than the param
active to avoid marking articles as read too much.
group is the "last", so that the backends like nnfolder actually save
their folders.
- * nnimap.el (nnimap-open-connection): If we have gnutls loaded, then
- try to use that for the tls stream.
+ * nnimap.el (nnimap-open-connection): If we have GnuTLS loaded, then
+ try to use that for the TLS stream.
(nnimap-retrieve-group-data-early): Rework the marks code to heed
UIDVALIDITY and find out which groups are read-only and not.
(nnimap-get-flags): Use the same marks parsing code as the rest of
* gnus-int.el (gnus-request-update-info): Protect against backends not
having the function.
- * nnimap.el (nnimap-stream): Mention starttls.
- (nnimap-open-connection): Add starttls support.
+ * nnimap.el (nnimap-stream): Mention STARTTLS.
+ (nnimap-open-connection): Add STARTTLS support.
2010-09-23 Andrew Cohen <cohen@andy.bu.edu>
2004-09-28 Kevin Greiner <kgreiner@compsol.cc>
* gnus-agent.el (gnus-agent-synchronize-group-flags): Replace
- gnus-requst-update-info with explicit code to sync the in-memory
+ gnus-request-update-info with explicit code to sync the in-memory
info read flags with the marks being sync'd to the backend.
* gnus-util.el (gnus-pp): Add optional stream to match pp API.
2004-05-26 Simon Josefsson <jas@extundo.com>
- * starttls.el: Merge with my GNUTLS based starttls.el.
+ * starttls.el: Merge with my GnuTLS based starttls.el.
(starttls-gnutls-program, starttls-use-gnutls)
(starttls-extra-arguments, starttls-process-connection-type)
(starttls-connect, starttls-failure, starttls-success):
* tls.el (tls-process-connection-type): Doc fix.
* imap.el (imap-starttls-open): Rewrite, should support both old
- starttls.el and new starttls.el that uses GNUTLS.
+ starttls.el and new starttls.el that uses GnuTLS.
2003-09-18 Katsumi Yamaoka <yamaoka@jpl.org>
trustfiles crlfiles keylist min-prime-bits
verify-flags verify-error verify-hostname-error
&allow-other-keys)
- "Negotiate a SSL/TLS connection. Returns proc. Signals gnutls-error.
+ "Negotiate a SSL/TLS connection. Returns proc. Signals gnutls-error.
Note arguments are passed CL style, :type TYPE instead of just TYPE.
+2011-11-25 Juanma Barranquero <lekktu@gmail.com>
+
+ * configure.bat: Fix typos.
+
2011-11-25 Eli Zaretskii <eliz@gnu.org>
* INSTALL: Elaborate on debugging fatal errors.
Emacs on Windows uses more than one thread. When Emacs aborts due
to a fatal error, the current thread may not be the application
thread running Emacs code. Therefore, to produce a meaningful
- backtrace from a debugger, you need to iunstruct it to show the
+ backtrace from a debugger, you need to instruct it to show the
backtrace for every thread. With GDB, you do it like this:
(gdb) thread apply all backtrace
echo. --without-gif do not use GIF library even if it is installed\r
echo. --without-tiff do not use TIFF library even if it is installed\r
echo. --without-xpm do not use XPM library even if it is installed\r
-echo. --without-gnutls do not use GNUTLS library even if it is installed\r
+echo. --without-gnutls do not use GnuTLS library even if it is installed\r
echo. --with-svg use the RSVG library (experimental)\r
echo. --distfiles path to files for make dist, e.g. libXpm.dll\r
if "%use_extensions%" == "0" goto end\r
goto :tlsDone\r
\r
:haveTls\r
-echo ...GNUTLS header available, building with GNUTLS support.\r
+echo ...GnuTLS header available, building with GnuTLS support.\r
set HAVE_GNUTLS=1\r
\r
:tlsDone\r
* keyboard.c (Fcommand_execute, Fsuspend_emacs, safe_run_hooks_1):
Use Frun_hooks.
(command_loop_1): Use Frun_hooks. Call safe_run_hooks
- unconditionnaly since it does the check itself.
+ unconditionally since it does the check itself.
2011-03-23 Paul Eggert <eggert@cs.ucla.edu>
* textprop.c (Fremove_list_of_text_properties):
Ensure modify_region is called only when buffer is modified and that
- signal_after_change is allways called in that case.
+ signal_after_change is always called in that case.
* print.c (PRINTFINISH): Call signal_after_change.
($(BLD)/editfns.$(O)): Depend on ../lib/strftime.h.
($(BLD)/print.$(O)): Depend on ../lib/ftoastr.h and ../lib/intprops.h.
- * deps.mk: Update for recent changes: gnutls support, gnulib
+ * deps.mk: Update for recent changes: GnuTLS support, gnulib
imports, addition of globals.h.
* makefile.w32-in ($(BLD)/sysdep.$(O)): Depend on
2010-10-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnutls.c (emacs_gnutls_write): If we're trying to write before
- gnutls is ready, return EAGAIN as the errno.
+ GnuTLS is ready, return EAGAIN as the errno.
2010-10-10 Dan Nicolaescu <dann@ics.uci.edu>
* process.c (make_process): Set the gnutls_p field to zero by
default.
(read_process_output): Always call the gnutls_read function if the
- stream is a gnutls stream.
+ stream is a GnuTLS stream.
(send_process): Ditto for writes.
* gnutls.c (emacs_gnutls_write, emacs_gnutls_read): Refuse to read
or write anything until the state is GNUTLS_STAGE_READY.
- (Fgnutls_boot): Mark the stream as being a gnutls stream.
+ (Fgnutls_boot): Mark the stream as being a GnuTLS stream.
2010-09-29 Eli Zaretskii <eliz@gnu.org>
* ccl.c: Include "character.h".
(Qccl, Qcclp): New variables.
- (CCL_WRITE_CHAR): Alway treat the arg CH as a character even if
+ (CCL_WRITE_CHAR): Always treat the arg CH as a character even if
it's less than 256.
(CCL_WRITE_MULTIBYTE_CHAR): Delete.
(CCL_WRITE_STRING, CCL_READ_CHAR): Adjust for the change of SRC
(init_ntproc) [HAVE_SOCKETS]: Only load winsock library on startup
if PRELOAD_WINSOCK is set in environment (or registry).
- * ntproc.c (Fwin32_has_winsock, Fwin32_unload_winsock)
+ * ntproc.c (Fwin32_has_winsock, Fwin32_unload_winsock)
[HAVE_SOCKETS]: New functions.
(syms_of_ntproc) [HAVE_SOCKETS]: defsubr them.
(timer_id): Renamed to mouse_button_timer.
(saved_mouse_move_msg, mouse_move_timer): New variables.
(win_msg_worker): Delete WM_TIMER code.
- (win32_wnd_proc): Handle WM_TIMER events here. Use separate timers
+ (win32_wnd_proc): Handle WM_TIMER events here. Use separate timers
for mouse down and mouse move (including scroll bar drag) events.
Add new handling code for WM_VSCROLL and WM_MOUSEMOVE events.
Only filter WM_MOUSEMOVE events when a button is held down.
(nt_sleep): Renamed to sys_sleep.
- (rename): Renamed to sys_rename. Always rename to a temporary name
+ (rename): Renamed to sys_rename. Always rename to a temporary name
first on Windows 95. Unlink new name first if necessary.
(dir_finding): Variable deleted.
(dir_is_fat, dir_pathname): New variables.
- (openddir): Fail if dir_find_handle is in use. Save directory name
+ (openddir): Fail if dir_find_handle is in use. Save directory name
in dir_pathname, and set dir_is_fat appropriately.
(closedir, readdir): Use dir_find_handle in place of dir_finding.
(readdir): Copy directory name from dir_pathname on first
- call. Use IS_DIRECTORY_SEP instead of IS_ANY_SEP. Force filename
+ call. Use IS_DIRECTORY_SEP instead of IS_ANY_SEP. Force filename
to be lower case on FAT volumes.
(getpwuid): Move struct passwd initialization to init_user_info,
(get_emacs_configuration): Detect Windows flavor (Windows 95 or
NT) at run-time. Change OS name for Windows 95 to be "win95".
- (fd_info): New variable. Array of extra info for file descriptors
+ (fd_info): New variable. Array of extra info for file descriptors
needed for pipe/socket support.
(utc_base_ft, utc_base, init): New internal variables used for
* ntinevt.c (win32_kdb_patch_key): Initialize isdead.
(key_event) [HAVE_NTGUI]: Use Windows key code.
- * ntproc.c: Include config.h after CRT headers. Include fcntl.h.
+ * ntproc.c: Include config.h after CRT headers. Include fcntl.h.
(child_process, MAX_CHILDREN, CHILD_ACTIVE): Moved to nt.h.
(DebugPrint): New macro.
(new_child): Create input event structures for child processes.
(win32_fill_rect, dumpglyphs, do_line_dance, x_draw_box):
Use Get/ReleaseFrameDC.
(win32_update_begin): Regenerate palette if required.
- (w32_read_socket): Use FALSE. Handle WM_PALETTECHANGED.
+ (w32_read_socket): Use FALSE. Handle WM_PALETTECHANGED.
(win32_term_init): Use GetDC directly.
Enable palette in display structure.
Predefine white and black.
* msdos.c (putchar): Call internal_flush instead of _flsbuf.
(DO_TERMSCRIPT): New macro to support open-termscript.
(internal_flush): Corrected handling of flush in middle of
- escape sequences. Handle screen width > 127.
+ escape sequences. Handle screen width > 127.
(flush_escape): New function for use by internal_flush.
(sys_select): New MS-DOS specific version with us timing.
(EMACSCOLORS): New environment variable.