From: Mark Polesky <markpolesky@yahoo.com>
Date: Sat, 25 Jul 2009 21:40:29 +0000 (-0700)
Subject: IR 3 Backend: More auto-sorting.
X-Git-Tag: release/2.13.4-1~299
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6e43a45007050afdc2220fa9ea70923c1a9fc76e;p=lilypond.git

IR 3 Backend: More auto-sorting.
---

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index a4233e3f69..41c2aab60c 100644
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -78,10 +78,12 @@
   (let* ((name (symbol->string (car interface)))
 	 (interface-list (human-listify
 			  (map ref-ify
+			       (sort
 				(map symbol->string
 				     (hashq-ref iface->grob-table
 						(car interface)
-						'()))))))
+						'()))
+				ly:string-ci<?)))))
     (make <texi-node>
       #:name name
       #:text (string-append
@@ -113,11 +115,14 @@ node."
 	 (name (cdr (assoc 'name meta)))
 	 ;;       (bla (display name))
 	 (ifaces (map lookup-interface (cdr (assoc 'interfaces meta))))
-	 (ifacedoc (map (lambda (iface)
-			  (if (pair? iface)
-			      (ref-ify (symbol->string (car iface)))
-			      (ly:error (_ "pair expected in doc ~s") name)))
-			(reverse ifaces)))
+	 (ifacedoc (map ref-ify
+			(sort
+			 (map (lambda (iface)
+				(if (pair? iface)
+				    (symbol->string (car iface))
+				    (ly:error (_ "pair expected in doc ~s") name)))
+			      ifaces)
+			 ly:string-ci<?)))
 	 (engravers (filter
 		     (lambda (x) (engraver-makes-grob? name x))
 		     all-engravers-list))