;; Last edited on 2013-11-22 21:29:09 by stolfilocal

(defun insert-char-by-name (name)
  "The argument should be the name of a UNICODE character. Inserts the character
  with that name.  Same as insert-char but to be called by program rather than interactive."
  (let ((uns (ucs-names)))
    (while (and uns (not (equal (car(car uns)) name)))
      (setq uns (cdr uns))
    )
    (unless uns (error "No such Unicode character")) 
    (insert-char (cdr (car uns)) 1)
  )
)