martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

; Make 'default-korean-keyboard' a defcustom

Browse Source 
* lisp/language/korea-util.el (default-korean-keyboard): Now a
defcustom.  (Bug#80648)
This commit is contained in:
Eli Zaretskii
2026-03-25 14:59:56 +02:00
parent 617b254fe3
commit 23b16cd696
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/language/korea-util.el
View File

@@ -27,13 +27,22 @@
;;; Code:
(defgroup korean nil
"Options for writing Korean."
:version "31.1"
:group 'languages)
;;;###autoload
(defvar default-korean-keyboard
(defcustom default-korean-keyboard
(if (string-search "3" (or (getenv "HANGUL_KEYBOARD_TYPE") ""))
"3"
"")
"The kind of Korean keyboard for Korean (Hangul) input method.
\"\" for 2, \"3\" for 3, and \"3f\" for 3f.")
\"\" for 2, \"3\" for 3, and \"3f\" for 3f."
:initialize #'custom-initialize-delay
:group 'korean
:version "31.1"
:type 'string)
;; functions useful for Korean text input