Mercurial > hg > Aquinas

comparison summa/bilingual/merge.el @ 6:929b4153a4aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author ht
date Sat, 09 Feb 2008 13:48:46 +0000
parents 16d42df3ef99
children 1a67da87d11f
comparison
equal deleted inserted replaced
5:9d2a353bd236 6:929b4153a4aa
3 (defalias 3 (defalias
4 'merge-paras 4 'merge-paras
5 (read-kbd-macro 5 (read-kbd-macro
6 "C-SPC M-C-f C-x C-x M-w M-C-f C-s <p C-a C-x o RET C-y M-C-b 2*<C-f> SPC xml:lang=W <backspace> \"la\" C-s <p C-a M-C-f C-x o") 6 "C-SPC M-C-f C-x C-x M-w M-C-f C-s <p C-a C-x o RET C-y M-C-b 2*<C-f> SPC xml:lang=W <backspace> \"la\" C-s <p C-a M-C-f C-x o")
7 ) 7 )
8
9 ;;; Position after the first para of a multi-para intro in the English corresponding to a
10 ;;; single para in the Latin
11 (defalias 'fix-prooemium (read-kbd-macro
12 "C-s <h4 C-a C-r <div4 C-a C-p </div> C-p C-a C-r </h3 C-n C-s </p> C-f C-x C-x C-x C-x C-s <div4 C-a 2*<C-p> C-x C-x M-x narrow- to- region RET M-x replace- regexp RET .* C-q C-j .* C-q C-j .* C-q C-j 2*RET C-x u M-x replace- regexp RET </div> C-q C-j .* C-q C-j .* C-q C-j 2*RET M-x widen RET C-x C-x C-o <div SPC xml:lang=\"en\"> C-a M-C-f"))
13
14 ;;; Add Q. numbers
15 (defalias 'number-titles (read-kbd-macro
16 "C-s <div3 RET C-s title= C-f C-SPC 2*<M-f> M-w C-s <h3 RET C-s > RET C-y . SPC M-b C-b <backspace>"))
17