The names.el program


Names.el is an Emacs Lisp program for use with the Unix editor Emacs. (It makes use of a command "mbh-query-replace-regexp", which is defined in the program mqreplace.el.) Its purpose is to present the user with every occurrence in the MBh of certain common names and ask whether the following space should be removed. As each command is completed I comment it out with a ";" -- it can be seen that there is a long way still to go! An equivalent task for words which are not names is performed by words.el.

Note that this program makes direct use of accented characters in the CSX encoding; unless your Web browser uses a font based on this encoding (which is vanishingly unlikely) these characters will not appear correctly. The simplest expedient is to save this file to your own disk and view it there with software that does accept a CSX-based font.



; (mbh-query-replace-regexp "\\([a']\\)cala "		"\\1cala")
; (mbh-query-replace-regexp "\\([a']\\)cyuta "		"\\1cyuta")
; (mbh-query-replace-regexp "\\([a']\\)gastya "	"\\1gastya")
(mbh-query-replace-regexp "\\([a']\\)ktavraa "	"\\1ktavraa")
(mbh-query-replace-regexp "\\([a']\\)rjuna "		"\\1rjuna")
(mbh-query-replace-regexp "\\([a']\\)rka "		"\\1rka")
(mbh-query-replace-regexp "\\([a']\\)sura "		"\\1sura")
(mbh-query-replace-regexp "\\([a']\\)yodhy "		"\\1yodhy")
(mbh-query-replace-regexp "\\([a']\\)gada "		"\\1gada")
(mbh-query-replace-regexp "aikvka "			"aikvka")
(mbh-query-replace-regexp "airvata "			"airvata")
(mbh-query-replace-regexp "badar\\([y]\\) "		"badar\\1")
(mbh-query-replace-regexp "baladeva "			"baladeva")
(mbh-query-replace-regexp "balarma "			"balarma")
(mbh-query-replace-regexp "bhagavad "			"bhagavad")
(mbh-query-replace-regexp "bhagratha "			"bhagratha")
(mbh-query-replace-regexp "bharadvja "			"bharadvja")
(mbh-query-replace-regexp "bharata "			"bharata")
(mbh-query-replace-regexp "bhava "			"bhava")
(mbh-query-replace-regexp "bhgrath\\([y]\\) "	"bhgrath\\1")
(mbh-query-replace-regexp "bhradvja "			"bhradvja")
(mbh-query-replace-regexp "bhrata "			"bhrata")
(mbh-query-replace-regexp "bhrgava "			"bhrgava")
(mbh-query-replace-regexp "bhskara "			"bhskara")
(mbh-query-replace-regexp "bhma "			"bhma")
(mbh-query-replace-regexp "bhmasena "			"bhmasena")
(mbh-query-replace-regexp "bhma "			"bhma")
(mbh-query-replace-regexp "brhmaa "			"brhmaa")
(mbh-query-replace-regexp "bhuka "			"bhuka")
(mbh-query-replace-regexp "daka "			"daka")
(mbh-query-replace-regexp "damayant\\([y]\\) "		"damayant\\1")
(mbh-query-replace-regexp "daaratha "			"daaratha")
(mbh-query-replace-regexp "dara "			"dara")
(mbh-query-replace-regexp "devakputra "		"devakputra")
(mbh-query-replace-regexp "devaksuta "			"devaksuta")
(mbh-query-replace-regexp "devarja "			"devarja")
(mbh-query-replace-regexp "devavrata "			"devavrata")
(mbh-query-replace-regexp "dhanada "			"dhanada")
(mbh-query-replace-regexp "dhanajaya "			"dhanajaya")
(mbh-query-replace-regexp "dhanevara "			"dhanevara")
(mbh-query-replace-regexp "dharmaputra "		"dharmaputra")
(mbh-query-replace-regexp "dharmarja "			"dharmarja")
(mbh-query-replace-regexp "dhadyumna "		"dhadyumna")
(mbh-query-replace-regexp "dilpa "			"dilpa")
(mbh-query-replace-regexp "divkara "			"divkara")
(mbh-query-replace-regexp "draupad\\([y]\\) "		"draupad\\1")
(mbh-query-replace-regexp "droa "			"droa")
(mbh-query-replace-regexp "drupada "			"drupada")
(mbh-query-replace-regexp "duryodhana "			"duryodhana")
(mbh-query-replace-regexp "dusana "			"dusana")
(mbh-query-replace-regexp "dyumatsena "			"dyumatsena")
(mbh-query-replace-regexp "dnava "			"dnava")
(mbh-query-replace-regexp "dra "			"dra")
(mbh-query-replace-regexp "gandharva "			"gandharva")
(mbh-query-replace-regexp "garua "			"garua")
(mbh-query-replace-regexp "gautam\\([y]\\) "		"gautam\\1")
(mbh-query-replace-regexp "gautama "			"gautama")
(mbh-query-replace-regexp "gag "			"gag")
(mbh-query-replace-regexp "godvar\\([y]\\) "		"godvar\\1")
(mbh-query-replace-regexp "gomat\\([y]\\) "		"gomat\\1")
(mbh-query-replace-regexp "govinda "			"govinda")
(mbh-query-replace-regexp "gudkea "			"gudkea")
(mbh-query-replace-regexp "ggeya "			"ggeya")
(mbh-query-replace-regexp "halyudha "			"halyudha")
(mbh-query-replace-regexp "hara "			"hara")
(mbh-query-replace-regexp "hkea "			"hkea")
(mbh-query-replace-regexp "ila "			"ila")
(mbh-query-replace-regexp "indra "			"indra")
(mbh-query-replace-regexp "indrajit "			"indrajit")
(mbh-query-replace-regexp "jamb\\([v]\\) "		"jamb\\1")
(mbh-query-replace-regexp "janaka "			"janaka")
(mbh-query-replace-regexp "janamejaya "			"janamejaya")
(mbh-query-replace-regexp "janrdana "			"janrdana")
(mbh-query-replace-regexp "jar "			"jar")
(mbh-query-replace-regexp "jhnav\\([y]\\) "		"jhnav\\1")
(mbh-query-replace-regexp "jmadagnya "			"jmadagnya")
(mbh-query-replace-regexp "kabandha "			"kabandha")
(mbh-query-replace-regexp "kaikey\\([y]\\) "		"kaikey\\1")
(mbh-query-replace-regexp "kara "			"kara")
(mbh-query-replace-regexp "kaunteya "			"kaunteya")
(mbh-query-replace-regexp "kaurava "			"kaurava")
(mbh-query-replace-regexp "kausaly "			"kausaly")
(mbh-query-replace-regexp "kauik\\([y]\\) "		"kauik\\1")
(mbh-query-replace-regexp "keava "			"keava")
(mbh-query-replace-regexp "khara "			"khara")
(mbh-query-replace-regexp "kikindh "			"kikindh")
(mbh-query-replace-regexp "kubera "			"kubera")
(mbh-query-replace-regexp "kunt\\([y]\\) "		"kunt\\1")
(mbh-query-replace-regexp "kur\\([uv]\\) "		"kur\\1")
(mbh-query-replace-regexp "kmapla "			"kmapla")
(mbh-query-replace-regexp "kp\\([y]\\) "		"kp\\1")
(mbh-query-replace-regexp "kpa "			"kpa")
(mbh-query-replace-regexp "ktavrya "			"ktavrya")
(mbh-query-replace-regexp "ka "			"ka")
(mbh-query-replace-regexp "kadvaipyana "		"kadvaipyana")
(mbh-query-replace-regexp "k "			"k")
(mbh-query-replace-regexp "lakmaa "			"lakmaa")
(mbh-query-replace-regexp "lak "			"lak")
(mbh-query-replace-regexp "madh\\([uv]\\) "		"madh\\1")
(mbh-query-replace-regexp "madhusdana "		"madhusdana")
(mbh-query-replace-regexp "madrarja "			"madrarja")
(mbh-query-replace-regexp "mahendra "			"mahendra")
(mbh-query-replace-regexp "mdhava "			"mdhava")
(mbh-query-replace-regexp "nakula "			"nakula")
(mbh-query-replace-regexp "nala "			"nala")
(mbh-query-replace-regexp "nandana "			"nandana")
(mbh-query-replace-regexp "narmad "			"narmad")
(mbh-query-replace-regexp "niadha "			"niadha")
(mbh-query-replace-regexp "nrada "			"nrada")
(mbh-query-replace-regexp "nryaa "			"nryaa")
(mbh-query-replace-regexp "parvata "			"parvata")
(mbh-query-replace-regexp "parda "			"parda")
(mbh-query-replace-regexp "phalguna "			"phalguna")
(mbh-query-replace-regexp "prahrda "			"prahrda")
(mbh-query-replace-regexp "pulastya "			"pulastya")
(mbh-query-replace-regexp "puradara "			"puradara")
(mbh-query-replace-regexp "pukara "			"pukara")
(mbh-query-replace-regexp "pkasana "			"pkasana")
(mbh-query-replace-regexp "prtha "			"prtha")
(mbh-query-replace-regexp "prkita "			"prkita")
(mbh-query-replace-regexp "prata "			"prata")
(mbh-query-replace-regexp "pcl\\([y]\\) "		"pcl\\1")
(mbh-query-replace-regexp "pcla "			"pcla")
(mbh-query-replace-regexp "pava "			"pava")
(mbh-query-replace-regexp "rauhieya "			"rauhieya")
(mbh-query-replace-regexp "rudra "			"rudra")
(mbh-query-replace-regexp "rdheya "			"rdheya")
(mbh-query-replace-regexp "rkas\\([y]\\) "		"rkas\\1")
(mbh-query-replace-regexp "rkasa "			"rkasa")
(mbh-query-replace-regexp "rma "			"rma")
(mbh-query-replace-regexp "rvaa "			"rvaa")
(mbh-query-replace-regexp "sagara "			"sagara")
(mbh-query-replace-regexp "sahadeva "			"sahadeva")
(mbh-query-replace-regexp "sahasranetra "		"sahasranetra")
(mbh-query-replace-regexp "sahasrka "			"sahasrka")
(mbh-query-replace-regexp "sanatkumra "		"sanatkumra")
(mbh-query-replace-regexp "satyavatsuta "		"satyavatsuta")
(mbh-query-replace-regexp "saubala "			"saubala")
(mbh-query-replace-regexp "saubha "			"saubha")
(mbh-query-replace-regexp "sakaraa "			"sakaraa")
(mbh-query-replace-regexp "sitva "			"sitva")
(mbh-query-replace-regexp "sihik "			"sihik")
(mbh-query-replace-regexp "somadatta "			"somadatta")
(mbh-query-replace-regexp "sugrva "			"sugrva")
(mbh-query-replace-regexp "suyodhana "			"suyodhana")
(mbh-query-replace-regexp "svh "			"svh")
(mbh-query-replace-regexp "sraa "			"sraa")
(mbh-query-replace-regexp "svitra "			"svitra")
(mbh-query-replace-regexp "st "			"st")
(mbh-query-replace-regexp "srya "			"srya")
(mbh-query-replace-regexp "staja "			"staja")
(mbh-query-replace-regexp "tapana "			"tapana")
(mbh-query-replace-regexp "tret "			"tret")
(mbh-query-replace-regexp "trija "			"trija")
(mbh-query-replace-regexp "tr "			"tr")
(mbh-query-replace-regexp "uttara "			"uttara")
(mbh-query-replace-regexp "vaikartana "			"vaikartana")
(mbh-query-replace-regexp "vairavaa "			"vairavaa")
(mbh-query-replace-regexp "varua "			"varua")
(mbh-query-replace-regexp "vas\\([uv]\\) "		"vas\\1")
(mbh-query-replace-regexp "vasiha "			"vasiha")
(mbh-query-replace-regexp "vasuea "			"vasuea")
(mbh-query-replace-regexp "vatsa "			"vatsa")
(mbh-query-replace-regexp "veda "			"veda")
(mbh-query-replace-regexp "vibhaka "			"vibhaka")
(mbh-query-replace-regexp "vibhaa "			"vibhaa")
(mbh-query-replace-regexp "videha "			"videha")
(mbh-query-replace-regexp "vidura "			"vidura")
(mbh-query-replace-regexp "vijaya "			"vijaya")
(mbh-query-replace-regexp "vikartana "			"vikartana")
(mbh-query-replace-regexp "vikara "			"vikara")
(mbh-query-replace-regexp "vinat "			"vinat")
(mbh-query-replace-regexp "virocana "			"virocana")
(mbh-query-replace-regexp "vira "			"vira")
(mbh-query-replace-regexp "vivarpa "			"vivarpa")
(mbh-query-replace-regexp "vivmitra "			"vivmitra")
(mbh-query-replace-regexp "vysa "			"vysa")
(mbh-query-replace-regexp "vreya "			"vreya")
(mbh-query-replace-regexp "vsava "			"vsava")
(mbh-query-replace-regexp "vsudeva "			"vsudeva")
(mbh-query-replace-regexp "vyuputra "			"vyuputra")
(mbh-query-replace-regexp "vkodara "			"vkodara")
(mbh-query-replace-regexp "vtra "			"vtra")
(mbh-query-replace-regexp "vabha "			"vabha")
(mbh-query-replace-regexp "yajasena "			"yajasena")
(mbh-query-replace-regexp "yaka "			"yaka")
(mbh-query-replace-regexp "yama "			"yama")
(mbh-query-replace-regexp "yamun "			"yamun")
(mbh-query-replace-regexp "yjasen\\([y]\\) "		"yjasen\\1")
(mbh-query-replace-regexp "yudhihira "		"yudhihira")
(mbh-query-replace-regexp "ditya "			"ditya")
(mbh-query-replace-regexp "vara "			"vara")
(mbh-query-replace-regexp "cka "			"cka")
(mbh-query-replace-regexp "ac\\([y]\\) "		"ac\\1")
(mbh-query-replace-regexp "akra "			"akra")
(mbh-query-replace-regexp "alya "			"alya")
(mbh-query-replace-regexp "atrughna "			"atrughna")
(mbh-query-replace-regexp "akara "			"akara")
(mbh-query-replace-regexp "iva "			"iva")
(mbh-query-replace-regexp "vetavhana "		"vetavhana")
(mbh-query-replace-regexp "lva "			"lva")
(mbh-query-replace-regexp "ntanava "			"ntanava")
(mbh-query-replace-regexp "radvat\\([y]\\) "		"radvat\\1")
(mbh-query-replace-regexp "radvata "			"radvata")
(mbh-query-replace-regexp "ra "			"ra")
(mbh-query-replace-regexp "rpaakh "			"rpaakh")


Back to home page