mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

Rename alphabetp to hangul-alphabetp

Browse Source 
* lisp/leim/quail/hangul.el (hangul-alphabetp): Rename from
'alphabetp'.  Retain old name as an obsolete alias.
This commit is contained in:
Stefan Kangas 2022-08-04 11:21:41 +02:00
parent e2d9a218f4
commit bde0ccd2c2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/leim/quail/hangul.el
View File

@ -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: