к вопросу об Alt-U/Alt-L/Alt-C в мульном XEmacs'е
Приложите вот такой патч к lisp/mule/cyrillic.el.
Надеюсь, оно или его модификация попадет в стандартный XEmacs:
--- cyrillic.el 2001/06/14 19:03:59 1.2
+++ cyrillic.el 2001/06/14 19:27:41
＠＠ -337,4 +337,69 ＠＠
(documentation . "Support for Cyrillic ALTERNATIVNYJ."))
'("Cyrillic"))
+;;
+;; Setup case table
+;;
+
+;; FIXME: this defun is cut-and-pasted from mule/latin.el
+(defun setup-case-pairs (charset pairs)
+ (let ((tbl (standard-case-table)))
+ (loop for (uc lc) in pairs do
+ (put-case-table-pair (make-char charset uc) (make-char charset lc) tbl))))
+
+(setup-case-pairs
+ 'cyrillic-iso8859-5
+ '(
+ (176 208) ;cyrillic letter a
+ (167 247) ;cyrillic letter yi
+ (205 237) ;cyrillic letter e
+ (174 254) ;cyrillic letter short u
+ (177 209) ;cyrillic letter be
+ (197 229) ;cyrillic letter ha
+ (184 216) ;cyrillic letter i
+ (180 212) ;cyrillic letter de
+ (198 230) ;cyrillic letter tse
+ (206 238) ;cyrillic letter yu
+ (190 222) ;cyrillic letter o
+ (168 248) ;cyrillic letter je
+ (202 234) ;cyrillic letter hard sign
+ (199 231) ;cyrillic letter che
+ (164 244) ;cyrillic letter ukrainian ie
+ (162 242) ;cyrillic letter dje
+ (179 211) ;cyrillic letter ghe
+ (195 227) ;cyrillic letter u
+ (191 223) ;cyrillic letter pe
+ (163 243) ;cyrillic letter gje
+ (194 226) ;cyrillic letter te
+ (172 252) ;cyrillic letter kje
+ (178 210) ;cyrillic letter ve
+ (169 249) ;cyrillic letter lje
+ (200 232) ;cyrillic letter sha
+ (170 250) ;cyrillic letter nje
+ (183 215) ;cyrillic letter ze
+ (165 245) ;cyrillic letter dze
+ (203 235) ;cyrillic letter yeru
+ (201 233) ;cyrillic letter shcha
+ (182 214) ;cyrillic letter zhe
+ (175 255) ;cyrillic letter dzhe
+ (196 228) ;cyrillic letter ef
+ (186 218) ;cyrillic letter ka
+ (204 236) ;cyrillic letter soft sign
+ (181 213) ;cyrillic letter ie
+ (187 219) ;cyrillic letter el
+ (188 220) ;cyrillic letter em
+ (189 221) ;cyrillic letter en
+ (171 251) ;cyrillic letter tshe
+ (192 224) ;cyrillic letter er
+ (161 241) ;cyrillic letter io
+ (166 246) ;cyrillic letter byelorussian-ukrainian i
+ (193 225) ;cyrillic letter es
+ (185 217) ;cyrillic letter short i
+ (207 239) ;cyrillic letter ya
+ ))
+
+;; This is our utility function; we don't want it in the dumped XEmacs.
+
+(fmakunbound 'setup-case-pairs)
+
;;; cyrillic.el ends here
--alexm