[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bde0ccd2c2 2/5: Rename alphabetp to hangul-alphabetp
From: |
Stefan Kangas |
Subject: |
master bde0ccd2c2 2/5: Rename alphabetp to hangul-alphabetp |
Date: |
Thu, 4 Aug 2022 05:51:21 -0400 (EDT) |
branch: master
commit bde0ccd2c2d29b818e27d90888da9e3cb36712aa
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Rename alphabetp to hangul-alphabetp
* lisp/leim/quail/hangul.el (hangul-alphabetp): Rename from
'alphabetp'. Retain old name as an obsolete alias.
---
lisp/leim/quail/hangul.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/leim/quail/hangul.el b/lisp/leim/quail/hangul.el
index ef44e04a23..83fee1e04c 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: