Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
;; This file: (find-LATEX "istanbulglyphs.el")
;; This will replace: (find-eev "eev-compose.el")
;;                in: (find-eev "eev3-compose.el")
;; «.eewrap-anchor-new»	(to "eewrap-anchor-new")


;;;                                                
;;;   ___ ___  _ __ ___  _ __   ___  ___  ___  ___ 
;;;  / __/ _ \| '_ ` _ \| '_ \ / _ \/ __|/ _ \/ __|
;;; | (_| (_) | | | | | | |_) | (_) \__ \  __/\__ \
;;;  \___\___/|_| |_| |_| .__/ \___/|___/\___||___/
;;;                     |_|                        
;;
(defun ee-tocomposes (str)
  (ee-tocomposes0 (split-string str)))
(defun ee-tocomposes0 (list)
  (if list
      (let* ((a (car list))
	     (b (string-to-char (cadr list)))
	     (rest (cddr list)))
	(cons a (cons b (ee-tocomposes0 rest))))))
(setq eev-uc-accents "
  `A Ã  `E Ã  `I Ã  `O Ã  `U Ã
  `a à  `e à  `i à  `o à  `u Ã
  'A Ã  'E Ã  'I Ã  'O Ã  'U Ã
  'a à 'e à 'i à 'o à 'u ú
  ^A Ã  ^E Ã  ^I Ã  ^O Ã  ^U Ã
  ^a à  ^e ê  ^i à  ^o Ã∧  ^u û
  ~A Ã              ~O Ã
  ~a à              ~o Ã
 \"A Ã \"E Ã \"I Ã \"O Ã \"U Ã
 \"a à \"e ë \"i à \"o Ã⊃ \"u Ã
  'C Ã  CC Ã  ~N Ã
  'c à  cc à  ~n Ã
")
(setq eev-uc-otheriso "
  _a ª  _o º  AE à  ae à  ss Ã
  !!   ??   SS   << «  >> »
  00 °  11   22   33 Â
  14 Â  12 Â  34 Â
  +-   :- à  cd   xx à  nt Â
")
(setq eev-uc-math "
  DD Δ  Th Θ  Pi Π  Si Σ  Om Ω
  aa α  bb β  gg γ  dd ∧  ee ε  et η  io ι  ll »  pi Ï  th θ  om Ï
  mu μ nu ν ro Ï si Ï ta Ï   ph Ï ch Ï ps Ï
  in â  le â  ge â  != â  -~ â  =~ â  mt â  >t â mo â   ~1 â ~~ â == â
  la â  lo â  -> â  to â  <> â  => â  <= â  TT â  BO â  po â  Do â nc â»
  <- â  up â  dn â  |- â  -| â  ud â  NW â  NE â  SE â  SW â

  su â  se â  Se â  Su â   em â
  .. â  bu â  sq â

  ca â  cu ⪠ CA â  CU â  LO â  LA â  sm â

  fa â  ex â  fl â  sh â
  -1 Â  oo â  88 â  In â«

  hu â <1 â 1> ⪠ o. â o- â o+ â o/ â ox â

")
;; (find-equailfile "sgml-input.el")
;; (find-equailfile "latin-ltx.el")
;; â  â â â â   â â
;;
;; (find-elnode "Creating Buffer-Local")
;; (find-eev "eev-compose.el")
;; (find-evardescr 'eev-composes-all)
;;

(defun eev-uc-set-composes ()
  (make-local-variable 'eev-composes-all)
  (setq eev-composes-all
    `(
      ,@ (ee-tocomposes eev-uc-accents)
      ,@ (ee-tocomposes eev-uc-otheriso)
      ,@ (ee-tocomposes eev-uc-math)
     )
  )
)


;; Greek: (find-einsert '((900 1000)))
;; (find-einsert '((8592 9000)))
;; (find-einsert '((8900 9000)))


;;;        _             _         
;;;   __ _| |_   _ _ __ | |__  ___ 
;;;  / _` | | | | | '_ \| '_ \/ __|
;;; | (_| | | |_| | |_) | | | \__ \
;;;  \__, |_|\__, | .__/|_| |_|___/
;;;  |___/   |___/|_|              
;;
(defun eev-uc-set-face (face str)
  (mapcar (lambda (s1)
            (let ((pos (string-to-char s1)))
              (eepitch-set-glyph0 pos pos face)))
          (split-string str nil t)))
(eev-uc-set-face 'eev-glyph-face-Greek "Δ Θ Π Σ Ω")
(eev-uc-set-face 'eev-glyph-face-greek "α β γ ∧ ε η ι θ   » Ï Ï   μ ν Ï Ï Ï   Ï Ï Ï")
(eev-uc-set-face 'eev-glyph-face-math  "â   â â â â   â â â   â â â â â   â â â   â â â")
(eev-uc-set-face 'eev-glyph-face-math  "â â â ⪠â â â â â â   â â â â â â â â â   â â â â â   â â â»")
(eev-uc-set-face 'eev-glyph-face-math  "â â â â   â â  â â â«   â â ⪠â â â â â")





(eepitch-set-glyph0 ? ?b 'eev-glyph-face-yellow-on-red)
(eepitch-set-glyph0 ? ?s 'eev-glyph-face-yellow-on-red)
(eepitch-set-glyph0 ? ?P 'eev-glyph-face-yellow-on-red)
(eepitch-set-glyph0 ? ?N 'eev-glyph-face-yellow-on-red)



;;;                                                            _                
;;;   ___  _____      ___ __ __ _ _ __         __ _ _ __   ___| |__   ___  _ __ 
;;;  / _ \/ _ \ \ /\ / / '__/ _` | '_ \ _____ / _` | '_ \ / __| '_ \ / _ \| '__|
;;; |  __/  __/\ V  V /| | | (_| | |_) |_____| (_| | | | | (__| | | | (_) | |   
;;;  \___|\___| \_/\_/ |_|  \__,_| .__/       \__,_|_| |_|\___|_| |_|\___/|_|   
;;;                              |_|                                            
;; «eewrap-anchor-new» (to ".eewrap-anchor-new")

;; (find-efunction 'eewrap-anchor)
(defun  eewrap-anchor-new () (interactive)
  (ee-this-line-wrapn 1 'ee-wrap-anchor-new))
(defun ee-wrap-anchor-new (line)
  "An internal function used by `eewrap-anchor'."
  (if (string-match "^\\(.*\\)<\\([^<>]*\\)>" line)
      (ee-wrap-anchor-new0 (match-string 1 line) (match-string 2 line))
    (error "Does not match")))
(defun ee-wrap-anchor-new0 (prefix anchor)
  "An internal function used by `ee-wrap-anchor'."
  (if (eq buffer-file-coding-system 'utf-8-unix)
      (ee-template0 "\
{prefix}«.{anchor}»\t(to \"{anchor}\")
{prefix}«{anchor}» (to \".{anchor}\")")
    (ee-wrap-anchor0 prefix anchor)))

;; (find-eevfile "eev-mode.el" "eewrap-anchor")
' (define-key eev-mode-map "\M-A" 'eewrap-anchor-new)




;; Local Variables:
;; coding: utf-8-unix
;; ee-anchor-format:     "«%s»"
;; End: