--- /opt/texlive/2024/texmf-dist/bibtex/bst/base/apalike.bst	2010-12-14 10:20:07.000000000 +0900
+++ my-apalike.bst	2024-08-11 20:15:31.734257949 +0900
@@ -201,12 +201,19 @@
 { duplicate$ empty$
     { pop$ "" }
     { "{\em " swap$ * "}" * }
   if$
 }
 
+FUNCTION {enquote}
+{ duplicate$ empty$
+    {pop$ "" }
+    {"`" swap$ * "'" * }
+    if$
+}
+
 INTEGERS { nameptr namesleft numnames }
 
 FUNCTION {format.names}
 { 's :=
   #1 'nameptr :=
   s num.names$ 'numnames :=
@@ -294,12 +301,16 @@
 }
 
 FUNCTION {format.btitle}
 { title emphasize
 }
 
+FUNCTION {format.atitle}
+{ title enquote
+}
+
 FUNCTION {tie.or.space.connect}
 { duplicate$ text.length$ #3 <
     { "~" }
     { " " }
   if$
   swap$ * *
@@ -482,13 +493,13 @@
 FUNCTION {article}
 { output.bibitem
   format.authors "author" output.check
   author format.key output                              % special for
   output.year.check                                     % apalike
   new.block
-  format.title "title" output.check
+  format.atitle "title" output.check
   new.block
   crossref missing$
     { journal emphasize "journal" output.check
       format.vol.num.pages output
     }
     { format.article.crossref output.nonnull