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: ;;; Code:
(defgroup korean nil
"Options for writing Korean."
:version "31.1"
:group 'languages)
;;;###autoload ;;;###autoload
(defvar default-korean-keyboard (defcustom default-korean-keyboard
(if (string-search "3" (or (getenv "HANGUL_KEYBOARD_TYPE") "")) (if (string-search "3" (or (getenv "HANGUL_KEYBOARD_TYPE") ""))
"3" "3"
"") "")
"The kind of Korean keyboard for Korean (Hangul) input method. "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 ;; functions useful for Korean text input