diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-04 11:21:41 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-04 11:34:35 +0200 |
| commit | bde0ccd2c2d29b818e27d90888da9e3cb36712aa (patch) | |
| tree | d90ce12654b0faa664f8bd13091662929f151bd3 /lisp/leim | |
| parent | e2d9a218f4bd2a9e53422123280ca428c03abbc4 (diff) | |
| download | emacs-bde0ccd2c2d29b818e27d90888da9e3cb36712aa.tar.gz emacs-bde0ccd2c2d29b818e27d90888da9e3cb36712aa.tar.bz2 emacs-bde0ccd2c2d29b818e27d90888da9e3cb36712aa.zip | |
Rename alphabetp to hangul-alphabetp
* lisp/leim/quail/hangul.el (hangul-alphabetp): Rename from
'alphabetp'. Retain old name as an obsolete alias.
Diffstat (limited to 'lisp/leim')
| -rw-r--r-- | lisp/leim/quail/hangul.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el index ef44e04a233..83fee1e04c3 100644 --- a/lisp/leim/quail/hangul.el +++ b/lisp/leim/quail/hangul.el @@ -106,7 +106,7 @@ (declare (obsolete "use `(not (zerop ...))'." "29.1")) (not (zerop number))) -(defsubst alphabetp (char) +(defsubst hangul-alphabetp (char) (or (and (>= char ?A) (<= char ?Z)) (and (>= char ?a) (<= char ?z)))) @@ -389,7 +389,7 @@ When a Korean input method is off, convert the following hangul character." (defun hangul2-input-method (key) "2-Bulsik input method." - (if (or buffer-read-only (not (alphabetp key))) + (if (or buffer-read-only (not (hangul-alphabetp key))) (list key) (quail-setup-overlays nil) (let ((input-method-function nil) @@ -406,7 +406,7 @@ When a Korean input method is off, convert the following hangul character." (cond ((and (stringp seq) (= 1 (length seq)) (setq key (aref seq 0)) - (alphabetp key)) + (hangul-alphabetp key)) (hangul2-input-method-internal key)) ((commandp cmd) (call-interactively cmd)) @@ -547,6 +547,8 @@ HELP-TEXT is a text set in `hangul-input-method-help-text'." (with-output-to-temp-buffer "*Help*" (princ hangul-input-method-help-text))) +(define-obsolete-function-alias 'alphabetp 'hangul-alphabetp "29.1") + (provide 'hangul) ;; Local Variables: |