(unless (memq 'mojikyo-2022-1 default-coded-charset-priority-list)
  (setq default-coded-charset-priority-list
	(append default-coded-charset-priority-list
		'(mojikyo-2022-1))))