/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / packages / add-log.elc.z / add-log.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 32 3a 30 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:52:03 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 61 63 6b |s-20.3/l|isp/pack|
|000000a0| 61 67 65 73 2f 61 64 64 | 2d 6c 6f 67 2e 65 6c 0a |ages/add|-log.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 61 64 64 |    (err|or "`add|
|000001f0| 2d 6c 6f 67 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |-log.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 89 c1 8f 88 | c2 c3 c0 c4 c5 c6 c5 c7 |e ".....|........|
|00000270| c8 c9 c8 ca 26 0b 87 22 | 20 5b 6e 69 6c 20 28 28 |....&.."| [nil ((|
|00000280| 74 29 29 20 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |t)) cust|om-decla|
|00000290| 72 65 2d 67 72 6f 75 70 | 20 63 68 61 6e 67 65 2d |re-group| change-|
|000002a0| 6c 6f 67 20 22 43 68 61 | 6e 67 65 20 6c 6f 67 20 |log "Cha|nge log |
|000002b0| 6d 61 69 6e 74 65 6e 61 | 6e 63 65 22 20 3a 67 72 |maintena|nce" :gr|
|000002c0| 6f 75 70 20 74 6f 6f 6c | 73 20 6d 61 69 6e 74 20 |oup tool|s maint |
|000002d0| 3a 70 72 65 66 69 78 20 | 22 63 68 61 6e 67 65 2d |:prefix |"change-|
|000002e0| 6c 6f 67 2d 22 20 22 61 | 64 64 2d 6c 6f 67 2d 22 |log-" "a|dd-log-"|
|000002f0| 5d 20 31 32 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |] 12).(c|ustom-de|
|00000300| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000310| 63 68 61 6e 67 65 2d 6c | 6f 67 2d 64 65 66 61 75 |change-l|og-defau|
|00000320| 6c 74 2d 6e 61 6d 65 20 | 27 6e 69 6c 20 22 2a 4e |lt-name |'nil "*N|
|00000330| 61 6d 65 20 6f 66 20 61 | 20 63 68 61 6e 67 65 20 |ame of a| change |
|00000340| 6c 6f 67 20 66 69 6c 65 | 20 66 6f 72 20 5c 5c 5b |log file| for \\[|
|00000350| 61 64 64 2d 63 68 61 6e | 67 65 2d 6c 6f 67 2d 65 |add-chan|ge-log-e|
|00000360| 6e 74 72 79 5d 2e 22 20 | 3a 74 79 70 65 20 27 28 |ntry]." |:type '(|
|00000370| 63 68 6f 69 63 65 20 28 | 63 6f 6e 73 74 20 3a 74 |choice (|const :t|
|00000380| 61 67 20 22 64 65 66 61 | 75 6c 74 22 20 6e 69 6c |ag "defa|ult" nil|
|00000390| 29 20 73 74 72 69 6e 67 | 29 20 3a 67 72 6f 75 70 |) string|) :group|
|000003a0| 20 27 63 68 61 6e 67 65 | 2d 6c 6f 67 29 0a 28 63 | 'change|-log).(c|
|000003b0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|000003c0| 72 69 61 62 6c 65 20 27 | 61 64 64 2d 6c 6f 67 2d |riable '|add-log-|
|000003d0| 63 75 72 72 65 6e 74 2d | 64 65 66 75 6e 2d 66 75 |current-|defun-fu|
|000003e0| 6e 63 74 69 6f 6e 20 27 | 6e 69 6c 20 22 2a 49 66 |nction '|nil "*If|
|000003f0| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 66 75 6e 63 74 69 | non-nil|, functi|
|00000400| 6f 6e 20 74 6f 20 67 75 | 65 73 73 20 6e 61 6d 65 |on to gu|ess name|
|00000410| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 66 75 6e 63 | of curr|ent func|
|00000420| 74 69 6f 6e 20 66 72 6f | 6d 20 73 75 72 72 6f 75 |tion fro|m surrou|
|00000430| 6e 64 69 6e 67 20 74 65 | 78 74 2e 5c 6e 5c 5c 5b |nding te|xt.\n\\[|
|00000440| 61 64 64 2d 63 68 61 6e | 67 65 2d 6c 6f 67 2d 65 |add-chan|ge-log-e|
|00000450| 6e 74 72 79 5d 20 63 61 | 6c 6c 73 20 74 68 69 73 |ntry] ca|lls this|
|00000460| 20 66 75 6e 63 74 69 6f | 6e 20 28 69 66 20 6e 69 | functio|n (if ni|
|00000470| 6c 2c 20 60 61 64 64 2d | 6c 6f 67 2d 63 75 72 72 |l, `add-|log-curr|
|00000480| 65 6e 74 2d 64 65 66 75 | 6e 27 5c 6e 69 6e 73 74 |ent-defu|n'\ninst|
|00000490| 65 61 64 29 20 77 69 74 | 68 20 6e 6f 20 61 72 67 |ead) wit|h no arg|
|000004a0| 75 6d 65 6e 74 73 2e 20 | 20 49 74 20 72 65 74 75 |uments. | It retu|
|000004b0| 72 6e 73 20 61 20 73 74 | 72 69 6e 67 20 6f 72 20 |rns a st|ring or |
|000004c0| 6e 69 6c 20 69 66 20 69 | 74 20 63 61 6e 6e 6f 74 |nil if i|t cannot|
|000004d0| 20 67 75 65 73 73 2e 22 | 20 3a 74 79 70 65 20 27 | guess."| :type '|
|000004e0| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|000004f0| 63 68 61 6e 67 65 2d 6c | 6f 67 29 0a 28 63 75 73 |change-l|og).(cus|
|00000500| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000510| 61 62 6c 65 20 27 61 64 | 64 2d 6c 6f 67 2d 66 75 |able 'ad|d-log-fu|
|00000520| 6c 6c 2d 6e 61 6d 65 20 | 27 6e 69 6c 20 22 2a 46 |ll-name |'nil "*F|
|00000530| 75 6c 6c 20 6e 61 6d 65 | 20 6f 66 20 75 73 65 72 |ull name| of user|
|00000540| 2c 20 66 6f 72 20 69 6e | 63 6c 75 73 69 6f 6e 20 |, for in|clusion |
|00000550| 69 6e 20 43 68 61 6e 67 | 65 4c 6f 67 20 64 61 69 |in Chang|eLog dai|
|00000560| 6c 79 20 68 65 61 64 65 | 72 73 2e 5c 6e 54 68 69 |ly heade|rs.\nThi|
|00000570| 73 20 64 65 66 61 75 6c | 74 73 20 74 6f 20 74 68 |s defaul|ts to th|
|00000580| 65 20 76 61 6c 75 65 20 | 72 65 74 75 72 6e 65 64 |e value |returned|
|00000590| 20 62 79 20 74 68 65 20 | 60 75 73 65 72 2d 66 75 | by the |`user-fu|
|000005a0| 6c 6c 2d 6e 61 6d 65 27 | 20 66 75 6e 63 74 69 6f |ll-name'| functio|
|000005b0| 6e 2e 22 20 3a 74 79 70 | 65 20 27 28 63 68 6f 69 |n." :typ|e '(choi|
|000005c0| 63 65 20 28 63 6f 6e 73 | 74 20 3a 74 61 67 20 22 |ce (cons|t :tag "|
|000005d0| 44 65 66 61 75 6c 74 22 | 20 6e 69 6c 29 20 73 74 |Default"| nil) st|
|000005e0| 72 69 6e 67 29 20 3a 67 | 72 6f 75 70 20 27 63 68 |ring) :g|roup 'ch|
|000005f0| 61 6e 67 65 2d 6c 6f 67 | 29 0a 28 63 75 73 74 6f |ange-log|).(custo|
|00000600| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000610| 6c 65 20 27 61 64 64 2d | 6c 6f 67 2d 6d 61 69 6c |le 'add-|log-mail|
|00000620| 69 6e 67 2d 61 64 64 72 | 65 73 73 20 27 6e 69 6c |ing-addr|ess 'nil|
|00000630| 20 22 2a 45 6c 65 63 74 | 72 6f 6e 69 63 20 6d 61 | "*Elect|ronic ma|
|00000640| 69 6c 20 61 64 64 72 65 | 73 73 20 6f 66 20 75 73 |il addre|ss of us|
|00000650| 65 72 2c 20 66 6f 72 20 | 69 6e 63 6c 75 73 69 6f |er, for |inclusio|
|00000660| 6e 20 69 6e 20 43 68 61 | 6e 67 65 4c 6f 67 20 64 |n in Cha|ngeLog d|
|00000670| 61 69 6c 79 20 68 65 61 | 64 65 72 73 2e 5c 6e 54 |aily hea|ders.\nT|
|00000680| 68 69 73 20 64 65 66 61 | 75 6c 74 73 20 74 6f 20 |his defa|ults to |
|00000690| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 60 75 73 |the valu|e of `us|
|000006a0| 65 72 2d 6d 61 69 6c 2d | 61 64 64 72 65 73 73 27 |er-mail-|address'|
|000006b0| 2e 22 20 3a 74 79 70 65 | 20 27 28 63 68 6f 69 63 |." :type| '(choic|
|000006c0| 65 20 28 63 6f 6e 73 74 | 20 3a 74 61 67 20 22 44 |e (const| :tag "D|
|000006d0| 65 66 61 75 6c 74 22 20 | 6e 69 6c 29 20 73 74 72 |efault" |nil) str|
|000006e0| 69 6e 67 29 20 3a 67 72 | 6f 75 70 20 27 63 68 61 |ing) :gr|oup 'cha|
|000006f0| 6e 67 65 2d 6c 6f 67 29 | 0a 28 63 75 73 74 6f 6d |nge-log)|.(custom|
|00000700| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000710| 65 20 27 61 64 64 2d 6c | 6f 67 2d 74 69 6d 65 2d |e 'add-l|og-time-|
|00000720| 66 6f 72 6d 61 74 20 27 | 27 69 73 6f 38 36 30 31 |format '|'iso8601|
|00000730| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 22 2a 46 |-time-st|ring "*F|
|00000740| 75 6e 63 74 69 6f 6e 20 | 74 68 61 74 20 64 65 66 |unction |that def|
|00000750| 69 6e 65 73 20 74 68 65 | 20 74 69 6d 65 20 66 6f |ines the| time fo|
|00000760| 72 6d 61 74 2e 5c 6e 46 | 6f 72 20 65 78 61 6d 70 |rmat.\nF|or examp|
|00000770| 6c 65 2c 20 60 69 73 6f | 38 36 30 31 2d 74 69 6d |le, `iso|8601-tim|
|00000780| 65 2d 73 74 72 69 6e 67 | 27 20 28 74 69 6d 65 20 |e-string|' (time |
|00000790| 69 6e 20 69 6e 74 65 72 | 6e 61 74 69 6f 6e 61 6c |in inter|national|
|000007a0| 20 49 53 4f 20 38 36 30 | 31 20 66 6f 72 6d 61 74 | ISO 860|1 format|
|000007b0| 29 5c 6e 61 6e 64 20 60 | 63 75 72 72 65 6e 74 2d |)\nand `|current-|
|000007c0| 74 69 6d 65 2d 73 74 72 | 69 6e 67 27 20 61 72 65 |time-str|ing' are|
|000007d0| 20 76 61 6c 69 64 20 76 | 61 6c 75 65 73 2e 22 20 | valid v|alues." |
|000007e0| 3a 74 79 70 65 20 27 28 | 72 61 64 69 6f 20 28 63 |:type '(|radio (c|
|000007f0| 6f 6e 73 74 20 3a 74 61 | 67 20 22 49 6e 74 65 72 |onst :ta|g "Inter|
|00000800| 6e 61 74 69 6f 6e 61 6c | 20 49 53 4f 20 38 36 30 |national| ISO 860|
|00000810| 31 20 66 6f 72 6d 61 74 | 22 20 69 73 6f 38 36 30 |1 format|" iso860|
|00000820| 31 2d 74 69 6d 65 2d 73 | 74 72 69 6e 67 29 20 28 |1-time-s|tring) (|
|00000830| 63 6f 6e 73 74 20 3a 74 | 61 67 20 22 4f 6c 64 20 |const :t|ag "Old |
|00000840| 66 6f 72 6d 61 74 2c 20 | 61 73 20 72 65 74 75 72 |format, |as retur|
|00000850| 6e 65 64 20 62 79 20 60 | 63 75 72 72 65 6e 74 2d |ned by `|current-|
|00000860| 74 69 6d 65 2d 73 74 72 | 69 6e 67 27 22 20 63 75 |time-str|ing'" cu|
|00000870| 72 72 65 6e 74 2d 74 69 | 6d 65 2d 73 74 72 69 6e |rrent-ti|me-strin|
|00000880| 67 29 20 28 66 75 6e 63 | 74 69 6f 6e 20 3a 74 61 |g) (func|tion :ta|
|00000890| 67 20 22 4f 74 68 65 72 | 22 29 29 20 3a 67 72 6f |g "Other|")) :gro|
|000008a0| 75 70 20 27 63 68 61 6e | 67 65 2d 6c 6f 67 29 0a |up 'chan|ge-log).|
|000008b0| 23 40 35 37 20 41 64 64 | 69 74 69 6f 6e 61 6c 20 |#@57 Add|itional |
|000008c0| 65 78 70 72 65 73 73 69 | 6f 6e 73 20 74 6f 20 68 |expressi|ons to h|
|000008d0| 69 67 68 6c 69 67 68 74 | 20 69 6e 20 43 68 61 6e |ighlight| in Chan|
|000008e0| 67 65 20 4c 6f 67 20 6d | 6f 64 65 2e 1f 0a 28 64 |ge Log m|ode...(d|
|000008f0| 65 66 76 61 72 20 63 68 | 61 6e 67 65 2d 6c 6f 67 |efvar ch|ange-log|
|00000900| 2d 66 6f 6e 74 2d 6c 6f | 63 6b 2d 6b 65 79 77 6f |-font-lo|ck-keywo|
|00000910| 72 64 73 20 27 28 28 22 | 5e 5c 5c 73 77 2e 2e 2e |rds '(("|^\\sw...|
|00000920| 2e 2e 2e 2e 2e 2e 5b 30 | 2d 39 3a 20 5d 2a 22 20 |......[0|-9: ]*" |
|00000930| 28 30 20 66 6f 6e 74 2d | 6c 6f 63 6b 2d 73 74 72 |(0 font-|lock-str|
|00000940| 69 6e 67 2d 66 61 63 65 | 29 20 28 22 5c 5c 28 5b |ing-face|) ("\\([|
|00000950| 5e 3c 5d 2b 5c 5c 29 3c | 5c 5c 28 5b 41 2d 5a 61 |^<]+\\)<|\\([A-Za|
|00000960| 2d 7a 30 2d 39 5f 2e 2d | 5d 2b 40 5b 41 2d 5a 61 |-z0-9_.-|]+@[A-Za|
|00000970| 2d 7a 30 2d 39 5f 2e 2d | 5d 2b 5c 5c 29 3e 22 20 |-z0-9_.-|]+\\)>" |
|00000980| 6e 69 6c 20 6e 69 6c 20 | 28 31 20 66 6f 6e 74 2d |nil nil |(1 font-|
|00000990| 6c 6f 63 6b 2d 72 65 66 | 65 72 65 6e 63 65 2d 66 |lock-ref|erence-f|
|000009a0| 61 63 65 29 20 28 32 20 | 66 6f 6e 74 2d 6c 6f 63 |ace) (2 |font-loc|
|000009b0| 6b 2d 76 61 72 69 61 62 | 6c 65 2d 6e 61 6d 65 2d |k-variab|le-name-|
|000009c0| 66 61 63 65 29 29 29 20 | 28 22 5e 09 5c 5c 2a 20 |face))) |("^.\\* |
|000009d0| 5c 5c 28 5b 5e 20 2c 3a | 28 5b 5c 6e 5d 2b 5c 5c |\\([^ ,:|([\n]+\\|
|000009e0| 29 22 20 28 31 20 66 6f | 6e 74 2d 6c 6f 63 6b 2d |)" (1 fo|nt-lock-|
|000009f0| 66 75 6e 63 74 69 6f 6e | 2d 6e 61 6d 65 2d 66 61 |function|-name-fa|
|00000a00| 63 65 29 20 28 22 5c 5c | 3d 2c 20 5c 5c 28 5b 5e |ce) ("\\|=, \\([^|
|00000a10| 20 2c 3a 28 5b 5c 6e 5d | 2b 5c 5c 29 22 20 6e 69 | ,:([\n]|+\\)" ni|
|00000a20| 6c 20 6e 69 6c 20 28 31 | 20 66 6f 6e 74 2d 6c 6f |l nil (1| font-lo|
|00000a30| 63 6b 2d 66 75 6e 63 74 | 69 6f 6e 2d 6e 61 6d 65 |ck-funct|ion-name|
|00000a40| 2d 66 61 63 65 29 29 29 | 20 28 22 28 5c 5c 28 5b |-face)))| ("(\\([|
|00000a50| 5e 20 2c 3a 29 5c 6e 5d | 2b 5c 5c 29 22 20 28 31 |^ ,:)\n]|+\\)" (1|
|00000a60| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 6b 65 79 77 6f | font-lo|ck-keywo|
|00000a70| 72 64 2d 66 61 63 65 29 | 20 28 22 5c 5c 3d 2c 20 |rd-face)| ("\\=, |
|00000a80| 5c 5c 28 5b 5e 20 2c 3a | 5c 6e 5d 2b 5c 5c 29 22 |\\([^ ,:|\n]+\\)"|
|00000a90| 20 6e 69 6c 20 6e 69 6c | 20 28 31 20 66 6f 6e 74 | nil nil| (1 font|
|00000aa0| 2d 6c 6f 63 6b 2d 6b 65 | 79 77 6f 72 64 2d 66 61 |-lock-ke|yword-fa|
|00000ab0| 63 65 29 29 29 20 28 22 | 5c 5c 5b 21 3f 5c 5c 28 |ce))) ("|\\[!?\\(|
|00000ac0| 5b 5e 5d 5c 6e 5d 2b 5c | 5c 29 5c 5c 5d 5c 5c 28 |[^]\n]+\|\)\\]\\(|
|00000ad0| 3a 5c 5c 7c 20 28 5c 5c | 29 22 20 28 31 20 66 6f |:\\| (\\|)" (1 fo|
|00000ae0| 6e 74 2d 6c 6f 63 6b 2d | 76 61 72 69 61 62 6c 65 |nt-lock-|variable|
|00000af0| 2d 6e 61 6d 65 2d 66 61 | 63 65 29 29 20 28 22 5e |-name-fa|ce)) ("^|
|00000b00| 09 5c 5c 28 46 72 6f 6d | 5c 5c 7c 52 65 70 6f 72 |.\\(From|\\|Repor|
|00000b10| 74 65 64 20 62 79 5c 5c | 29 22 20 31 20 66 6f 6e |ted by\\|)" 1 fon|
|00000b20| 74 2d 6c 6f 63 6b 2d 63 | 6f 6d 6d 65 6e 74 2d 66 |t-lock-c|omment-f|
|00000b30| 61 63 65 29 29 20 28 23 | 24 20 2e 20 32 32 32 39 |ace)) (#|$ . 2229|
|00000b40| 29 29 0a 28 70 75 74 20 | 27 63 68 61 6e 67 65 2d |)).(put |'change-|
|00000b50| 6c 6f 67 2d 6d 6f 64 65 | 20 27 66 6f 6e 74 2d 6c |log-mode| 'font-l|
|00000b60| 6f 63 6b 2d 64 65 66 61 | 75 6c 74 73 20 27 28 63 |ock-defa|ults '(c|
|00000b70| 68 61 6e 67 65 2d 6c 6f | 67 2d 66 6f 6e 74 2d 6c |hange-lo|g-font-l|
|00000b80| 6f 63 6b 2d 6b 65 79 77 | 6f 72 64 73 20 74 29 29 |ock-keyw|ords t))|
|00000b90| 0a 23 40 33 35 20 4b 65 | 79 6d 61 70 20 66 6f 72 |.#@35 Ke|ymap for|
|00000ba0| 20 43 68 61 6e 67 65 20 | 4c 6f 67 20 6d 61 6a 6f | Change |Log majo|
|00000bb0| 72 20 6d 6f 64 65 2e 1f | 0a 28 64 65 66 76 61 72 |r mode..|.(defvar|
|00000bc0| 20 63 68 61 6e 67 65 2d | 6c 6f 67 2d 6d 6f 64 65 | change-|log-mode|
|00000bd0| 2d 6d 61 70 20 6e 69 6c | 20 28 23 24 20 2e 20 32 |-map nil| (#$ . 2|
|00000be0| 39 36 36 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |966)).(b|yte-code|
|00000bf0| 20 22 08 ac 8f c1 20 10 | c2 08 c3 c4 23 88 c2 08 | ".... .|....#...|
|00000c00| c5 c6 23 88 c1 87 22 20 | 5b 63 68 61 6e 67 65 2d |..#..." |[change-|
|00000c10| 6c 6f 67 2d 6d 6f 64 65 | 2d 6d 61 70 20 6d 61 6b |log-mode|-map mak|
|00000c20| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|00000c30| 64 65 66 69 6e 65 2d 6b | 65 79 20 22 03 03 22 20 |define-k|ey ".." |
|00000c40| 63 68 61 6e 67 65 2d 6c | 6f 67 2d 65 78 69 74 20 |change-l|og-exit |
|00000c50| 22 03 0b 22 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |".." cha|nge-log-|
|00000c60| 63 61 6e 63 65 6c 5d 20 | 34 29 0a 23 40 31 34 39 |cancel] |4).#@149|
|00000c70| 20 54 69 6d 65 20 7a 6f | 6e 65 20 75 73 65 64 20 | Time zo|ne used |
|00000c80| 66 6f 72 20 63 61 6c 63 | 75 6c 61 74 69 6e 67 20 |for calc|ulating |
|00000c90| 63 68 61 6e 67 65 20 6c | 6f 67 20 74 69 6d 65 20 |change l|og time |
|00000ca0| 73 74 61 6d 70 73 2e 0a | 49 74 20 74 61 6b 65 73 |stamps..|It takes|
|00000cb0| 20 74 68 65 20 73 61 6d | 65 20 66 6f 72 6d 61 74 | the sam|e format|
|00000cc0| 20 61 73 20 74 68 65 20 | 54 5a 20 61 72 67 75 6d | as the |TZ argum|
|00000cd0| 65 6e 74 20 6f 66 20 60 | 73 65 74 2d 74 69 6d 65 |ent of `|set-time|
|00000ce0| 2d 7a 6f 6e 65 2d 72 75 | 6c 65 27 2e 0a 49 66 20 |-zone-ru|le'..If |
|00000cf0| 6e 69 6c 2c 20 75 73 65 | 20 6c 6f 63 61 6c 20 74 |nil, use| local t|
|00000d00| 69 6d 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 63 68 |ime...(d|efvar ch|
|00000d10| 61 6e 67 65 2d 6c 6f 67 | 2d 74 69 6d 65 2d 7a 6f |ange-log|-time-zo|
|00000d20| 6e 65 2d 72 75 6c 65 20 | 6e 69 6c 20 28 23 24 20 |ne-rule |nil (#$ |
|00000d30| 2e 20 33 31 38 35 29 29 | 0a 28 64 65 66 61 6c 69 |. 3185))|.(defali|
|00000d40| 61 73 20 27 69 73 6f 38 | 36 30 31 2d 74 69 6d 65 |as 'iso8|601-time|
|00000d50| 2d 7a 6f 6e 65 20 23 5b | 28 74 69 6d 65 29 20 22 |-zone #[|(time) "|
|00000d60| c0 09 21 40 ae 81 c2 89 | 1b c2 57 ab 83 c4 aa 81 |..!@....|..W.....|
|00000d70| c5 1e 06 c7 0b 21 89 1e | 08 c9 a6 1e 5c 6e 0e 08 |.....!..|....\n..|
|00000d80| c9 a5 89 1e 0b c9 a6 1e | 0c 0e 0b c9 a5 1e 0d ce |........|........|
|00000d90| 0e 5c 6e c2 55 ac 83 cf | aa 8a 0e 0c c2 55 ac 83 |.\n.U...|.....U..|
|00000da0| d0 aa 81 d1 0e 06 0e 0d | 0e 0c 0e 5c 6e 25 2e 07 |........|...\n%..|
|00000db0| 87 22 20 5b 63 75 72 72 | 65 6e 74 2d 74 69 6d 65 |." [curr|ent-time|
|00000dc0| 2d 7a 6f 6e 65 20 74 69 | 6d 65 20 30 20 75 74 63 |-zone ti|me 0 utc|
|00000dd0| 2d 6f 66 66 73 65 74 20 | 3f 5c 2d 20 3f 5c 2b 20 |-offset |?\- ?\+ |
|00000de0| 73 69 67 6e 20 61 62 73 | 20 73 65 63 20 36 30 20 |sign abs| sec 60 |
|00000df0| 73 73 20 6d 69 6e 20 6d | 6d 20 68 68 20 66 6f 72 |ss min m|m hh for|
|00000e00| 6d 61 74 20 22 25 63 25 | 30 32 64 3a 25 30 32 64 |mat "%c%|02d:%02d|
|00000e10| 3a 25 30 32 64 22 20 22 | 25 63 25 30 32 64 3a 25 |:%02d" "|%c%02d:%|
|00000e20| 30 32 64 22 20 22 25 63 | 25 30 32 64 22 5d 20 37 |02d" "%c|%02d"] 7|
|00000e30| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 73 |]).(defa|lias 'is|
|00000e40| 6f 38 36 30 31 2d 74 69 | 6d 65 2d 73 74 72 69 6e |o8601-ti|me-strin|
|00000e50| 67 20 23 5b 6e 69 6c 20 | 22 08 ab 97 c1 c2 21 c3 |g #[nil |".....!.|
|00000e60| 20 1c 1d c6 8e c7 08 21 | 88 c8 c9 0c 5c 22 ca 0c | ......!|....\"..|
|00000e70| 21 50 2b 87 c8 cb 21 87 | 22 20 5b 63 68 61 6e 67 |!P+...!.|" [chang|
|00000e80| 65 2d 6c 6f 67 2d 74 69 | 6d 65 2d 7a 6f 6e 65 2d |e-log-ti|me-zone-|
|00000e90| 72 75 6c 65 20 67 65 74 | 65 6e 76 20 22 54 5a 22 |rule get|env "TZ"|
|00000ea0| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 20 6e 6f | current|-time no|
|00000eb0| 77 20 74 7a 20 28 28 73 | 65 74 2d 74 69 6d 65 2d |w tz ((s|et-time-|
|00000ec0| 7a 6f 6e 65 2d 72 75 6c | 65 20 74 7a 29 29 20 73 |zone-rul|e tz)) s|
|00000ed0| 65 74 2d 74 69 6d 65 2d | 7a 6f 6e 65 2d 72 75 6c |et-time-|zone-rul|
|00000ee0| 65 20 66 6f 72 6d 61 74 | 2d 74 69 6d 65 2d 73 74 |e format|-time-st|
|00000ef0| 72 69 6e 67 20 22 25 59 | 2d 25 6d 2d 25 64 20 22 |ring "%Y|-%m-%d "|
|00000f00| 20 69 73 6f 38 36 30 31 | 2d 74 69 6d 65 2d 7a 6f | iso8601|-time-zo|
|00000f10| 6e 65 20 22 25 59 2d 25 | 6d 2d 25 64 22 5d 20 33 |ne "%Y-%|m-%d"] 3|
|00000f20| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 68 |]).(defa|lias 'ch|
|00000f30| 61 6e 67 65 2d 6c 6f 67 | 2d 6e 61 6d 65 20 23 5b |ange-log|-name #[|
|00000f40| 6e 69 6c 20 22 08 ae 88 | 09 c2 61 ab 82 c3 87 c4 |nil "...|..a.....|
|00000f50| 87 22 20 5b 63 68 61 6e | 67 65 2d 6c 6f 67 2d 64 |." [chan|ge-log-d|
|00000f60| 65 66 61 75 6c 74 2d 6e | 61 6d 65 20 73 79 73 74 |efault-n|ame syst|
|00000f70| 65 6d 2d 74 79 70 65 20 | 76 61 78 2d 76 6d 73 20 |em-type |vax-vms |
|00000f80| 22 24 43 48 41 4e 47 45 | 5f 4c 4f 47 24 2e 54 58 |"$CHANGE|_LOG$.TX|
|00000f90| 54 22 20 22 43 68 61 6e | 67 65 4c 6f 67 22 5d 20 |T" "Chan|geLog"] |
|00000fa0| 32 5d 29 0a 23 40 33 31 | 20 50 72 6f 6d 70 74 20 |2]).#@31| Prompt |
|00000fb0| 66 6f 72 20 61 20 63 68 | 61 6e 67 65 20 6c 6f 67 |for a ch|ange log|
|00000fc0| 20 6e 61 6d 65 2e 1f 0a | 28 64 65 66 61 6c 69 61 | name...|(defalia|
|00000fd0| 73 20 27 70 72 6f 6d 70 | 74 2d 66 6f 72 2d 63 68 |s 'promp|t-for-ch|
|00000fe0| 61 6e 67 65 2d 6c 6f 67 | 2d 6e 61 6d 65 20 23 5b |ange-log|-name #[|
|00000ff0| 6e 69 6c 20 22 c0 20 19 | c2 c3 c4 c5 09 21 09 c6 |nil ". .|.....!..|
|00001000| c7 09 21 25 21 1e 08 c7 | 0e 08 21 c9 98 ab 89 c2 |..!%!...|..!.....|
|00001010| c7 09 21 0e 08 5c 22 aa | 93 ca 0e 08 21 ab 8b c2 |..!..\".|....!...|
|00001020| c7 09 21 cb 0e 08 21 5c | 22 aa 82 0e 08 2a 87 22 |..!...!\|"....*."|
|00001030| 20 5b 66 69 6e 64 2d 63 | 68 61 6e 67 65 2d 6c 6f | [find-c|hange-lo|
|00001040| 67 20 64 65 66 61 75 6c | 74 20 65 78 70 61 6e 64 |g defaul|t expand|
|00001050| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 72 65 61 64 2d |-file-na|me read-|
|00001060| 66 69 6c 65 2d 6e 61 6d | 65 20 22 4c 6f 67 20 66 |file-nam|e "Log f|
|00001070| 69 6c 65 3a 20 22 20 66 | 69 6c 65 2d 6e 61 6d 65 |ile: " f|ile-name|
|00001080| 2d 64 69 72 65 63 74 6f | 72 79 20 6e 69 6c 20 66 |-directo|ry nil f|
|00001090| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|000010a0| 63 74 6f 72 79 20 6e 61 | 6d 65 20 22 22 20 66 69 |ctory na|me "" fi|
|000010b0| 6c 65 2d 64 69 72 65 63 | 74 6f 72 79 2d 70 20 66 |le-direc|tory-p f|
|000010c0| 69 6c 65 2d 6e 61 6d 65 | 2d 61 73 2d 64 69 72 65 |ile-name|-as-dire|
|000010d0| 63 74 6f 72 79 5d 20 38 | 20 28 23 24 20 2e 20 34 |ctory] 8| (#$ . 4|
|000010e0| 30 30 39 29 5d 29 0a 23 | 40 36 33 32 20 46 69 6e |009)]).#|@632 Fin|
|000010f0| 64 20 61 20 63 68 61 6e | 67 65 20 6c 6f 67 20 66 |d a chan|ge log f|
|00001100| 69 6c 65 20 66 6f 72 20 | 5c 5b 61 64 64 2d 63 68 |ile for |\[add-ch|
|00001110| 61 6e 67 65 2d 6c 6f 67 | 2d 65 6e 74 72 79 5d 20 |ange-log|-entry] |
|00001120| 61 6e 64 20 72 65 74 75 | 72 6e 20 74 68 65 20 6e |and retu|rn the n|
|00001130| 61 6d 65 2e 0a 0a 4f 70 | 74 69 6f 6e 61 6c 20 61 |ame...Op|tional a|
|00001140| 72 67 20 46 49 4c 45 2d | 4e 41 4d 45 20 73 70 65 |rg FILE-|NAME spe|
|00001150| 63 69 66 69 65 73 20 74 | 68 65 20 66 69 6c 65 20 |cifies t|he file |
|00001160| 74 6f 20 75 73 65 2e 0a | 49 66 20 46 49 4c 45 2d |to use..|If FILE-|
|00001170| 4e 41 4d 45 20 69 73 20 | 6e 69 6c 2c 20 75 73 65 |NAME is |nil, use|
|00001180| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 60 63 | the val|ue of `c|
|00001190| 68 61 6e 67 65 2d 6c 6f | 67 2d 64 65 66 61 75 6c |hange-lo|g-defaul|
|000011a0| 74 2d 6e 61 6d 65 27 2e | 0a 49 66 20 27 63 68 61 |t-name'.|.If 'cha|
|000011b0| 6e 67 65 2d 6c 6f 67 2d | 64 65 66 61 75 6c 74 2d |nge-log-|default-|
|000011c0| 6e 61 6d 65 27 20 69 73 | 20 6e 69 6c 2c 20 62 65 |name' is| nil, be|
|000011d0| 68 61 76 65 20 61 73 20 | 74 68 6f 75 67 68 20 69 |have as |though i|
|000011e0| 74 20 77 65 72 65 20 27 | 43 68 61 6e 67 65 4c 6f |t were '|ChangeLo|
|000011f0| 67 27 0a 28 6f 72 20 77 | 68 61 74 65 76 65 72 20 |g'.(or w|hatever |
|00001200| 77 65 20 75 73 65 20 6f | 6e 20 74 68 69 73 20 6f |we use o|n this o|
|00001210| 70 65 72 61 74 69 6e 67 | 20 73 79 73 74 65 6d 29 |perating| system)|
|00001220| 2e 0a 0a 49 66 20 27 63 | 68 61 6e 67 65 2d 6c 6f |...If 'c|hange-lo|
|00001230| 67 2d 64 65 66 61 75 6c | 74 2d 6e 61 6d 65 27 20 |g-defaul|t-name' |
|00001240| 63 6f 6e 74 61 69 6e 73 | 20 61 20 6c 65 61 64 69 |contains| a leadi|
|00001250| 6e 67 20 64 69 72 65 63 | 74 6f 72 79 20 63 6f 6d |ng direc|tory com|
|00001260| 70 6f 6e 65 6e 74 2c 20 | 74 68 65 6e 0a 73 69 6d |ponent, |then.sim|
|00001270| 70 6c 79 20 66 69 6e 64 | 20 69 74 20 69 6e 20 74 |ply find| it in t|
|00001280| 68 65 20 63 75 72 72 65 | 6e 74 20 64 69 72 65 63 |he curre|nt direc|
|00001290| 74 6f 72 79 2e 20 20 4f | 74 68 65 72 77 69 73 65 |tory.  O|therwise|
|000012a0| 2c 20 73 65 61 72 63 68 | 20 69 6e 20 74 68 65 20 |, search| in the |
|000012b0| 63 75 72 72 65 6e 74 20 | 0a 64 69 72 65 63 74 6f |current |.directo|
|000012c0| 72 79 20 61 6e 64 20 69 | 74 73 20 73 75 63 63 65 |ry and i|ts succe|
|000012d0| 73 73 69 76 65 20 70 61 | 72 65 6e 74 73 20 66 6f |ssive pa|rents fo|
|000012e0| 72 20 61 20 66 69 6c 65 | 20 73 6f 20 6e 61 6d 65 |r a file| so name|
|000012f0| 64 2e 0a 0a 4f 6e 63 65 | 20 61 20 66 69 6c 65 20 |d...Once| a file |
|00001300| 69 73 20 66 6f 75 6e 64 | 2c 20 60 63 68 61 6e 67 |is found|, `chang|
|00001310| 65 2d 6c 6f 67 2d 64 65 | 66 61 75 6c 74 2d 6e 61 |e-log-de|fault-na|
|00001320| 6d 65 27 20 69 73 20 73 | 65 74 20 6c 6f 63 61 6c |me' is s|et local|
|00001330| 6c 79 20 69 6e 20 74 68 | 65 0a 63 75 72 72 65 6e |ly in th|e.curren|
|00001340| 74 20 62 75 66 66 65 72 | 20 74 6f 20 74 68 65 20 |t buffer| to the |
|00001350| 63 6f 6d 70 6c 65 74 65 | 20 66 69 6c 65 20 6e 61 |complete| file na|
|00001360| 6d 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |me...(de|falias '|
|00001370| 66 69 6e 64 2d 63 68 61 | 6e 67 65 2d 6c 6f 67 20 |find-cha|nge-log |
|00001380| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 66 69 6c |#[(&opti|onal fil|
|00001390| 65 2d 6e 61 6d 65 29 20 | 22 08 ac ed 09 ad 86 c2 |e-name) |".......|
|000013a0| 09 21 ad 81 09 89 10 ac | e0 0b ab 87 c2 c4 0b 21 |.!......|.......!|
|000013b0| 21 ae 81 0d 10 c6 08 21 | ab 86 c7 c8 20 08 5c 22 |!......!|.... .\"|
|000013c0| 10 c4 08 21 10 c7 08 21 | 89 10 c9 1e 5c 6e 1e 0b |...!...!|....\n..|
|000013d0| cc 0e 0b 21 ac a5 cd 0e | 0b 21 ac 9f c2 ce c2 0e |...!....|.!......|
|000013e0| 0b 21 21 21 16 5c 6e c2 | 0e 0b 21 0e 5c 6e 98 ac |.!!!.\n.|..!.\n..|
|000013f0| 8c c7 cf c8 20 21 0e 5c | 6e 5c 22 16 0b aa 55 cc |.... !.\|n\"...U.|
|00001400| 0e 0b 21 ac 86 cd 0e 0b | 21 ab 83 0e 0b 10 2a d0 |..!.....|!.....*.|
|00001410| c1 21 08 4c 88 08 87 22 | 20 5b 66 69 6c 65 2d 6e |.!.L..."| [file-n|
|00001420| 61 6d 65 20 63 68 61 6e | 67 65 2d 6c 6f 67 2d 64 |ame chan|ge-log-d|
|00001430| 65 66 61 75 6c 74 2d 6e | 61 6d 65 20 66 69 6c 65 |efault-n|ame file|
|00001440| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00001450| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00001460| 20 66 69 6c 65 2d 63 68 | 61 73 65 2d 6c 69 6e 6b | file-ch|ase-link|
|00001470| 73 20 64 65 66 61 75 6c | 74 2d 64 69 72 65 63 74 |s defaul|t-direct|
|00001480| 6f 72 79 20 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |ory file|-directo|
|00001490| 72 79 2d 70 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ry-p exp|and-file|
|000014a0| 2d 6e 61 6d 65 20 63 68 | 61 6e 67 65 2d 6c 6f 67 |-name ch|ange-log|
|000014b0| 2d 6e 61 6d 65 20 6e 69 | 6c 20 70 61 72 65 6e 74 |-name ni|l parent|
|000014c0| 2d 64 69 72 20 66 69 6c | 65 31 20 67 65 74 2d 66 |-dir fil|e1 get-f|
|000014d0| 69 6c 65 2d 62 75 66 66 | 65 72 20 66 69 6c 65 2d |ile-buff|er file-|
|000014e0| 65 78 69 73 74 73 2d 70 | 20 64 69 72 65 63 74 6f |exists-p| directo|
|000014f0| 72 79 2d 66 69 6c 65 2d | 6e 61 6d 65 20 66 69 6c |ry-file-|name fil|
|00001500| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|00001510| 6f 72 79 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ory make|-local-v|
|00001520| 61 72 69 61 62 6c 65 5d | 20 35 20 28 23 24 20 2e |ariable]| 5 (#$ .|
|00001530| 20 34 33 33 33 29 5d 29 | 0a 23 40 34 38 35 20 46 | 4333)])|.#@485 F|
|00001540| 69 6e 64 20 63 68 61 6e | 67 65 20 6c 6f 67 20 66 |ind chan|ge log f|
|00001550| 69 6c 65 20 61 6e 64 20 | 61 64 64 20 61 6e 20 65 |ile and |add an e|
|00001560| 6e 74 72 79 20 66 6f 72 | 20 74 6f 64 61 79 2e 0a |ntry for| today..|
|00001570| 4f 70 74 69 6f 6e 61 6c | 20 61 72 67 20 28 69 6e |Optional| arg (in|
|00001580| 74 65 72 61 63 74 69 76 | 65 20 70 72 65 66 69 78 |teractiv|e prefix|
|00001590| 29 20 6e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |) non-ni|l means |
|000015a0| 70 72 6f 6d 70 74 20 66 | 6f 72 20 75 73 65 72 20 |prompt f|or user |
|000015b0| 6e 61 6d 65 20 61 6e 64 | 20 73 69 74 65 2e 0a 53 |name and| site..S|
|000015c0| 65 63 6f 6e 64 20 61 72 | 67 20 69 73 20 66 69 6c |econd ar|g is fil|
|000015d0| 65 20 6e 61 6d 65 20 6f | 66 20 63 68 61 6e 67 65 |e name o|f change|
|000015e0| 20 6c 6f 67 2e 20 20 49 | 66 20 6e 69 6c 2c 20 75 | log.  I|f nil, u|
|000015f0| 73 65 73 20 60 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |ses `cha|nge-log-|
|00001600| 64 65 66 61 75 6c 74 2d | 6e 61 6d 65 27 2e 0a 54 |default-|name'..T|
|00001610| 68 69 72 64 20 61 72 67 | 20 4f 54 48 45 52 2d 57 |hird arg| OTHER-W|
|00001620| 49 4e 44 4f 57 20 6e 6f | 6e 2d 6e 69 6c 20 6d 65 |INDOW no|n-nil me|
|00001630| 61 6e 73 20 76 69 73 69 | 74 20 69 6e 20 6f 74 68 |ans visi|t in oth|
|00001640| 65 72 20 77 69 6e 64 6f | 77 2e 0a 46 6f 75 72 74 |er windo|w..Fourt|
|00001650| 68 20 61 72 67 20 4e 45 | 57 2d 45 4e 54 52 59 20 |h arg NE|W-ENTRY |
|00001660| 6e 6f 6e 2d 6e 69 6c 20 | 6d 65 61 6e 73 20 61 6c |non-nil |means al|
|00001670| 77 61 79 73 20 63 72 65 | 61 74 65 20 61 20 6e 65 |ways cre|ate a ne|
|00001680| 77 20 65 6e 74 72 79 20 | 61 74 20 74 68 65 20 66 |w entry |at the f|
|00001690| 72 6f 6e 74 3b 0a 6e 65 | 76 65 72 20 61 70 70 65 |ront;.ne|ver appe|
|000016a0| 6e 64 20 74 6f 20 61 6e | 20 65 78 69 73 74 69 6e |nd to an| existin|
|000016b0| 67 20 65 6e 74 72 79 2e | 20 20 54 6f 64 61 79 27 |g entry.|  Today'|
|000016c0| 73 20 64 61 74 65 20 69 | 73 20 63 61 6c 63 75 6c |s date i|s calcul|
|000016d0| 61 74 65 64 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |ated acc|ording t|
|000016e0| 6f 0a 60 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 74 69 |o.`chang|e-log-ti|
|000016f0| 6d 65 2d 7a 6f 6e 65 2d | 72 75 6c 65 27 20 69 66 |me-zone-|rule' if|
|00001700| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 6f 74 68 65 72 77 | non-nil|, otherw|
|00001710| 69 73 65 20 69 6e 20 6c | 6f 63 61 6c 20 74 69 6d |ise in l|ocal tim|
|00001720| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |e...(def|alias 'a|
|00001730| 64 64 2d 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 65 6e |dd-chang|e-log-en|
|00001740| 74 72 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |try #[(&|optional|
|00001750| 20 77 68 6f 61 6d 69 20 | 66 69 6c 65 2d 6e 61 6d | whoami |file-nam|
|00001760| 65 20 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 6e |e other-|window n|
|00001770| 65 77 2d 65 6e 74 72 79 | 29 20 22 08 ac 83 c1 20 |ew-entry|) ".... |
|00001780| 10 5c 6e ac 83 c3 20 12 | 0c ab 8a c5 c6 08 5c 22 |.\n... .|......\"|
|00001790| 10 c5 c7 5c 6e 5c 22 12 | 0e 08 ae 81 c9 20 ca 89 |...\n\".|..... ..|
|000017a0| 1e 0b 1e 0c 1e 0d ce cf | 0e 10 21 21 16 10 0e 11 |........|..!!....|
|000017b0| ab a3 0e 11 0e 10 98 ac | 9c d2 d3 d4 d5 0e 10 21 |........|.......!|
|000017c0| 21 50 0e 11 5c 22 ab 88 | 0e 11 d6 95 ca 4f aa 84 |!P..\"..|.....O..|
|000017d0| d7 0e 11 21 16 0b d8 20 | 88 0e 19 ab 8e 0e 10 0e |...!... |........|
|000017e0| 11 6b ac 87 da 0e 10 21 | 88 aa 85 db 0e 10 21 88 |.k.....!|......!.|
|000017f0| 0e 1c dd 61 ac 83 dd 20 | 88 de 20 88 65 62 88 0e |...a... |.. .eb..|
|00001800| 1f 20 e0 08 e1 5c 6e e2 | b0 06 1e 23 e4 d4 0e 23 |. ...\n.|...#...#|
|00001810| 21 21 ab 85 e5 79 88 aa | 86 0e 23 e6 b1 02 88 29 |!!...y..|..#....)|
|00001820| e4 e7 21 ab 86 e8 ca 77 | 88 aa 84 e9 e5 21 88 60 |..!....w|.....!.`|
|00001830| 16 0c 65 62 88 ea eb 0e | 0c ec 23 ab 8a 0e 0b ab |..eb....|..#.....|
|00001840| f6 0e 0b 63 88 aa f0 0e | 23 ac b9 ca 1e 2d ea d4 |...c....|#....-..|
|00001850| ee 0e 0b 50 21 ef 50 0e | 0c ec 23 29 ab a6 ea f0 |...P!.P.|..#)....|
|00001860| 21 88 d6 94 62 88 6d ac | 90 e4 f1 21 ab 8b 60 8a |!...b.m.|...!..`.|
|00001870| e5 79 88 60 29 7c 88 aa | 6d e6 63 88 f2 79 88 f3 |.y.`)|..|m.c..y..|
|00001880| 20 88 aa b3 e5 79 88 e4 | f4 21 ab 85 e5 79 88 aa | ....y..|.!...y..|
|00001890| 76 6d ac 90 e4 f1 21 ab | 8b 60 8a e5 79 88 60 29 |vm....!.|.`..y.`)|
|000018a0| 7c 88 aa 6d f5 63 88 f2 | 79 88 0e 36 6a 88 ee 0e ||..m.c..|y..6j...|
|000018b0| 0b ae 81 f7 b1 02 88 0e | 0d ab 99 de 20 88 8a d6 |........|.... ...|
|000018c0| 79 88 e4 f8 21 29 ab 83 | f7 aa 81 f9 fa 0e 0d fb |y...!)..|........|
|000018d0| b1 04 aa 8d 8a d6 79 88 | e4 fc 21 29 3f ad 82 fd |......y.|..!)?...|
|000018e0| 63 2b 87 22 20 5b 61 64 | 64 2d 6c 6f 67 2d 66 75 |c+." [ad|d-log-fu|
|000018f0| 6c 6c 2d 6e 61 6d 65 20 | 75 73 65 72 2d 66 75 6c |ll-name |user-ful|
|00001900| 6c 2d 6e 61 6d 65 20 61 | 64 64 2d 6c 6f 67 2d 6d |l-name a|dd-log-m|
|00001910| 61 69 6c 69 6e 67 2d 61 | 64 64 72 65 73 73 20 75 |ailing-a|ddress u|
|00001920| 73 65 72 2d 6d 61 69 6c | 2d 61 64 64 72 65 73 73 |ser-mail|-address|
|00001930| 20 77 68 6f 61 6d 69 20 | 72 65 61 64 2d 73 74 72 | whoami |read-str|
|00001940| 69 6e 67 20 22 46 75 6c | 6c 20 6e 61 6d 65 3a 20 |ing "Ful|l name: |
|00001950| 22 20 22 4d 61 69 6c 69 | 6e 67 20 61 64 64 72 65 |" "Maili|ng addre|
|00001960| 73 73 3a 20 22 20 61 64 | 64 2d 6c 6f 67 2d 63 75 |ss: " ad|d-log-cu|
|00001970| 72 72 65 6e 74 2d 64 65 | 66 75 6e 2d 66 75 6e 63 |rrent-de|fun-func|
|00001980| 74 69 6f 6e 20 61 64 64 | 2d 6c 6f 67 2d 63 75 72 |tion add|-log-cur|
|00001990| 72 65 6e 74 2d 64 65 66 | 75 6e 20 6e 69 6c 20 65 |rent-def|un nil e|
|000019a0| 6e 74 72 79 20 70 61 72 | 61 67 72 61 70 68 2d 65 |ntry par|agraph-e|
|000019b0| 6e 64 20 64 65 66 75 6e | 20 65 78 70 61 6e 64 2d |nd defun| expand-|
|000019c0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6e 64 2d 63 |file-nam|e find-c|
|000019d0| 68 61 6e 67 65 2d 6c 6f | 67 20 66 69 6c 65 2d 6e |hange-lo|g file-n|
|000019e0| 61 6d 65 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ame buff|er-file-|
|000019f0| 6e 61 6d 65 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |name str|ing-matc|
|00001a00| 68 20 22 5e 22 20 72 65 | 67 65 78 70 2d 71 75 6f |h "^" re|gexp-quo|
|00001a10| 74 65 20 66 69 6c 65 2d | 6e 61 6d 65 2d 64 69 72 |te file-|name-dir|
|00001a20| 65 63 74 6f 72 79 20 30 | 20 66 69 6c 65 2d 6e 61 |ectory 0| file-na|
|00001a30| 6d 65 2d 6e 6f 6e 64 69 | 72 65 63 74 6f 72 79 20 |me-nondi|rectory |
|00001a40| 70 75 73 68 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 |push-win|dow-conf|
|00001a50| 69 67 75 72 61 74 69 6f | 6e 20 6f 74 68 65 72 2d |iguratio|n other-|
|00001a60| 77 69 6e 64 6f 77 20 66 | 69 6e 64 2d 66 69 6c 65 |window f|ind-file|
|00001a70| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 66 69 |-other-w|indow fi|
|00001a80| 6e 64 2d 66 69 6c 65 20 | 6d 61 6a 6f 72 2d 6d 6f |nd-file |major-mo|
|00001a90| 64 65 20 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 6d 6f |de chang|e-log-mo|
|00001aa0| 64 65 20 75 6e 64 6f 2d | 62 6f 75 6e 64 61 72 79 |de undo-|boundary|
|00001ab0| 20 61 64 64 2d 6c 6f 67 | 2d 74 69 6d 65 2d 66 6f | add-log|-time-fo|
|00001ac0| 72 6d 61 74 20 22 20 20 | 22 20 22 20 20 3c 22 20 |rmat "  |" "  <" |
|00001ad0| 22 3e 22 20 6e 65 77 2d | 65 6e 74 72 79 20 6c 6f |">" new-|entry lo|
|00001ae0| 6f 6b 69 6e 67 2d 61 74 | 20 31 20 22 5c 6e 5c 6e |oking-at| 1 "\n\n|
|00001af0| 22 20 22 5c 6e 2a 5b 5e | 5c 6e 2a 20 09 5d 22 20 |" "\n*[^|\n* .]" |
|00001b00| 22 5c 6e 22 20 66 6f 72 | 77 61 72 64 2d 70 61 72 |"\n" for|ward-par|
|00001b10| 61 67 72 61 70 68 20 72 | 65 2d 73 65 61 72 63 68 |agraph r|e-search|
|00001b20| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5c 5c 73 20 2a |-forward| "^\\s *|
|00001b30| 5c 5c 2a 5c 5c 73 20 2a | 24 22 20 74 20 63 61 73 |\\*\\s *|$" t cas|
|00001b40| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 22 2a |e-fold-s|earch "*|
|00001b50| 20 22 20 22 5c 5c 28 5c | 5c 73 20 5c 5c 7c 5b 28 | " "\\(\|\s \\|[(|
|00001b60| 29 2c 3a 5d 5c 5c 29 22 | 20 22 5e 5c 5c 73 20 2a |),:]\\)"| "^\\s *|
|00001b70| 24 5c 5c 7c 5e 5c 5c 73 | 20 5c 5c 2a 22 20 22 5e |$\\|^\\s| \\*" "^|
|00001b80| 5c 5c 73 20 2a 24 22 20 | 2d 32 20 69 6e 64 65 6e |\\s *$" |-2 inden|
|00001b90| 74 2d 72 65 6c 61 74 69 | 76 65 2d 6d 61 79 62 65 |t-relati|ve-maybe|
|00001ba0| 20 22 5c 5c 73 57 22 20 | 22 5c 6e 5c 6e 5c 6e 22 | "\\sW" |"\n\n\n"|
|00001bb0| 20 6c 65 66 74 2d 6d 61 | 72 67 69 6e 20 22 22 20 | left-ma|rgin "" |
|00001bc0| 22 5c 5c 73 20 2a 24 22 | 20 22 20 22 20 22 28 22 |"\\s *$"| " " "("|
|00001bd0| 20 22 29 3a 20 22 20 22 | 5c 5c 73 20 2a 5c 5c 28 | "): " "|\\s *\\(|
|00001be0| 5c 5c 2a 5c 5c 73 20 2a | 5c 5c 29 3f 24 22 20 22 |\\*\\s *|\\)?$" "|
|00001bf0| 3a 20 22 5d 20 36 20 28 | 23 24 20 2e 20 35 34 33 |: "] 6 (|#$ . 543|
|00001c00| 39 29 20 28 6c 69 73 74 | 20 63 75 72 72 65 6e 74 |9) (list| current|
|00001c10| 2d 70 72 65 66 69 78 2d | 61 72 67 20 28 70 72 6f |-prefix-|arg (pro|
|00001c20| 6d 70 74 2d 66 6f 72 2d | 63 68 61 6e 67 65 2d 6c |mpt-for-|change-l|
|00001c30| 6f 67 2d 6e 61 6d 65 29 | 29 5d 29 0a 23 40 32 32 |og-name)|)]).#@22|
|00001c40| 35 20 46 69 6e 64 20 63 | 68 61 6e 67 65 20 6c 6f |5 Find c|hange lo|
|00001c50| 67 20 66 69 6c 65 20 69 | 6e 20 6f 74 68 65 72 20 |g file i|n other |
|00001c60| 77 69 6e 64 6f 77 20 61 | 6e 64 20 61 64 64 20 61 |window a|nd add a|
|00001c70| 6e 20 65 6e 74 72 79 20 | 66 6f 72 20 74 6f 64 61 |n entry |for toda|
|00001c80| 79 2e 0a 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 20 |y..Optio|nal arg |
|00001c90| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 70 72 65 |(interac|tive pre|
|00001ca0| 66 69 78 29 20 6e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |fix) non|-nil mea|
|00001cb0| 6e 73 20 70 72 6f 6d 70 | 74 20 66 6f 72 20 75 73 |ns promp|t for us|
|00001cc0| 65 72 20 6e 61 6d 65 20 | 61 6e 64 20 73 69 74 65 |er name |and site|
|00001cd0| 2e 0a 53 65 63 6f 6e 64 | 20 61 72 67 20 69 73 20 |..Second| arg is |
|00001ce0| 66 69 6c 65 20 6e 61 6d | 65 20 6f 66 20 63 68 61 |file nam|e of cha|
|00001cf0| 6e 67 65 20 6c 6f 67 2e | 20 20 49 66 20 6e 69 6c |nge log.|  If nil|
|00001d00| 2c 20 75 73 65 73 20 60 | 63 68 61 6e 67 65 2d 6c |, uses `|change-l|
|00001d10| 6f 67 2d 64 65 66 61 75 | 6c 74 2d 6e 61 6d 65 27 |og-defau|lt-name'|
|00001d20| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 64 |...(defa|lias 'ad|
|00001d30| 64 2d 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 65 6e 74 |d-change|-log-ent|
|00001d40| 72 79 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |ry-other|-window |
|00001d50| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 77 68 6f |#[(&opti|onal who|
|00001d60| 61 6d 69 20 66 69 6c 65 | 2d 6e 61 6d 65 29 20 22 |ami file|-name) "|
|00001d70| c0 09 5c 6e c3 23 87 22 | 20 5b 61 64 64 2d 63 68 |..\n.#."| [add-ch|
|00001d80| 61 6e 67 65 2d 6c 6f 67 | 2d 65 6e 74 72 79 20 77 |ange-log|-entry w|
|00001d90| 68 6f 61 6d 69 20 66 69 | 6c 65 2d 6e 61 6d 65 20 |hoami fi|le-name |
|00001da0| 74 5d 20 34 20 28 23 24 | 20 2e 20 37 32 33 34 29 |t] 4 (#$| . 7234)|
|00001db0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ad 84 | (byte-c|ode "...|
|00001dc0| 08 c1 20 44 87 22 20 5b | 63 75 72 72 65 6e 74 2d |.. D." [|current-|
|00001dd0| 70 72 65 66 69 78 2d 61 | 72 67 20 70 72 6f 6d 70 |prefix-a|rg promp|
|00001de0| 74 2d 66 6f 72 2d 63 68 | 61 6e 67 65 2d 6c 6f 67 |t-for-ch|ange-log|
|00001df0| 2d 6e 61 6d 65 5d 20 32 | 29 5d 29 0a 23 40 33 34 |-name] 2|)]).#@34|
|00001e00| 36 20 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |6 Major |mode for|
|00001e10| 20 65 64 69 74 69 6e 67 | 20 63 68 61 6e 67 65 20 | editing| change |
|00001e20| 6c 6f 67 73 3b 20 6c 69 | 6b 65 20 49 6e 64 65 6e |logs; li|ke Inden|
|00001e30| 74 65 64 20 54 65 78 74 | 20 4d 6f 64 65 2e 0a 50 |ted Text| Mode..P|
|00001e40| 72 65 76 65 6e 74 73 20 | 6e 75 6d 65 72 69 63 20 |revents |numeric |
|00001e50| 62 61 63 6b 75 70 73 20 | 61 6e 64 20 73 65 74 73 |backups |and sets|
|00001e60| 20 60 6c 65 66 74 2d 6d | 61 72 67 69 6e 27 20 74 | `left-m|argin' t|
|00001e70| 6f 20 38 20 61 6e 64 20 | 60 66 69 6c 6c 2d 63 6f |o 8 and |`fill-co|
|00001e80| 6c 75 6d 6e 27 20 74 6f | 20 37 34 2e 0a 4e 65 77 |lumn' to| 74..New|
|00001e90| 20 6c 6f 67 20 65 6e 74 | 72 69 65 73 20 61 72 65 | log ent|ries are|
|00001ea0| 20 75 73 75 61 6c 6c 79 | 20 6d 61 64 65 20 77 69 | usually| made wi|
|00001eb0| 74 68 20 5c 5b 61 64 64 | 2d 63 68 61 6e 67 65 2d |th \[add|-change-|
|00001ec0| 6c 6f 67 2d 65 6e 74 72 | 79 5d 20 6f 72 20 5c 5b |log-entr|y] or \[|
|00001ed0| 61 64 64 2d 63 68 61 6e | 67 65 2d 6c 6f 67 2d 65 |add-chan|ge-log-e|
|00001ee0| 6e 74 72 79 2d 6f 74 68 | 65 72 2d 77 69 6e 64 6f |ntry-oth|er-windo|
|00001ef0| 77 5d 2e 0a 45 61 63 68 | 20 65 6e 74 72 79 20 62 |w]..Each| entry b|
|00001f00| 65 68 61 76 65 73 20 61 | 73 20 61 20 70 61 72 61 |ehaves a|s a para|
|00001f10| 67 72 61 70 68 2c 20 61 | 6e 64 20 74 68 65 20 65 |graph, a|nd the e|
|00001f20| 6e 74 72 69 65 73 20 66 | 6f 72 20 6f 6e 65 20 64 |ntries f|or one d|
|00001f30| 61 79 20 61 73 20 61 20 | 70 61 67 65 2e 0a 52 75 |ay as a |page..Ru|
|00001f40| 6e 73 20 60 63 68 61 6e | 67 65 2d 6c 6f 67 2d 6d |ns `chan|ge-log-m|
|00001f50| 6f 64 65 2d 68 6f 6f 6b | 27 2e 1f 0a 28 64 65 66 |ode-hook|'...(def|
|00001f60| 61 6c 69 61 73 20 27 63 | 68 61 6e 67 65 2d 6c 6f |alias 'c|hange-lo|
|00001f70| 67 2d 6d 6f 64 65 20 23 | 5b 6e 69 6c 20 22 c0 20 |g-mode #|[nil ". |
|00001f80| 88 c1 20 88 c2 13 c4 15 | c6 16 07 c8 16 09 ca 16 |.. .....|........|
|00001f90| 0b c6 16 0c cd 0e 0e 21 | 88 cf d0 21 d1 4c 88 cf |.......!|...!.L..|
|00001fa0| d2 21 d3 4c 88 cf d4 21 | d3 4c 88 cf d5 21 d6 4c |.!.L...!|.L...!.L|
|00001fb0| 88 cf d7 21 d8 4c 88 cf | d9 21 da 4c 88 db dc 21 |...!.L..|.!.L...!|
|00001fc0| ab 83 dd 16 1c de df 21 | 87 22 20 5b 6b 69 6c 6c |.......!|." [kill|
|00001fd0| 2d 61 6c 6c 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |-all-loc|al-varia|
|00001fe0| 62 6c 65 73 20 69 6e 64 | 65 6e 74 65 64 2d 74 65 |bles ind|ented-te|
|00001ff0| 78 74 2d 6d 6f 64 65 20 | 63 68 61 6e 67 65 2d 6c |xt-mode |change-l|
|00002000| 6f 67 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |og-mode |major-mo|
|00002010| 64 65 20 22 43 68 61 6e | 67 65 20 4c 6f 67 22 20 |de "Chan|ge Log" |
|00002020| 6d 6f 64 65 2d 6e 61 6d | 65 20 38 20 6c 65 66 74 |mode-nam|e 8 left|
|00002030| 2d 6d 61 72 67 69 6e 20 | 37 34 20 66 69 6c 6c 2d |-margin |74 fill-|
|00002040| 63 6f 6c 75 6d 6e 20 74 | 20 69 6e 64 65 6e 74 2d |column t| indent-|
|00002050| 74 61 62 73 2d 6d 6f 64 | 65 20 74 61 62 2d 77 69 |tabs-mod|e tab-wi|
|00002060| 64 74 68 20 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |dth use-|local-ma|
|00002070| 70 20 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 6d 6f 64 |p change|-log-mod|
|00002080| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |e-map ma|ke-local|
|00002090| 2d 76 61 72 69 61 62 6c | 65 20 66 69 6c 6c 2d 70 |-variabl|e fill-p|
|000020a0| 61 72 61 67 72 61 70 68 | 2d 66 75 6e 63 74 69 6f |aragraph|-functio|
|000020b0| 6e 20 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 66 69 6c |n change|-log-fil|
|000020c0| 6c 2d 70 61 72 61 67 72 | 61 70 68 20 70 61 72 61 |l-paragr|aph para|
|000020d0| 67 72 61 70 68 2d 73 74 | 61 72 74 20 22 5c 5c 73 |graph-st|art "\\s|
|000020e0| 20 2a 24 5c 5c 7c 0c 5c | 5c 7c 5e 5c 5c 3c 22 20 | *$\\|.\|\|^\\<" |
|000020f0| 70 61 72 61 67 72 61 70 | 68 2d 73 65 70 61 72 61 |paragrap|h-separa|
|00002100| 74 65 20 70 61 67 65 2d | 64 65 6c 69 6d 69 74 65 |te page-|delimite|
|00002110| 72 20 22 5e 5c 5c 3c 5c | 5c 7c 5e 0c 22 20 76 65 |r "^\\<\|\|^." ve|
|00002120| 72 73 69 6f 6e 2d 63 6f | 6e 74 72 6f 6c 20 6e 65 |rsion-co|ntrol ne|
|00002130| 76 65 72 20 61 64 61 70 | 74 69 76 65 2d 66 69 6c |ver adap|tive-fil|
|00002140| 6c 2d 72 65 67 65 78 70 | 20 22 5c 5c 73 20 2a 22 |l-regexp| "\\s *"|
|00002150| 20 62 6f 75 6e 64 70 20 | 66 69 6c 6c 61 64 61 70 | boundp |filladap|
|00002160| 74 2d 6d 6f 64 65 20 6e | 69 6c 20 72 75 6e 2d 68 |t-mode n|il run-h|
|00002170| 6f 6f 6b 73 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |ooks cha|nge-log-|
|00002180| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 32 20 28 23 24 |mode-hoo|k] 2 (#$|
|00002190| 20 2e 20 37 36 38 32 29 | 20 6e 69 6c 5d 29 0a 23 | . 7682)| nil]).#|
|000021a0| 40 39 31 20 53 61 76 65 | 20 74 68 65 20 63 68 61 |@91 Save| the cha|
|000021b0| 6e 67 65 2d 6c 6f 67 20 | 62 75 66 66 65 72 2c 20 |nge-log |buffer, |
|000021c0| 61 6e 64 20 72 65 73 74 | 6f 72 65 73 20 74 68 65 |and rest|ores the|
|000021d0| 20 6f 6c 64 20 77 69 6e | 64 6f 77 20 63 6f 6e 66 | old win|dow conf|
|000021e0| 69 67 75 72 61 74 69 6f | 6e 2e 0a 42 75 72 69 65 |iguratio|n..Burie|
|000021f0| 73 20 74 68 65 20 62 75 | 66 66 65 72 2e 1f 0a 28 |s the bu|ffer...(|
|00002200| 64 65 66 61 6c 69 61 73 | 20 27 63 68 61 6e 67 65 |defalias| 'change|
|00002210| 2d 6c 6f 67 2d 65 78 69 | 74 20 23 5b 6e 69 6c 20 |-log-exi|t #[nil |
|00002220| 22 c0 20 88 70 19 c2 20 | 88 c3 09 21 29 87 22 20 |". .p.. |...!)." |
|00002230| 5b 73 61 76 65 2d 62 75 | 66 66 65 72 20 62 75 66 |[save-bu|ffer buf|
|00002240| 20 70 6f 70 2d 77 69 6e | 64 6f 77 2d 63 6f 6e 66 | pop-win|dow-conf|
|00002250| 69 67 75 72 61 74 69 6f | 6e 20 62 75 72 79 2d 62 |iguratio|n bury-b|
|00002260| 75 66 66 65 72 5d 20 32 | 20 28 23 24 20 2e 20 38 |uffer] 2| (#$ . 8|
|00002270| 36 31 32 29 20 6e 69 6c | 5d 29 0a 23 40 31 32 34 |612) nil|]).#@124|
|00002280| 20 43 61 6e 63 65 6c 20 | 74 68 65 20 63 68 61 6e | Cancel |the chan|
|00002290| 67 65 73 20 74 6f 20 63 | 68 61 6e 67 65 2d 6c 6f |ges to c|hange-lo|
|000022a0| 67 20 62 75 66 66 65 72 | 2e 0a 54 68 69 73 20 6b |g buffer|..This k|
|000022b0| 69 6c 6c 73 20 74 68 65 | 20 62 75 66 66 65 72 20 |ills the| buffer |
|000022c0| 77 69 74 68 6f 75 74 20 | 73 61 76 69 6e 67 2c 20 |without |saving, |
|000022d0| 61 6e 64 20 72 65 73 74 | 6f 72 65 73 20 74 68 65 |and rest|ores the|
|000022e0| 20 6f 6c 64 20 77 69 6e | 64 6f 77 0a 20 63 6f 6e | old win|dow. con|
|000022f0| 66 69 67 75 72 61 74 69 | 6f 6e 2e 1f 0a 28 64 65 |figurati|on...(de|
|00002300| 66 61 6c 69 61 73 20 27 | 63 68 61 6e 67 65 2d 6c |falias '|change-l|
|00002310| 6f 67 2d 63 61 6e 63 65 | 6c 20 23 5b 6e 69 6c 20 |og-cance|l #[nil |
|00002320| 22 c0 70 21 88 c1 20 87 | 22 20 5b 6b 69 6c 6c 2d |".p!.. .|" [kill-|
|00002330| 62 75 66 66 65 72 20 70 | 6f 70 2d 77 69 6e 64 6f |buffer p|op-windo|
|00002340| 77 2d 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 5d |w-config|uration]|
|00002350| 20 32 20 28 23 24 20 2e | 20 38 38 33 33 29 20 6e | 2 (#$ .| 8833) n|
|00002360| 69 6c 5d 29 0a 23 40 31 | 30 38 20 46 69 6c 6c 20 |il]).#@1|08 Fill |
|00002370| 74 68 65 20 70 61 72 61 | 67 72 61 70 68 2c 20 62 |the para|graph, b|
|00002380| 75 74 20 70 72 65 73 65 | 72 76 65 20 6f 70 65 6e |ut prese|rve open|
|00002390| 20 70 61 72 65 6e 74 68 | 65 73 65 73 20 61 74 20 | parenth|eses at |
|000023a0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 6c 69 6e |beginnin|g of lin|
|000023b0| 65 73 2e 0a 50 72 65 66 | 69 78 20 61 72 67 20 6d |es..Pref|ix arg m|
|000023c0| 65 61 6e 73 20 6a 75 73 | 74 69 66 79 20 61 73 20 |eans jus|tify as |
|000023d0| 77 65 6c 6c 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |well...(|defalias|
|000023e0| 20 27 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 66 69 6c | 'change|-log-fil|
|000023f0| 6c 2d 70 61 72 61 67 72 | 61 70 68 20 23 5b 28 26 |l-paragr|aph #[(&|
|00002400| 6f 70 74 69 6f 6e 61 6c | 20 6a 75 73 74 69 66 79 |optional| justify|
|00002410| 29 20 22 c0 20 88 60 c1 | 20 88 60 5c 6e c3 50 1a |) ". .`.| .`\n.P.|
|00002420| 1c 1d c6 0c 0d 0e 07 23 | 88 2b c8 87 22 20 5b 66 |.......#|.+.." [f|
|00002430| 6f 72 77 61 72 64 2d 70 | 61 72 61 67 72 61 70 68 |orward-p|aragraph|
|00002440| 20 62 61 63 6b 77 61 72 | 64 2d 70 61 72 61 67 72 | backwar|d-paragr|
|00002450| 61 70 68 20 70 61 72 61 | 67 72 61 70 68 2d 73 74 |aph para|graph-st|
|00002460| 61 72 74 20 22 5c 5c 7c | 5c 5c 73 20 2a 5c 5c 73 |art "\\||\\s *\\s|
|00002470| 28 22 20 62 65 67 20 65 | 6e 64 20 66 69 6c 6c 2d |(" beg e|nd fill-|
|00002480| 72 65 67 69 6f 6e 20 6a | 75 73 74 69 66 79 20 74 |region j|ustify t|
|00002490| 5d 20 34 20 28 23 24 20 | 2e 20 39 30 36 37 29 20 |] 4 (#$ |. 9067) |
|000024a0| 22 50 22 5d 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |"P"]).(c|ustom-de|
|000024b0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000024c0| 61 64 64 2d 6c 6f 67 2d | 63 75 72 72 65 6e 74 2d |add-log-|current-|
|000024d0| 64 65 66 75 6e 2d 68 65 | 61 64 65 72 2d 72 65 67 |defun-he|ader-reg|
|000024e0| 65 78 70 20 27 22 5e 5c | 5c 28 5b 41 2d 5a 5d 5b |exp '"^\|\([A-Z][|
|000024f0| 41 2d 5a 5f 20 5d 2a 5b | 41 2d 5a 5f 5d 5c 5c 7c |A-Z_ ]*[|A-Z_]\\||
|00002500| 5b 2d 5f 61 2d 7a 41 2d | 5a 5d 2b 5c 5c 29 5b 20 |[-_a-zA-|Z]+\\)[ |
|00002510| 09 5d 2a 5b 3a 3d 5d 22 | 20 22 2a 48 65 75 72 69 |.]*[:=]"| "*Heuri|
|00002520| 73 74 69 63 20 72 65 67 | 65 78 70 20 75 73 65 64 |stic reg|exp used|
|00002530| 20 62 79 20 60 61 64 64 | 2d 6c 6f 67 2d 63 75 72 | by `add|-log-cur|
|00002540| 72 65 6e 74 2d 64 65 66 | 75 6e 27 20 66 6f 72 20 |rent-def|un' for |
|00002550| 75 6e 6b 6e 6f 77 6e 20 | 6d 61 6a 6f 72 20 6d 6f |unknown |major mo|
|00002560| 64 65 73 2e 22 20 3a 74 | 79 70 65 20 27 72 65 67 |des." :t|ype 'reg|
|00002570| 65 78 70 20 3a 67 72 6f | 75 70 20 27 63 68 61 6e |exp :gro|up 'chan|
|00002580| 67 65 2d 6c 6f 67 29 0a | 23 40 35 36 20 2a 4d 6f |ge-log).|#@56 *Mo|
|00002590| 64 65 73 20 74 68 61 74 | 20 6c 6f 6f 6b 20 6c 69 |des that| look li|
|000025a0| 6b 65 20 4c 69 73 70 20 | 74 6f 20 60 61 64 64 2d |ke Lisp |to `add-|
|000025b0| 6c 6f 67 2d 63 75 72 72 | 65 6e 74 2d 64 65 66 75 |log-curr|ent-defu|
|000025c0| 6e 27 2e 1f 0a 28 64 65 | 66 76 61 72 20 61 64 64 |n'...(de|fvar add|
|000025d0| 2d 6c 6f 67 2d 6c 69 73 | 70 2d 6c 69 6b 65 2d 6d |-log-lis|p-like-m|
|000025e0| 6f 64 65 73 20 27 28 65 | 6d 61 63 73 2d 6c 69 73 |odes '(e|macs-lis|
|000025f0| 70 2d 6d 6f 64 65 20 6c | 69 73 70 2d 6d 6f 64 65 |p-mode l|isp-mode|
|00002600| 20 73 63 68 65 6d 65 2d | 6d 6f 64 65 20 6c 69 73 | scheme-|mode lis|
|00002610| 70 2d 69 6e 74 65 72 61 | 63 74 69 6f 6e 2d 6d 6f |p-intera|ction-mo|
|00002620| 64 65 29 20 28 23 24 20 | 2e 20 2d 39 36 31 33 29 |de) (#$ |. -9613)|
|00002630| 29 0a 23 40 35 33 20 2a | 4d 6f 64 65 73 20 74 68 |).#@53 *|Modes th|
|00002640| 61 74 20 6c 6f 6f 6b 20 | 6c 69 6b 65 20 43 20 74 |at look |like C t|
|00002650| 6f 20 60 61 64 64 2d 6c | 6f 67 2d 63 75 72 72 65 |o `add-l|og-curre|
|00002660| 6e 74 2d 64 65 66 75 6e | 27 2e 1f 0a 28 64 65 66 |nt-defun|'...(def|
|00002670| 76 61 72 20 61 64 64 2d | 6c 6f 67 2d 63 2d 6c 69 |var add-|log-c-li|
|00002680| 6b 65 2d 6d 6f 64 65 73 | 20 27 28 63 2d 6d 6f 64 |ke-modes| '(c-mod|
|00002690| 65 20 63 2b 2b 2d 6d 6f | 64 65 20 63 2b 2b 2d 63 |e c++-mo|de c++-c|
|000026a0| 2d 6d 6f 64 65 20 6f 62 | 6a 63 2d 6d 6f 64 65 20 |-mode ob|jc-mode |
|000026b0| 6a 61 76 61 2d 6d 6f 64 | 65 29 20 28 23 24 20 2e |java-mod|e) (#$ .|
|000026c0| 20 2d 39 37 38 33 29 29 | 0a 23 40 35 35 20 2a 4d | -9783))|.#@55 *M|
|000026d0| 6f 64 65 73 20 74 68 61 | 74 20 6c 6f 6f 6b 20 6c |odes tha|t look l|
|000026e0| 69 6b 65 20 54 65 58 20 | 74 6f 20 60 61 64 64 2d |ike TeX |to `add-|
|000026f0| 6c 6f 67 2d 63 75 72 72 | 65 6e 74 2d 64 65 66 75 |log-curr|ent-defu|
|00002700| 6e 27 2e 1f 0a 28 64 65 | 66 76 61 72 20 61 64 64 |n'...(de|fvar add|
|00002710| 2d 6c 6f 67 2d 74 65 78 | 2d 6c 69 6b 65 2d 6d 6f |-log-tex|-like-mo|
|00002720| 64 65 73 20 27 28 54 65 | 58 2d 6d 6f 64 65 20 70 |des '(Te|X-mode p|
|00002730| 6c 61 69 6e 2d 54 65 58 | 2d 6d 6f 64 65 20 4c 61 |lain-TeX|-mode La|
|00002740| 54 65 58 2d 6d 6f 64 65 | 20 70 6c 61 69 6e 2d 74 |TeX-mode| plain-t|
|00002750| 65 78 2d 6d 6f 64 65 20 | 6c 61 74 65 78 2d 6d 6f |ex-mode |latex-mo|
|00002760| 64 65 29 20 28 23 24 20 | 2e 20 2d 39 39 33 34 29 |de) (#$ |. -9934)|
|00002770| 29 0a 23 40 34 32 39 20 | 52 65 74 75 72 6e 20 6e |).#@429 |Return n|
|00002780| 61 6d 65 20 6f 66 20 66 | 75 6e 63 74 69 6f 6e 20 |ame of f|unction |
|00002790| 64 65 66 69 6e 69 74 69 | 6f 6e 20 70 6f 69 6e 74 |definiti|on point|
|000027a0| 20 69 73 20 69 6e 2c 20 | 6f 72 20 6e 69 6c 2e 0a | is in, |or nil..|
|000027b0| 0a 55 6e 64 65 72 73 74 | 61 6e 64 73 20 43 2c 20 |.Underst|ands C, |
|000027c0| 4c 69 73 70 2c 20 4c 61 | 54 65 58 20 28 22 66 75 |Lisp, La|TeX ("fu|
|000027d0| 6e 63 74 69 6f 6e 73 22 | 20 61 72 65 20 63 68 61 |nctions"| are cha|
|000027e0| 70 74 65 72 73 2c 20 73 | 65 63 74 69 6f 6e 73 2c |pters, s|ections,|
|000027f0| 20 2e 2e 2e 29 2c 0a 54 | 65 78 69 6e 66 6f 20 28 | ...),.T|exinfo (|
|00002800| 40 6e 6f 64 65 20 74 69 | 74 6c 65 73 29 2c 20 50 |@node ti|tles), P|
|00002810| 65 72 6c 2c 20 61 6e 64 | 20 46 6f 72 74 72 61 6e |erl, and| Fortran|
|00002820| 2e 0a 0a 4f 74 68 65 72 | 20 6d 6f 64 65 73 20 61 |...Other| modes a|
|00002830| 72 65 20 68 61 6e 64 6c | 65 64 20 62 79 20 61 20 |re handl|ed by a |
|00002840| 68 65 75 72 69 73 74 69 | 63 20 74 68 61 74 20 6c |heuristi|c that l|
|00002850| 6f 6f 6b 73 20 69 6e 20 | 74 68 65 20 31 30 4b 20 |ooks in |the 10K |
|00002860| 62 65 66 6f 72 65 0a 70 | 6f 69 6e 74 20 66 6f 72 |before.p|oint for|
|00002870| 20 75 70 70 65 72 63 61 | 73 65 20 68 65 61 64 69 | upperca|se headi|
|00002880| 6e 67 73 20 73 74 61 72 | 74 69 6e 67 20 69 6e 20 |ngs star|ting in |
|00002890| 74 68 65 20 66 69 72 73 | 74 20 63 6f 6c 75 6d 6e |the firs|t column|
|000028a0| 20 6f 72 0a 69 64 65 6e | 74 69 66 69 65 72 73 20 | or.iden|tifiers |
|000028b0| 66 6f 6c 6c 6f 77 65 64 | 20 62 79 20 60 3a 27 20 |followed| by `:' |
|000028c0| 6f 72 20 60 3d 27 2c 20 | 73 65 65 20 76 61 72 69 |or `=', |see vari|
|000028d0| 61 62 6c 65 0a 60 61 64 | 64 2d 6c 6f 67 2d 63 75 |able.`ad|d-log-cu|
|000028e0| 72 72 65 6e 74 2d 64 65 | 66 75 6e 2d 68 65 61 64 |rrent-de|fun-head|
|000028f0| 65 72 2d 72 65 67 65 78 | 70 27 2e 0a 0a 48 61 73 |er-regex|p'...Has|
|00002900| 20 61 20 70 72 65 66 65 | 72 65 6e 63 65 20 6f 66 | a prefe|rence of|
|00002910| 20 6c 6f 6f 6b 69 6e 67 | 20 62 61 63 6b 77 61 72 | looking| backwar|
|00002920| 64 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ds...(de|falias '|
|00002930| 61 64 64 2d 6c 6f 67 2d | 63 75 72 72 65 6e 74 2d |add-log-|current-|
|00002940| 64 65 66 75 6e 20 23 5b | 6e 69 6c 20 22 c0 c1 c2 |defun #[|nil "...|
|00002950| 8f 87 22 20 5b 6e 69 6c | 20 28 62 79 74 65 2d 63 |.." [nil| (byte-c|
|00002960| 6f 64 65 20 22 8a 60 18 | 09 5c 6e 73 ab bc 6d ac |ode ".`.|.\ns..m.|
|00002970| 83 c3 75 88 c4 20 88 c5 | c6 21 85 ea 01 c7 20 88 |..u.. ..|.!.... .|
|00002980| 08 60 57 85 ea 01 c8 c9 | 21 88 08 60 59 85 ea 01 |.`W.....|!..`Y...|
|00002990| c5 c6 21 ab 83 c3 75 88 | c8 c3 21 88 ca cb 77 88 |..!...u.|..!...w.|
|000029a0| 60 c8 c3 21 88 60 7b 82 | ea 01 09 0e 0c 73 ab b9 |`..!.`{.|.....s..|
|000029b0| 8a cd 79 88 60 ce 5a 66 | cf 61 ab 85 c9 79 88 aa |..y.`.Zf|.a...y..|
|000029c0| 73 c5 d0 21 29 ab a2 cd | 79 88 60 ce 5a 66 cf 61 |s..!)...|y.`.Zf.a|
|000029d0| ab 85 c9 79 88 aa 73 d1 | d2 21 88 d3 cb 77 88 60 |...y..s.|.!...w.`|
|000029e0| c8 c3 21 88 60 7b 82 ea | 01 09 0e 0c 73 83 65 01 |..!.`{..|....s.e.|
|000029f0| cd 79 88 c5 d4 21 ac 85 | c3 79 88 aa 76 6d ac 83 |.y...!..|.y..vm..|
|00002a00| c3 75 88 c4 20 88 c7 20 | 88 08 60 57 85 ea 01 d5 |.u.. .. |..`W....|
|00002a10| c3 21 88 cb 89 1e 16 1e | 17 c9 79 88 6f ac 8a c5 |.!......|..y.o...|
|00002a20| d8 21 ab 85 c9 79 88 aa | 73 cb d9 da 8f ab 9f 0e |.!...y..|s.......|
|00002a30| 16 62 88 db c3 21 88 60 | 66 dc 55 ab 88 c8 c3 21 |.b...!.`|f.U....!|
|00002a40| 88 dd cb 77 88 60 c8 c3 | 21 88 60 7b aa f9 c5 de |...w.`..|!.`{....|
|00002a50| 21 ab 84 df 20 aa f0 60 | 16 17 cb e0 e1 8f ad e7 |!... ..`|........|
|00002a60| 8a 0e 17 62 88 6f ac 8f | 8a c9 79 88 c5 e2 21 29 |...b.o..|..y...!)|
|00002a70| ab 85 c9 79 88 aa 6e 08 | 60 59 29 ad ca 60 0e 17 |...y..n.|`Y)..`..|
|00002a80| 56 ad c4 cb 89 1e 23 1e | 24 68 e5 55 ab 83 c9 75 |V.....#.|$h.U...u|
|00002a90| 88 60 16 24 d5 c3 21 88 | 60 16 23 c9 76 88 c5 e6 |.`.$..!.|`.#.v...|
|00002aa0| 21 ab 93 e7 cb 78 88 60 | 16 24 d5 c3 21 88 60 16 |!....x.`|.$..!.`.|
|00002ab0| 23 c9 76 88 aa 68 6e ab | 88 c5 e8 21 ab 83 60 16 |#.v..hn.|...!..`.|
|00002ac0| 23 0e 23 0e 24 7b 2a 2a | 82 ea 01 09 0e 29 73 ab |#.#.${**|.....)s.|
|00002ad0| 94 ea eb cb ec 23 ad f8 | cd 94 62 88 60 54 cb 7f |.....#..|..b.`T..|
|00002ae0| 88 60 7b aa eb 09 ed 61 | ab 8e ea ee cb ec 23 ad |.`{....a|......#.|
|00002af0| df c3 94 c3 95 7b aa d8 | 09 ef 61 ab 8e ea f0 cb |.....{..|..a.....|
|00002b00| ec 23 ad cc c3 94 c3 95 | 7b aa c5 09 f1 61 ab aa |.#......|{....a..|
|00002b10| f2 20 88 ec 1e 33 f4 f5 | cb ec 23 ad 9a f4 f6 cb |. ...3..|..#.....|
|00002b20| ec 23 ab 89 c9 75 88 d3 | cb 78 88 aa 83 cb 7f 88 |.#...u..|.x......|
|00002b30| 60 c8 c9 21 88 60 7b 29 | aa 96 cb 1e 33 cb 7f 88 |`..!.`{)|....3...|
|00002b40| ea 0e 37 60 f8 5a ec 23 | ad 85 c3 94 c3 95 7b 29 |..7`.Z.#|......{)|
|00002b50| 2a 87 22 20 5b 6c 6f 63 | 61 74 69 6f 6e 20 6d 61 |*." [loc|ation ma|
|00002b60| 6a 6f 72 2d 6d 6f 64 65 | 20 61 64 64 2d 6c 6f 67 |jor-mode| add-log|
|00002b70| 2d 6c 69 73 70 2d 6c 69 | 6b 65 2d 6d 6f 64 65 73 |-lisp-li|ke-modes|
|00002b80| 20 31 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d | 1 begin|ning-of-|
|00002b90| 64 65 66 75 6e 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |defun lo|oking-at|
|00002ba0| 20 22 5c 5c 73 28 22 20 | 65 6e 64 2d 6f 66 2d 64 | "\\s(" |end-of-d|
|00002bb0| 65 66 75 6e 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |efun for|ward-sex|
|00002bc0| 70 20 2d 31 20 22 20 27 | 22 20 6e 69 6c 20 61 64 |p -1 " '|" nil ad|
|00002bd0| 64 2d 6c 6f 67 2d 63 2d | 6c 69 6b 65 2d 6d 6f 64 |d-log-c-|like-mod|
|00002be0| 65 73 20 30 20 32 20 3f | 5c 5c 20 22 5b 20 09 5d |es 0 2 ?|\\ "[ .]|
|00002bf0| 2a 23 5b 20 09 5d 2a 64 | 65 66 69 6e 65 5b 20 09 |*#[ .]*d|efine[ .|
|00002c00| 5d 22 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |]" searc|h-forwar|
|00002c10| 64 20 22 64 65 66 69 6e | 65 22 20 22 20 09 22 20 |d "defin|e" " ." |
|00002c20| 22 7b 5c 5c 7c 5c 5c 28 | 5c 5c 73 20 2a 24 5c 5c |"{\\|\\(|\\s *$\\|
|00002c30| 29 22 20 62 61 63 6b 77 | 61 72 64 2d 73 65 78 70 |)" backw|ard-sexp|
|00002c40| 20 74 65 6d 20 62 65 67 | 20 22 5b 20 09 5c 6e 5d | tem beg| "[ .\n]|
|00002c50| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a c0 |" (byte-|code "..|
|00002c60| 7f 88 68 c1 55 ab 85 c2 | 7f 88 aa 76 c3 c4 21 88 |..h.U...|...v..!.|
|00002c70| c5 79 88 60 16 06 c7 c8 | 21 29 ad 85 0e 09 0e 06 |.y.`....|!)......|
|00002c80| 59 87 22 20 5b 6e 69 6c | 20 3f 5c 5c 20 32 20 62 |Y." [nil| ?\\ 2 b|
|00002c90| 61 63 6b 77 61 72 64 2d | 73 65 78 70 20 31 20 30 |ackward-|sexp 1 0|
|00002ca0| 20 74 65 6d 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 | tem loo|king-at |
|00002cb0| 22 44 45 46 55 4e 5c 5c | 62 22 20 6c 6f 63 61 74 |"DEFUN\\|b" locat|
|00002cc0| 69 6f 6e 5d 20 32 29 20 | 28 28 65 72 72 6f 72 29 |ion] 2) |((error)|
|00002cd0| 29 20 64 6f 77 6e 2d 6c | 69 73 74 20 3f 5c 22 20 |) down-l|ist ?\" |
|00002ce0| 22 20 2c 22 20 22 5e 5b | 2b 2d 5d 22 20 67 65 74 |" ," "^[|+-]" get|
|00002cf0| 2d 6d 65 74 68 6f 64 2d | 64 65 66 69 6e 69 74 69 |-method-|definiti|
|00002d00| 6f 6e 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |on (byte|-code ".|
|00002d10| c1 21 88 c2 c1 21 88 c3 | c4 78 88 c5 87 22 20 5b |.!...!..|.x..." [|
|00002d20| 64 6f 77 6e 2d 6c 69 73 | 74 20 31 20 62 61 63 6b |down-lis|t 1 back|
|00002d30| 77 61 72 64 2d 75 70 2d | 6c 69 73 74 20 22 20 09 |ward-up-|list " .|
|00002d40| 22 20 6e 69 6c 20 74 5d | 20 32 29 20 28 28 65 72 |" nil t]| 2) ((er|
|00002d50| 72 6f 72 29 29 20 22 5b | 5e 5c 6e 0c 5d 22 20 6d |ror)) "[|^\n.]" m|
|00002d60| 69 64 64 6c 65 20 65 6e | 64 20 3f 5c 6e 20 22 70 |iddle en|d ?\n "p|
|00002d70| 75 62 6c 69 63 20 5c 5c | 7c 70 72 69 76 61 74 65 |ublic \\||private|
|00002d80| 20 22 20 22 20 09 3a 22 | 20 22 73 74 72 75 63 74 | " " .:"| "struct|
|00002d90| 20 5c 5c 7c 75 6e 69 6f | 6e 20 5c 5c 7c 63 6c 61 | \\|unio|n \\|cla|
|00002da0| 73 73 20 22 20 61 64 64 | 2d 6c 6f 67 2d 74 65 78 |ss " add|-log-tex|
|00002db0| 2d 6c 69 6b 65 2d 6d 6f | 64 65 73 20 72 65 2d 73 |-like-mo|des re-s|
|00002dc0| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00002dd0| 5c 5c 5c 5c 5c 5c 28 73 | 75 62 5c 5c 29 2a 5c 5c |\\\\\\(s|ub\\)*\\|
|00002de0| 28 73 65 63 74 69 6f 6e | 5c 5c 7c 70 61 72 61 67 |(section|\\|parag|
|00002df0| 72 61 70 68 5c 5c 7c 63 | 68 61 70 74 65 72 5c 5c |raph\\|c|hapter\\|
|00002e00| 29 22 20 74 20 74 65 78 | 69 6e 66 6f 2d 6d 6f 64 |)" t tex|info-mod|
|00002e10| 65 20 22 5e 40 6e 6f 64 | 65 5b 20 09 5d 2b 5c 5c |e "^@nod|e[ .]+\\|
|00002e20| 28 5b 5e 2c 5c 6e 5d 2b | 5c 5c 29 22 20 70 65 72 |([^,\n]+|\\)" per|
|00002e30| 6c 2d 6d 6f 64 65 20 22 | 5e 73 75 62 5b 20 09 5d |l-mode "|^sub[ .]|
|00002e40| 2b 5c 5c 28 5b 5e 20 09 | 5c 6e 5d 2b 5c 5c 29 22 |+\\([^ .|\n]+\\)"|
|00002e50| 20 66 6f 72 74 72 61 6e | 2d 6d 6f 64 65 20 62 65 | fortran|-mode be|
|00002e60| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 66 6f 72 74 72 |ginning-|of-fortr|
|00002e70| 61 6e 2d 73 75 62 70 72 | 6f 67 72 61 6d 20 63 61 |an-subpr|ogram ca|
|00002e80| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 72 |se-fold-|search r|
|00002e90| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|00002ea0| 20 22 5e 5b 20 09 5d 2a | 5c 5c 28 70 72 6f 67 72 | "^[ .]*|\\(progr|
|00002eb0| 61 6d 5c 5c 7c 73 75 62 | 72 6f 75 74 69 6e 65 5c |am\\|sub|routine\|
|00002ec0| 5c 7c 66 75 6e 63 74 69 | 6f 6e 5c 5c 7c 5b 20 09 |\|functi|on\\|[ .|
|00002ed0| 61 2d 7a 30 2d 39 2a 5d | 2a 5b 20 09 5d 2b 66 75 |a-z0-9*]|*[ .]+fu|
|00002ee0| 6e 63 74 69 6f 6e 5c 5c | 29 22 20 22 5b 28 5c 6e |nction\\|)" "[(\n|
|00002ef0| 5d 22 20 61 64 64 2d 6c | 6f 67 2d 63 75 72 72 65 |]" add-l|og-curre|
|00002f00| 6e 74 2d 64 65 66 75 6e | 2d 68 65 61 64 65 72 2d |nt-defun|-header-|
|00002f10| 72 65 67 65 78 70 20 31 | 30 30 30 30 5d 20 34 29 |regexp 1|0000] 4)|
|00002f20| 20 28 28 65 72 72 6f 72 | 29 29 5d 20 33 20 28 23 | ((error|))] 3 (#|
|00002f30| 24 20 2e 20 31 30 31 30 | 34 29 5d 29 0a 28 62 79 |$ . 1010|4)]).(by|
|00002f40| 74 65 2d 63 6f 64 65 20 | 22 c0 09 42 11 c0 87 22 |te-code |"..B..."|
|00002f50| 20 5b 67 65 74 2d 6d 65 | 74 68 6f 64 2d 64 65 66 | [get-me|thod-def|
|00002f60| 69 6e 69 74 69 6f 6e 2d | 6d 64 20 63 75 72 72 65 |inition-|md curre|
|00002f70| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00002f80| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 67 65 74 2d |.(defali|as 'get-|
|00002f90| 6d 65 74 68 6f 64 2d 64 | 65 66 69 6e 69 74 69 6f |method-d|efinitio|
|00002fa0| 6e 2d 31 20 23 5b 28 65 | 6e 64 29 20 22 08 c1 94 |n-1 #[(e|nd) "...|
|00002fb0| c1 95 7b 5c 6e 51 10 c3 | 95 62 87 22 20 5b 67 65 |..{\nQ..|.b." [ge|
|00002fc0| 74 2d 6d 65 74 68 6f 64 | 2d 64 65 66 69 6e 69 74 |t-method|-definit|
|00002fd0| 69 6f 6e 2d 6d 64 20 31 | 20 65 6e 64 20 30 5d 20 |ion-md 1| end 0] |
|00002fe0| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 67 |3]).(def|alias 'g|
|00002ff0| 65 74 2d 6d 65 74 68 6f | 64 2d 64 65 66 69 6e 69 |et-metho|d-defini|
|00003000| 74 69 6f 6e 20 23 5b 6e | 69 6c 20 22 c0 19 8a c2 |tion #[n|il "....|
|00003010| c3 c4 c5 23 ab 84 c6 c7 | 21 88 29 8a c8 c9 c4 c5 |...#....|!.).....|
|00003020| 23 ad 96 c6 ca 21 88 cb | cc 21 ac 8a cb cd 21 88 |#....!..|.!....!.|
|00003030| c6 ca 21 88 aa 71 09 ce | 50 2a 87 22 20 5b 22 5b |..!..q..|P*." ["[|
|00003040| 22 20 67 65 74 2d 6d 65 | 74 68 6f 64 2d 64 65 66 |" get-me|thod-def|
|00003050| 69 6e 69 74 69 6f 6e 2d | 6d 64 20 72 65 2d 73 65 |inition-|md re-se|
|00003060| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 5e |arch-bac|kward "^|
|00003070| 40 69 6d 70 6c 65 6d 65 | 6e 74 61 74 69 6f 6e 5c |@impleme|ntation\|
|00003080| 5c 73 2d 2a 5c 5c 28 5b | 41 2d 5a 61 2d 7a 5f 5d |\s-*\\([|A-Za-z_]|
|00003090| 2a 5c 5c 29 22 20 6e 69 | 6c 20 74 20 67 65 74 2d |*\\)" ni|l t get-|
|000030a0| 6d 65 74 68 6f 64 2d 64 | 65 66 69 6e 69 74 69 6f |method-d|efinitio|
|000030b0| 6e 2d 31 20 22 20 22 20 | 72 65 2d 73 65 61 72 63 |n-1 " " |re-searc|
|000030c0| 68 2d 66 6f 72 77 61 72 | 64 20 22 5e 5c 5c 28 5b |h-forwar|d "^\\([|
|000030d0| 2d 2b 5d 5c 5c 29 5b 20 | 09 5c 6e 0c 0d 5d 2a 5c |-+]\\)[ |.\n..]*\|
|000030e0| 5c 28 28 5b 5e 29 5d 2a | 29 5c 5c 29 3f 5c 5c 73 |\(([^)]*|)\\)?\\s|
|000030f0| 2d 2a 22 20 22 22 20 6c | 6f 6f 6b 69 6e 67 2d 61 |-*" "" l|ooking-a|
|00003100| 74 20 22 5b 7b 3b 5d 22 | 20 22 5c 5c 28 5b 41 2d |t "[{;]"| "\\([A-|
|00003110| 5a 61 2d 7a 5f 5d 2a 3a | 3f 5c 5c 29 5c 5c 73 2d |Za-z_]*:|?\\)\\s-|
|00003120| 2a 5c 5c 28 28 5b 5e 29 | 5d 2a 29 5c 5c 29 3f 5b |*\\(([^)|]*)\\)?[|
|00003130| 41 2d 5a 61 2d 7a 5f 5d | 2a 5b 20 09 5c 6e 0c 0d |A-Za-z_]|*[ .\n..|
|00003140| 5d 2a 22 20 22 5d 22 5d | 20 34 5d 29 0a 28 70 72 |]*" "]"]| 4]).(pr|
|00003150| 6f 76 69 64 65 20 27 61 | 64 64 2d 6c 6f 67 29 0a |ovide 'a|dd-log).|
+--------+-------------------------+-------------------------+--------+--------+