Move keyboard input functions from lread.c to keyboard.c

These have nothing to do with the Lisp reader at all.

Suggested by Lynn Winebarger (bug#79035).

* src/lread.c (read_filtered_event, Fread_char, Fread_event)
(Fread_char_exclusive, Qascii_character): Move...
* src/keyboard.c: ...here.
* test/src/lread-tests.el (test-inhibit-interaction): Move...
* test/src/keyboard-tests.el (keyboard-inhibit-interaction): ...here.

2 files changed, 6 insertions, 6 deletions

diff --git a/test/src/keyboard-tests.el b/test/src/keyboard-tests.el
index 05c35340149..3a36446ac83 100644
--- a/test/src/keyboard-tests.el
+++ b/test/src/keyboard-tests.el
@@ -75,5 +75,11 @@
 ;;       (recursive-edit)
 ;;       (should (equal msgs '("C-u 55-" "C-u 5-" "C-u-"))))))
 
+(ert-deftest keyboard-inhibit-interaction ()
+  (let ((inhibit-interaction t))
+    (should-error (read-char "foo: "))
+    (should-error (read-event "foo: "))
+    (should-error (read-char-exclusive "foo: "))))
+
 (provide 'keyboard-tests)
 ;;; keyboard-tests.el ends here
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index 421c0c0ed4a..4dc8938b973 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -222,12 +222,6 @@ literals (Bug#20852)."
 (ert-deftest lread-circular-hash ()
   (should-error (read "#s(hash-table data #0=(#0# . #0#))")))
 
-(ert-deftest test-inhibit-interaction ()
-  (let ((inhibit-interaction t))
-    (should-error (read-char "foo: "))
-    (should-error (read-event "foo: "))
-    (should-error (read-char-exclusive "foo: "))))
-
 (ert-deftest lread-float ()
   (should (equal (read "13") 13))
   (should (equal (read "+13") 13))