\texttt-environment 中的直打字机撇号（' 而不是 '）

Question

我怎样才能'在’-environment 中书写\texttt？

我偶然发现了几个讨论，但没有一个讨论能解决我的问题。我确实不是想写代码！我只想在\texttt-environment 中编写时有一个直撇号。简单明了。

我遇到的一些解决方案成功地写出了直撇号，但仅限于计算机现代罗马字母或拉丁现代罗马字母——不是计算机现代单声道或拉丁现代单声道。但这正是我需要的。

我也尝试过这，但没有效果。

Answer 1

一个更简单的解决方案\texttt：

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage{textcomp}
\usepackage{xparse}

\ExplSyntaxOn
\RenewDocumentCommand{\texttt}{m}
 {
  \tl_set:Nn \l_nemgathos_upquotes_tl { #1 }
  \tl_replace_all:Nnn \l_nemgathos_upquotes_tl { '' } { \textquotedbl }
  \tl_replace_all:Nnn \l_nemgathos_upquotes_tl { `` } { \textquotedbl }
  \tl_replace_all:Nnn \l_nemgathos_upquotes_tl { ' } { \textquotesingle }
  \tl_replace_all:Nnn \l_nemgathos_upquotes_tl { ` } { \textquotesingle }
  { \ttfamily \tl_use:N \l_nemgathos_upquotes_tl }
 }
\tl_new:N \l_nemgathos_upquotes_tl
\ExplSyntaxOff

\begin{document}

``Normal `quotes' here''

\texttt{``Straight `quotes' here''}

\end{document}