Font Setting for unicode maths

math-cambria-font.el

(require 'cl)
(require 'math-symbol-lists)
(defun group-sorted (lst)
  (reduce
   (lambda (x ys)
     (progn
       (if (and (caar ys) (= (caar ys) (+ 1 x)))
           (cons (cons x (car ys)) (cdr ys))
         (cons (list x) ys) )
       ))
   lst
   :from-end t :initial-value '()))

(defun extract-unicode-range (lst)
  (let ((start  (car lst))
        (end    (car (last lst))))
     (cons (decode-char 'ucs start) (decode-char 'ucs end))))
;; Making each symbol in math-symbol-lists displayed in Cambria
(let* ((all-syms-list
        (append math-symbol-list-extended math-symbol-list-basic))
       (syms
        (seq-filter (lambda (x) (< 255 x))
                    (seq-uniq (sort (delq nil (mapcar 'caddr all-syms-list)) '<))))
       )
  (mapc (lambda (ran)
          (set-fontset-font "fontset-menlokakugo"
                            ran
                            (font-spec :family "Cambria Math")
                            nil
                            'prepend
                            )
          )
        (mapcar 'extract-unicode-range (group-sorted syms)))
  )