diff options
author | Po Lu <luangruo@yahoo.com> | 2023-01-22 08:37:06 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2023-01-22 08:37:06 +0800 |
commit | 89cb3c3f1576fdc69eb061cccc8b537f4b7c8228 (patch) | |
tree | 6aae52fd157db91c34edd6be097de25880255ac6 | |
parent | 6adc193ad66445acd84caba6973424ecbd21da26 (diff) | |
download | emacs-89cb3c3f1576fdc69eb061cccc8b537f4b7c8228.tar.gz |
Minor fixes for Haiku
* lisp/frame.el (display-symbol-keys-p):
* lisp/simple.el (normal-erase-is-backspace-setup-frame): Add
support for Haiku.
-rw-r--r-- | lisp/frame.el | 2 | ||||
-rw-r--r-- | 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)) |