diff -urN scm/define-markup-commands.scm scm/define-markup-commands.scm
--- scm/define-markup-commands.scm	Sun Jan  2 21:41:00 2005
+++ scm/define-markup-commands.scm	Fri Jan 14 01:09:55 2005
@@ -670,6 +670,13 @@
   (vector-set! number->mark-letter-vector j
                (integer->char (+ i (char->integer #\A)))))
 
+(define number->mark-alphabet-vector (make-vector 26 #\A))
+
+(do ((i 0 (1+ i)))
+    ((>= i 26))
+  (vector-set! number->mark-alphabet-vector i
+               (integer->char (+ i (char->integer #\A)))))
+
 (define (number->markletter-string n)
   "Double letters for big marks."
   (let* ((lst (vector-length number->mark-letter-vector)))
@@ -679,6 +686,14 @@
 		       (number->markletter-string (remainder n lst)))
 	(make-string 1 (vector-ref number->mark-letter-vector n)))))
 
+(define (number->markalphabet-string n)
+  "Double letters for big marks."
+  (let*
+      ((l (vector-length number->mark-alphabet-vector)))
+  (if (>= n l)
+      (string-append (number->markalphabet-string (1- (quotient n l)))
+                     (number->markalphabet-string (remainder n l)))
+      (make-string 1 (vector-ref number->mark-alphabet-vector n)))))
 
 (def-markup-command (markletter layout props num) (integer?)
   "Make a markup letter for @var{num}.  The letters start with A to Z
@@ -686,6 +701,10 @@
   
   (Text_interface::interpret_markup layout props (number->markletter-string num)))
 
+(def-markup-command (markalphabet layout props num) (integer?)
+   "Make a markup letter for @var{num}.  The letters start with A to Z
+ and continues with double letters."
+   (Text_interface::interpret_markup layout props (number->markalphabet-string num)))
 
 (def-markup-command (bracketed-y-column layout props indices args)
   (list? markup-list?)
diff -urN scm/translation-functions.scm scm/translation-functions.scm
--- scm/translation-functions.scm	Tue Jan  4 23:21:40 2005
+++ scm/translation-functions.scm	Fri Jan 14 01:09:55 2005
@@ -28,14 +28,27 @@
       (make-simple-markup  "=")
       (make-simple-markup (number->string count))))))
 
+(define-public (format-mark-alphabet mark context)
+  (make-bold-markup (make-markalphabet-markup (1- mark))))
+
+(define-public (format-mark-box-alphabet mark context)
+  (make-bold-markup (make-box-markup (make-markalphabet-markup (1- mark)))))
+
 (define-public (format-mark-letters mark context)
   (make-bold-markup (make-markletter-markup (1- mark))))
 
 (define-public (format-mark-numbers mark context)
   (make-bold-markup (number->string mark)))
 
+(define-public (format-mark-barnumbers mark context)
+  (make-bold-markup (number->string (ly:context-property context 'currentBarNumber))))
+
 (define-public (format-mark-box-letters mark context)
   (make-bold-markup (make-box-markup (make-markletter-markup (1- mark)))))
 
 (define-public (format-mark-box-numbers mark context)
-  (make-bold-markup (make-box-markup (make-markletter-markup (1- mark)))))
+  (make-bold-markup (make-box-markup (number->string mark))))
+
+(define-public (format-mark-box-barnumbers mark context)
+  (make-bold-markup (make-box-markup
+    (number->string (ly:context-property context 'currentBarNumber)))))