From: Po Lu <luangruo@yahoo.com>
Date: Fri, 4 Aug 2023 09:41:20 +0000 (+0800)
Subject: ; Last-minute updates to Android port
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ca25a13185d12c9053c4f8c6df4c57846f26e17;p=emacs.git

; Last-minute updates to Android port

* lisp/electric.el:
* lisp/help-macro.el (make-help-screen):
* lisp/subr.el (read-char-choice-with-read-key):
* src/buffer.c (init_buffer_once):
* src/dispextern.h (No_Cursor):
* src/keyboard.c (read_char):
* src/process.c (Fprocess_send_eof): Fix commentary or unnecessary
whitespace changes.
---

diff --git a/lisp/electric.el b/lisp/electric.el
index 8b379ed16e2..cef5326852c 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -294,7 +294,6 @@ or comment."
 
 ;;;###autoload
 (define-key global-map "\C-j" 'electric-newline-and-maybe-indent)
-
 ;;;###autoload
 (defun electric-newline-and-maybe-indent ()
   "Insert a newline.
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 0905d1946f3..fac3419f184 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -166,7 +166,7 @@ and then returns."
                      (error nil))
                    (let ((cursor-in-echo-area t)
                          (overriding-local-map local-map))
-                     (frame-toggle-on-screen-keyboard nil nil)
+                     (frame-toggle-on-screen-keyboard (selected-frame) nil)
                      (setq key (read-key-sequence
                                 (format "Type one of listed options%s: "
                                         (if (pos-visible-in-window-p
diff --git a/lisp/subr.el b/lisp/subr.el
index 89278241777..3e4808c5471 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3348,7 +3348,7 @@ causes it to evaluate `help-form' and display the result."
 	  (unless (get-text-property 0 'face prompt)
 	    (setq prompt (propertize prompt 'face 'minibuffer-prompt)))
           ;; Display the on screen keyboard if it exists.
-          (frame-toggle-on-screen-keyboard nil t)
+          (frame-toggle-on-screen-keyboard (selected-frame) nil)
 	  (setq char (let ((inhibit-quit inhibit-keyboard-quit))
 		       (read-key prompt)))
 	  (and show-help (buffer-live-p (get-buffer helpbuf))
diff --git a/src/buffer.c b/src/buffer.c
index 9bcace37e9b..9facc4b7ab8 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -4791,9 +4791,7 @@ init_buffer_once (void)
 #ifdef HAVE_TREE_SITTER
   bset_ts_parser_list (&buffer_defaults, Qnil);
 #endif
-#ifdef HAVE_TEXT_CONVERSION
   bset_text_conversion_style (&buffer_defaults, Qnil);
-#endif
   bset_cursor_in_non_selected_windows (&buffer_defaults, Qt);
 
   bset_enable_multibyte_characters (&buffer_defaults, Qt);
diff --git a/src/dispextern.h b/src/dispextern.h
index cf67121809f..3a4d6095f73 100644
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -57,7 +57,6 @@ typedef struct
 /* Accommodate X's usage of None as a null resource ID.  */
 #define No_Cursor (NULL)
 #else
-/* Android doesn't support cursors and also uses handles.  */
 #define No_Cursor 0
 #endif
 
diff --git a/src/keyboard.c b/src/keyboard.c
index 445f39ea140..78c88a2859b 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3053,9 +3053,6 @@ read_char (int commandflag, Lisp_Object map,
       struct buffer *prev_buffer = current_buffer;
       last_input_event = c;
 
-      /* All a `text-conversion' event does is prevent Emacs from
-	 staying idle.  It is not useful.  */
-
       call4 (Qcommand_execute, tem, Qnil, Fvector (1, &last_input_event), Qt);
 
       if (CONSP (c) && !NILP (Fmemq (XCAR (c), Vwhile_no_input_ignore_events))
diff --git a/src/process.c b/src/process.c
index 90885ad318a..7738f1e4bcc 100644
--- a/src/process.c
+++ b/src/process.c
@@ -7252,7 +7252,7 @@ process has been transmitted to the serial port.  */)
 #if !defined WINDOWSNT && defined HAVE_TCDRAIN
       if (tcdrain (XPROCESS (proc)->outfd) != 0)
 	report_file_error ("Failed tcdrain", Qnil);
-#endif /* not WINDOWSNT */
+#endif /* not WINDOWSNT && not TCDRAIN */
       /* Do nothing on Windows because writes are blocking.  */
     }
   else