@@ -339,6 +339,16 @@ (define* (beautify-description description #:optional (length 80))
;; Escape single @ to prevent it from being understood as
;; invalid Texinfo syntax.
(cut regexp-substitute/global #f "@" <> 'pre "@@" 'post)
+
+ ;; Remove cut above
+ ;; (lambda (word)
+ ;; (if
+ ;; (member word '("@itemize" "@item" "@end" "@quotation"
+ ;; "@enumerate" "@code" "@code{"))
+ ;; word
+ ;; ((cut regexp-substitute/global
+ ;; #f "@" <> 'pre "@@" 'post) word)))))))
+
;; Wrap camelCase or PascalCase words in @code{...}.
(lambda (word)
(let ((pattern (make-regexp "([A-Z][a-z]+[A-Z]|[a-z]+[A-Z])")))