Advertisement
Guest User

Untitled

a guest
Aug 29th, 2021
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.34 KB | None | 0 0
  1. (defun normalize (c)
  2.   (case c
  3.     ((?0) ?₀)
  4.     ((?1) ?₁)
  5.     (t c)))
  6.  
  7. (auto-overlay-load-definition
  8.  'short-id-subscripts11
  9.  `(word :id 'x0
  10.         ((,(rx "x" (group-n 1 num)) . 1)
  11.          ;; (display . "₀")
  12.          (display . (lambda ()
  13.                       (normalize (following-char))
  14.                       "*")))))
  15.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement