From: Stefan Kangas <stefan@marxist.se>
Date: Thu, 4 Aug 2022 09:21:41 +0000 (+0200)
Subject: Rename alphabetp to hangul-alphabetp
X-Git-Tag: emacs-29.0.90~1447^2~469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bde0ccd2c2d29b818e27d90888da9e3cb36712aa;p=emacs.git

Rename alphabetp to hangul-alphabetp

* lisp/leim/quail/hangul.el (hangul-alphabetp): Rename from
'alphabetp'.  Retain old name as an obsolete alias.
---

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: