Documentation/included/special-characters.ly

   1 \version "2.16.0"
   2
   3 \paper {
   4   #(include-special-characters)
   5 }
   6
   7 #(define-markup-list-command (show-special-characters layout props) ()
   8    (let ((defs (ly:output-def-lookup layout 'text-font-defaults)))
   9         (interpret-markup-list layout props
  10           (map (lambda (pair)
  11             (markup #:override '(line-width . 18)
  12                     #:fill-line
  13                     (#:override '(replacement-alist . ()) (car pair)
  14                      #:override '(thickness . 0.1) #:box (cdr pair))))
  15             (list-tail (assoc-get 'replacement-alist defs) 3)))))
  16
  17 \markuplist \justified-lines \show-special-characters