   (local-set-key "\C-C-" 'flk-insert-flat)
   (local-set-key "\C-Co" 'flk-insert-dim)
   (local-set-key "\C-C+" 'flk-insert-aug)
-  (local-set-key "\C-C\C-C"  'inline-chords-at-point)
+  (local-set-key "\C-C\C-C"  'flk-inline-chords-at-point)
 )
 
 (defun flk-insert-a (arg)

The lyrics under the chord are accumulated in a string."
  (cond ((or (null chords) (equal " " (car chords)))
	 ;; we're done with this chord.
	 flk-(convert-chords chords lyrics (cons (concat "]" lyrics-under-chord) result)))
	((null lyrics)
	 (flk-convert-chord (cdr chords) nil
			lyrics-under-chord

	((equal " " (car chords))
	 (if (null lyrics)
	     (flk-convert-chords (cdr chords) nil (cons " " result))
	   (flk-convert-chords (cdr chords) (cdr lyrics) (cons (car lyrics) result))))
	((flk-convert-chord chords lyrics "" (cons "[" result)))
	))

