mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-16 09:50:25 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/simple.el (normal-erase-is-backspace): Always set the
variable so that Customize is up-to-date (bug#49593).
This commit is contained in:
Lars Ingebrigtsen 2021-07-24 18:21:50 +02:00
parent 6becc97433
commit 26da0b5ecb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/simple.el
View File

@ -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."