From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 24 Jul 2021 16:21:50 +0000 (+0200)
Subject: Set the normal-erase-is-backspace variable from Customize
X-Git-Tag: emacs-28.0.90~1715
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26da0b5ecb44ba5a8954be98b97ab59ccb391531;p=emacs.git

Set the normal-erase-is-backspace variable from Customize

* lisp/simple.el (normal-erase-is-backspace): Always set the
variable so that Customize is up-to-date (bug#49593).
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 1a49fe24252..5ec7fd80eb5 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -9535,9 +9535,9 @@ call `normal-erase-is-backspace-mode' (which see) instead."
   :set (lambda (symbol value)
 	 ;; The fboundp is because of a problem with :set when
 	 ;; dumping Emacs.  It doesn't really matter.
-	 (if (fboundp 'normal-erase-is-backspace-mode)
-	     (normal-erase-is-backspace-mode (or value 0))
-	   (set-default symbol value))))
+	 (when (fboundp 'normal-erase-is-backspace-mode)
+	   (normal-erase-is-backspace-mode (or value 0)))
+	 (set-default symbol value)))
 
 (defun normal-erase-is-backspace-setup-frame (&optional frame)
   "Set up `normal-erase-is-backspace-mode' on FRAME, if necessary."