From 28622d4dd0347227a28b7b25c674437239a00a06 Mon Sep 17 00:00:00 2001
From: Mattias Engdegård
Date: Fri, 3 Jun 2022 10:12:24 +0200
Subject: Let ?\LF signal an error (bug#55738)

As suggested by Stefan Monnier.

* src/lread.c (read_escape):
Signal an error for ?\LF since it cannot reasonably be intended.
* test/src/lread-tests.el (lread-escaped-lf): Update test.
* etc/NEWS: Announce.
---
 src/lread.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

diff --git a/src/lread.c b/src/lread.c
index 4b7d38a8e6c..1d20470a8bf 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2664,6 +2664,10 @@ read_escape (Lisp_Object readcharfun)
     case 'v':
       return '\v';
 
+    case '\n':
+      /* ?\LF is an error; it's probably a user mistake.  */
+      error ("Invalid escape character syntax");
+
     case 'M':
       c = READCHAR;
       if (c != '-')
-- 
cgit v1.2.1