From 89cb3c3f1576fdc69eb061cccc8b537f4b7c8228 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Sun, 22 Jan 2023 08:37:06 +0800 Subject: [PATCH] Minor fixes for Haiku * lisp/frame.el (display-symbol-keys-p): * lisp/simple.el (normal-erase-is-backspace-setup-frame): Add support for Haiku. --- lisp/frame.el | 2 +- lisp/simple.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index 9c3fa9ae4bb..af95a047c38 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -2189,7 +2189,7 @@ frame's display)." This means that, for example, DISPLAY can differentiate between the keybinding RET and [return]." (let ((frame-type (framep-on-display display))) - (or (memq frame-type '(x w32 ns pc pgtk)) + (or (memq frame-type '(x w32 ns pc pgtk haiku)) ;; MS-DOS and MS-Windows terminals have built-in support for ;; function (symbol) keys (memq system-type '(ms-dos windows-nt))))) diff --git a/lisp/simple.el b/lisp/simple.el index 3f3dbe78c39..aaad3217982 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -10386,7 +10386,7 @@ call `normal-erase-is-backspace-mode' (which see) instead." (if (if (eq normal-erase-is-backspace 'maybe) (and (not noninteractive) (or (memq system-type '(ms-dos windows-nt)) - (memq window-system '(w32 ns pgtk)) + (memq window-system '(w32 ns pgtk haiku)) (and (eq window-system 'x) (fboundp 'x-backspace-delete-keys-p) (x-backspace-delete-keys-p)) -- 2.39.2