X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-backend.scm;h=d9ec2b00b50afe1e7c674dcb1197dde97dc36c1a;hb=0ea80a5e850c6114d1ba7dc4cfd81d5a45d9604a;hp=406f09aacbbd6820b05686e072ce2806b142c81f;hpb=84f0776f17e762c7fd70545b1b034793a4e080fb;p=lilypond.git

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 406f09aacb..d9ec2b00b5 100644
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -176,16 +176,6 @@ node."
      (cons (cons key val)  prior))
    '() (ly:all-grob-interfaces)))
 
-;; sort user-settable and internal props within each grob-interface
-(set! interface-description-alist
-  (map! (lambda (iface-desc)
-          (let* ((key-name-docstr (list-head iface-desc 3))
-                 (props           (list-tail iface-desc 3))
-                 (sorted-props    (list (sort (car props) ly:symbol-ci<?))))
-            (append key-name-docstr sorted-props)))
-        interface-description-alist))
-
-;; sort list of grob interfaces
 (set! interface-description-alist
       (sort interface-description-alist ly:alist-ci<?))