(completing-read
(format "%s calendar month name: " coptic-name)
(mapcar 'list
(append coptic-calendar-month-name-array nil))
nil t)
(calendar-make-alist coptic-calendar-month-name-array
(completing-read
(format "%s calendar month name: " coptic-name)
(mapcar 'list
(append coptic-calendar-month-name-array nil))
nil t)
(calendar-make-alist coptic-calendar-month-name-array