diff --git a/anthy-set-face-underline-p.patch b/anthy-set-face-underline-p.patch
new file mode 100644
index 0000000..6bb4aa4
--- /dev/null
+++ b/anthy-set-face-underline-p.patch
@@ -0,0 +1,13 @@
+Index: anthy-9100h/src-util/anthy.el
+===================================================================
+--- anthy-9100h.orig/src-util/anthy.el
++++ anthy-9100h/src-util/anthy.el
+@@ -71,7 +71,7 @@
+ (defvar anthy-highlight-face nil)
+ (defvar anthy-underline-face nil)
+ (copy-face 'highlight 'anthy-highlight-face)
+-(set-face-underline-p 'anthy-highlight-face t)
++(set-face-underline 'anthy-highlight-face t)
+ (copy-face 'underline 'anthy-underline-face)
+ 
+ ;;
diff --git a/anthy.changes b/anthy.changes
index 61adcc4..dcb41df 100644
--- a/anthy.changes
+++ b/anthy.changes
@@ -1,3 +1,10 @@
+-------------------------------------------------------------------
+Mon Aug 21 10:05:18 UTC 2023 - Marguerite Su <i@marguerite.su>
+
+- add anthy-set-face-underline-p.patch
+  * set-face-underline-p is an alias for set-face-underline
+    and was dreprecated since emacs 24.3 
+
 -------------------------------------------------------------------
 Mon Jun  7 11:23:57 UTC 2021 - Jan Engelhardt <jengelh@inai.de>
 
diff --git a/anthy.spec b/anthy.spec
index 596b38c..f4a2702 100644
--- a/anthy.spec
+++ b/anthy.spec
@@ -1,7 +1,7 @@
 #
 # spec file for package anthy
 #
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2023 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -44,6 +44,7 @@ Patch3:         bugzilla-224463-comparison-with-string-literal.patch
 # PATCH-FIX-OPENSUSE anthy-use-last-command-event.diff bnc#849211 tiwai@suse.de
 Patch4:         anthy-use-last-command-event.diff
 Patch5:         bugzilla-1175274-emacs-27.1.patch
+Patch6:         anthy-set-face-underline-p.patch
 BuildRequires:  emacs-x11
 BuildRequires:  fdupes
 BuildRequires:  libtool