(defun string-is-capitalized (str)
(let ((case-fold-search nil))
(string-match-p "\\`[A-Z]*\\'" str)))
Run Code Online (Sandbox Code Playgroud)
在上面的正则表达式中,单引号前后的&分别是做什么的?我在gnu页面(http://www.gnu.org/software/emacs/manual/html_node/elisp/Regexp-Special.html)中没有将其视为特殊代码