Hack to make emacs -nw work with xterm UTF-8 behavior

(unless (display-graphic-p)
  (defun make-meta-key ()
    (interactive)
    (let ((e (read-event)))
      ;; (message "Got event %s; basic event is %s" e (event-basic-type e))
      (if (numberp e)
          (let ((keys  (vector (event-convert-list (list 'meta
                                                        (+ (event-basic-type e) 64))))))
            ;; (message "Looking up key sequence %s in operative map" keys)
            (let ((result (key-binding keys)))
              ;; (message "Result is %s; commandp says %s" result (commandp result))
              (command-execute result)))
        (error "this can't happen"))))
  (global-set-key [?\M-C] 'make-meta-key))