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'à]\\)kçtavraõa "	"\\1kçtavraõa")
(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 "		"\\1ïgada")
(mbh-query-replace-regexp "aikùvàka "			"aikùvàka")
(mbh-query-replace-regexp "airàvata "			"airàvata")
(mbh-query-replace-regexp "badar\\([ãy]\\) "		"badar\\1")
(mbh-query-replace-regexp "baladeva "			"baladeva")
(mbh-query-replace-regexp "balaràma "			"balaràma")
(mbh-query-replace-regexp "bhagavad "			"bhagavad")
(mbh-query-replace-regexp "bhagãratha "			"bhagãratha")
(mbh-query-replace-regexp "bharadvàja "			"bharadvàja")
(mbh-query-replace-regexp "bharata "			"bharata")
(mbh-query-replace-regexp "bhava "			"bhava")
(mbh-query-replace-regexp "bhàgãrath\\([ãy]\\) "	"bhàgãrath\\1")
(mbh-query-replace-regexp "bhàradvàja "			"bhàradvàja")
(mbh-query-replace-regexp "bhàrata "			"bhàrata")
(mbh-query-replace-regexp "bhàrgava "			"bhàrgava")
(mbh-query-replace-regexp "bhàskara "			"bhàskara")
(mbh-query-replace-regexp "bhãma "			"bhãma")
(mbh-query-replace-regexp "bhãmasena "			"bhãmasena")
(mbh-query-replace-regexp "bhãùma "			"bhãùma")
(mbh-query-replace-regexp "bràhmaõa "			"bràhmaõa")
(mbh-query-replace-regexp "bàhuka "			"bàhuka")
(mbh-query-replace-regexp "dakùa "			"dakùa")
(mbh-query-replace-regexp "damayant\\([ãy]\\) "		"damayant\\1")
(mbh-query-replace-regexp "da÷aratha "			"da÷aratha")
(mbh-query-replace-regexp "da÷àrõa "			"da÷àrõa")
(mbh-query-replace-regexp "devakãputra "		"devakãputra")
(mbh-query-replace-regexp "devakãsuta "			"devakãsuta")
(mbh-query-replace-regexp "devaràja "			"devaràja")
(mbh-query-replace-regexp "devavrata "			"devavrata")
(mbh-query-replace-regexp "dhanada "			"dhanada")
(mbh-query-replace-regexp "dhanaüjaya "			"dhanaüjaya")
(mbh-query-replace-regexp "dhane÷vara "			"dhane÷vara")
(mbh-query-replace-regexp "dharmaputra "		"dharmaputra")
(mbh-query-replace-regexp "dharmaràja "			"dharmaràja")
(mbh-query-replace-regexp "dhçùñadyumna "		"dhçùñadyumna")
(mbh-query-replace-regexp "dilãpa "			"dilãpa")
(mbh-query-replace-regexp "divàkara "			"divàkara")
(mbh-query-replace-regexp "draupad\\([ãy]\\) "		"draupad\\1")
(mbh-query-replace-regexp "droõa "			"droõa")
(mbh-query-replace-regexp "drupada "			"drupada")
(mbh-query-replace-regexp "duryodhana "			"duryodhana")
(mbh-query-replace-regexp "duþ÷àsana "			"duþ÷àsana")
(mbh-query-replace-regexp "dyumatsena "			"dyumatsena")
(mbh-query-replace-regexp "dànava "			"dànava")
(mbh-query-replace-regexp "dà÷àrõa "			"dà÷àrõa")
(mbh-query-replace-regexp "gandharva "			"gandharva")
(mbh-query-replace-regexp "garuóa "			"garuóa")
(mbh-query-replace-regexp "gautam\\([ãy]\\) "		"gautam\\1")
(mbh-query-replace-regexp "gautama "			"gautama")
(mbh-query-replace-regexp "gaïgà "			"gaïgà")
(mbh-query-replace-regexp "godàvar\\([ãy]\\) "		"godàvar\\1")
(mbh-query-replace-regexp "gomat\\([ãy]\\) "		"gomat\\1")
(mbh-query-replace-regexp "govinda "			"govinda")
(mbh-query-replace-regexp "gudàke÷a "			"gudàke÷a")
(mbh-query-replace-regexp "gàïgeya "			"gàïgeya")
(mbh-query-replace-regexp "halàyudha "			"halàyudha")
(mbh-query-replace-regexp "hara "			"hara")
(mbh-query-replace-regexp "hçùãke÷a "			"hçùãke÷a")
(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 "janàrdana "			"janàrdana")
(mbh-query-replace-regexp "jarà "			"jarà")
(mbh-query-replace-regexp "jàhnav\\([ãy]\\) "		"jàhnav\\1")
(mbh-query-replace-regexp "jàmadagnya "			"jàmadagnya")
(mbh-query-replace-regexp "kabandha "			"kabandha")
(mbh-query-replace-regexp "kaikey\\([ãy]\\) "		"kaikey\\1")
(mbh-query-replace-regexp "karõa "			"karõa")
(mbh-query-replace-regexp "kaunteya "			"kaunteya")
(mbh-query-replace-regexp "kaurava "			"kaurava")
(mbh-query-replace-regexp "kausalyà "			"kausalyà")
(mbh-query-replace-regexp "kau÷ik\\([ãy]\\) "		"kau÷ik\\1")
(mbh-query-replace-regexp "ke÷ava "			"ke÷ava")
(mbh-query-replace-regexp "khara "			"khara")
(mbh-query-replace-regexp "kiùkindhà "			"kiùkindhà")
(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 "kàmapàla "			"kàmapàla")
(mbh-query-replace-regexp "kçp\\([ãy]\\) "		"kçp\\1")
(mbh-query-replace-regexp "kçpa "			"kçpa")
(mbh-query-replace-regexp "kçtavãrya "			"kçtavãrya")
(mbh-query-replace-regexp "kçùõa "			"kçùõa")
(mbh-query-replace-regexp "kçùõadvaipàyana "		"kçùõadvaipàyana")
(mbh-query-replace-regexp "kçùõà "			"kçùõà")
(mbh-query-replace-regexp "lakùmaõa "			"lakùmaõa")
(mbh-query-replace-regexp "laïkà "			"laïkà")
(mbh-query-replace-regexp "madh\\([uv]\\) "		"madh\\1")
(mbh-query-replace-regexp "madhusådana "		"madhusådana")
(mbh-query-replace-regexp "madraràja "			"madraràja")
(mbh-query-replace-regexp "mahendra "			"mahendra")
(mbh-query-replace-regexp "màdhava "			"màdhava")
(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 "niùadha "			"niùadha")
(mbh-query-replace-regexp "nàrada "			"nàrada")
(mbh-query-replace-regexp "nàràyaõa "			"nàràyaõa")
(mbh-query-replace-regexp "parvata "			"parvata")
(mbh-query-replace-regexp "parõàda "			"parõàda")
(mbh-query-replace-regexp "phalguna "			"phalguna")
(mbh-query-replace-regexp "prahràda "			"prahràda")
(mbh-query-replace-regexp "pulastya "			"pulastya")
(mbh-query-replace-regexp "puraüdara "			"puraüdara")
(mbh-query-replace-regexp "puùkara "			"puùkara")
(mbh-query-replace-regexp "pàka÷àsana "			"pàka÷àsana")
(mbh-query-replace-regexp "pàrtha "			"pàrtha")
(mbh-query-replace-regexp "pàrãkùita "			"pàrãkùita")
(mbh-query-replace-regexp "pàrùata "			"pàrùata")
(mbh-query-replace-regexp "pà¤càl\\([ãy]\\) "		"pà¤càl\\1")
(mbh-query-replace-regexp "pà¤càla "			"pà¤càla")
(mbh-query-replace-regexp "pàõóava "			"pàõóava")
(mbh-query-replace-regexp "rauhiõeya "			"rauhiõeya")
(mbh-query-replace-regexp "rudra "			"rudra")
(mbh-query-replace-regexp "ràdheya "			"ràdheya")
(mbh-query-replace-regexp "ràkùas\\([ãy]\\) "		"ràkùas\\1")
(mbh-query-replace-regexp "ràkùasa "			"ràkùasa")
(mbh-query-replace-regexp "ràma "			"ràma")
(mbh-query-replace-regexp "ràvaõa "			"ràvaõa")
(mbh-query-replace-regexp "sagara "			"sagara")
(mbh-query-replace-regexp "sahadeva "			"sahadeva")
(mbh-query-replace-regexp "sahasranetra "		"sahasranetra")
(mbh-query-replace-regexp "sahasràkùa "			"sahasràkùa")
(mbh-query-replace-regexp "sanatkumàra "		"sanatkumàra")
(mbh-query-replace-regexp "satyavatãsuta "		"satyavatãsuta")
(mbh-query-replace-regexp "saubala "			"saubala")
(mbh-query-replace-regexp "saubha "			"saubha")
(mbh-query-replace-regexp "saükarùaõa "			"saükarùaõa")
(mbh-query-replace-regexp "sità÷va "			"sità÷va")
(mbh-query-replace-regexp "siühikà "			"siühikà")
(mbh-query-replace-regexp "somadatta "			"somadatta")
(mbh-query-replace-regexp "sugrãva "			"sugrãva")
(mbh-query-replace-regexp "suyodhana "			"suyodhana")
(mbh-query-replace-regexp "svàhà "			"svàhà")
(mbh-query-replace-regexp "sàraõa "			"sàraõa")
(mbh-query-replace-regexp "sàvitra "			"sàvitra")
(mbh-query-replace-regexp "sãtà "			"sãtà")
(mbh-query-replace-regexp "sårya "			"sårya")
(mbh-query-replace-regexp "såtaja "			"såtaja")
(mbh-query-replace-regexp "tapana "			"tapana")
(mbh-query-replace-regexp "tretà "			"tretà")
(mbh-query-replace-regexp "trijañà "			"trijañà")
(mbh-query-replace-regexp "tàrà "			"tàrà")
(mbh-query-replace-regexp "uttara "			"uttara")
(mbh-query-replace-regexp "vaikartana "			"vaikartana")
(mbh-query-replace-regexp "vai÷ravaõa "			"vai÷ravaõa")
(mbh-query-replace-regexp "varuõa "			"varuõa")
(mbh-query-replace-regexp "vas\\([uv]\\) "		"vas\\1")
(mbh-query-replace-regexp "vasiùñha "			"vasiùñha")
(mbh-query-replace-regexp "vasuùeõa "			"vasuùeõa")
(mbh-query-replace-regexp "vatsa "			"vatsa")
(mbh-query-replace-regexp "veda "			"veda")
(mbh-query-replace-regexp "vibhàõóaka "			"vibhàõóaka")
(mbh-query-replace-regexp "vibhãùaõa "			"vibhãùaõa")
(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 "vikarõa "			"vikarõa")
(mbh-query-replace-regexp "vinatà "			"vinatà")
(mbh-query-replace-regexp "virocana "			"virocana")
(mbh-query-replace-regexp "viràña "			"viràña")
(mbh-query-replace-regexp "vi÷varåpa "			"vi÷varåpa")
(mbh-query-replace-regexp "vi÷vàmitra "			"vi÷vàmitra")
(mbh-query-replace-regexp "vyàsa "			"vyàsa")
(mbh-query-replace-regexp "vàrùõeya "			"vàrùõeya")
(mbh-query-replace-regexp "vàsava "			"vàsava")
(mbh-query-replace-regexp "vàsudeva "			"vàsudeva")
(mbh-query-replace-regexp "vàyuputra "			"vàyuputra")
(mbh-query-replace-regexp "vçkodara "			"vçkodara")
(mbh-query-replace-regexp "vçtra "			"vçtra")
(mbh-query-replace-regexp "vçùabha "			"vçùabha")
(mbh-query-replace-regexp "yaj¤asena "			"yaj¤asena")
(mbh-query-replace-regexp "yakùa "			"yakùa")
(mbh-query-replace-regexp "yama "			"yama")
(mbh-query-replace-regexp "yamunà "			"yamunà")
(mbh-query-replace-regexp "yàj¤asen\\([ãy]\\) "		"yàj¤asen\\1")
(mbh-query-replace-regexp "yudhiùñhira "		"yudhiùñhira")
(mbh-query-replace-regexp "àditya "			"àditya")
(mbh-query-replace-regexp "ã÷vara "			"ã÷vara")
(mbh-query-replace-regexp "çcãka "			"çcãka")
(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 "÷aïkara "			"÷aïkara")
(mbh-query-replace-regexp "÷iva "			"÷iva")
(mbh-query-replace-regexp "÷vetavàhana "		"÷vetavàhana")
(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 "÷årpaõakhà "			"÷årpaõakhà")


John Smith can be contacted as jds10@cam.ac.uk

Back to John Smith's home page