home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-07-05 | 6.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul 5|
|00000040| 20 32 32 3a 30 35 3a 34 | 30 20 31 39 39 33 0a 3b | 22:05:4|0 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 61 64 64 | 2d 6c 6f 67 2e 65 6c 0a |lisp/add|-log.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 31 35 2e | 31 36 2e 0a 3b 3b 3b 20 |n 19.15.|16..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))). |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 64 65 66 76 61 72 | 20 63 68 61 6e 67 65 2d |.(defvar| change-|
|000001d0| 6c 6f 67 2d 64 65 66 61 | 75 6c 74 2d 6e 61 6d 65 |log-defa|ult-name|
|000001e0| 20 6e 69 6c 20 22 5c 0a | 2a 4e 61 6d 65 20 6f 66 | nil "\.|*Name of|
|000001f0| 20 61 20 63 68 61 6e 67 | 65 20 6c 6f 67 20 66 69 | a chang|e log fi|
|00000200| 6c 65 20 66 6f 72 20 5c | 5c 5b 61 64 64 2d 63 68 |le for \|\[add-ch|
|00000210| 61 6e 67 65 2d 6c 6f 67 | 2d 65 6e 74 72 79 5d 2e |ange-log|-entry].|
|00000220| 22 29 0a 28 64 65 66 61 | 6c 69 61 73 20 28 71 75 |").(defa|lias (qu|
|00000230| 6f 74 65 20 63 68 61 6e | 67 65 2d 6c 6f 67 2d 6e |ote chan|ge-log-n|
|00000240| 61 6d 65 29 20 23 5b 6e | 69 6c 20 22 08 86 0d 00 |ame) #[n|il "....|
|00000250| 09 c2 3d 83 0c 00 c3 87 | c4 87 22 20 5b 63 68 61 |..=.....|.." [cha|
|00000260| 6e 67 65 2d 6c 6f 67 2d | 64 65 66 61 75 6c 74 2d |nge-log-|default-|
|00000270| 6e 61 6d 65 20 73 79 73 | 74 65 6d 2d 74 79 70 65 |name sys|tem-type|
|00000280| 20 76 61 78 2d 76 6d 73 | 20 22 24 43 48 41 4e 47 | vax-vms| "$CHANG|
|00000290| 45 5f 4c 4f 47 24 2e 54 | 58 54 22 20 22 43 68 61 |E_LOG$.T|XT" "Cha|
|000002a0| 6e 67 65 4c 6f 67 22 5d | 20 32 5d 29 0a 28 64 65 |ngeLog"]| 2]).(de|
|000002b0| 66 61 6c 69 61 73 20 27 | 70 72 6f 6d 70 74 2d 66 |falias '|prompt-f|
|000002c0| 6f 72 2d 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 6e 61 |or-chang|e-log-na|
|000002d0| 6d 65 20 23 5b 6e 69 6c | 20 22 c0 20 19 c2 c3 c4 |me #[nil| ". ....|
|000002e0| c5 09 5c 22 c6 09 23 21 | 29 87 22 20 5b 63 68 61 |..\"..#!|)." [cha|
|000002f0| 6e 67 65 2d 6c 6f 67 2d | 6e 61 6d 65 20 64 65 66 |nge-log-|name def|
|00000300| 61 75 6c 74 20 65 78 70 | 61 6e 64 2d 66 69 6c 65 |ault exp|and-file|
|00000310| 2d 6e 61 6d 65 20 72 65 | 61 64 2d 66 69 6c 65 2d |-name re|ad-file-|
|00000320| 6e 61 6d 65 20 66 6f 72 | 6d 61 74 20 22 4c 6f 67 |name for|mat "Log|
|00000330| 20 66 69 6c 65 20 28 64 | 65 66 61 75 6c 74 20 25 | file (d|efault %|
|00000340| 73 29 3a 20 22 20 6e 69 | 6c 5d 20 35 20 22 5c 0a |s): " ni|l] 5 "\.|
|00000350| 50 72 6f 6d 70 74 20 66 | 6f 72 20 61 20 63 68 61 |Prompt f|or a cha|
|00000360| 6e 67 65 20 6c 6f 67 20 | 6e 61 6d 65 2e 22 5d 29 |nge log |name."])|
|00000370| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 69 6e 64 |.(defali|as 'find|
|00000380| 2d 63 68 61 6e 67 65 2d | 6c 6f 67 20 23 5b 28 26 |-change-|log #[(&|
|00000390| 6f 70 74 69 6f 6e 61 6c | 20 66 69 6c 65 2d 6e 61 |optional| file-na|
|000003a0| 6d 65 29 20 22 08 84 16 | 00 09 86 15 00 5c 6e 83 |me) "...|.....\n.|
|000003b0| 14 00 c3 c4 5c 6e 21 21 | 86 15 00 0d 10 08 09 3d |....\n!!|.......=|
|000003c0| 83 25 00 c1 c6 20 9e 83 | 25 00 08 87 c7 08 21 83 |.%... ..|%.....!.|
|000003d0| 31 00 c8 c9 20 08 5c 22 | 10 c4 08 21 10 c8 08 21 |1... .\"|...!...!|
|000003e0| 89 10 ca 1e 0b 1e 0c cd | 0e 0c 21 84 6c 00 ce 0e |........|..!.l...|
|000003f0| 0c 21 84 6c 00 c3 cf c3 | 0e 0c 21 21 21 16 0b c3 |.!.l....|..!!!...|
|00000400| 0e 0c 21 0e 0b 98 84 6c | 00 c8 c9 20 0e 0b 5c 22 |..!....l|... ..\"|
|00000410| 16 0c 82 3f 00 cd 0e 0c | 21 84 7a 00 ce 0e 0c 21 |...?....|!.z....!|
|00000420| 83 7d 00 0e 0c 10 2a d0 | c1 21 08 4c 88 08 87 22 |.}....*.|.!.L..."|
|00000430| 20 5b 66 69 6c 65 2d 6e | 61 6d 65 20 63 68 61 6e | [file-n|ame chan|
|00000440| 67 65 2d 6c 6f 67 2d 64 | 65 66 61 75 6c 74 2d 6e |ge-log-d|efault-n|
|00000450| 61 6d 65 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ame buff|er-file-|
|00000460| 6e 61 6d 65 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |name fil|e-name-d|
|00000470| 69 72 65 63 74 6f 72 79 | 20 66 69 6c 65 2d 63 68 |irectory| file-ch|
|00000480| 61 73 65 2d 6c 69 6e 6b | 73 20 64 65 66 61 75 6c |ase-link|s defaul|
|00000490| 74 2d 64 69 72 65 63 74 | 6f 72 79 20 62 75 66 66 |t-direct|ory buff|
|000004a0| 65 72 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |er-local|-variabl|
|000004b0| 65 73 20 66 69 6c 65 2d | 64 69 72 65 63 74 6f 72 |es file-|director|
|000004c0| 79 2d 70 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |y-p expa|nd-file-|
|000004d0| 6e 61 6d 65 20 63 68 61 | 6e 67 65 2d 6c 6f 67 2d |name cha|nge-log-|
|000004e0| 6e 61 6d 65 20 6e 69 6c | 20 70 61 72 65 6e 74 2d |name nil| parent-|
|000004f0| 64 69 72 20 66 69 6c 65 | 31 20 67 65 74 2d 66 69 |dir file|1 get-fi|
|00000500| 6c 65 2d 62 75 66 66 65 | 72 20 66 69 6c 65 2d 65 |le-buffe|r file-e|
|00000510| 78 69 73 74 73 2d 70 20 | 64 69 72 65 63 74 6f 72 |xists-p |director|
|00000520| 79 2d 66 69 6c 65 2d 6e | 61 6d 65 20 6d 61 6b 65 |y-file-n|ame make|
|00000530| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 5d |-local-v|ariable]|
|00000540| 20 35 20 22 5c 0a 46 69 | 6e 64 20 61 20 63 68 61 | 5 "\.Fi|nd a cha|
|00000550| 6e 67 65 20 6c 6f 67 20 | 66 69 6c 65 20 66 6f 72 |nge log |file for|
|00000560| 20 5c 5c 5b 61 64 64 2d | 63 68 61 6e 67 65 2d 6c | \\[add-|change-l|
|00000570| 6f 67 2d 65 6e 74 72 79 | 5d 20 61 6e 64 20 72 65 |og-entry|] and re|
|00000580| 74 75 72 6e 20 74 68 65 | 20 6e 61 6d 65 2e 0a 4f |turn the| name..O|
|00000590| 70 74 69 6f 6e 61 6c 20 | 61 72 67 20 46 49 4c 45 |ptional |arg FILE|
|000005a0| 2d 4e 41 4d 45 20 69 73 | 20 61 20 6e 61 6d 65 20 |-NAME is| a name |
|000005b0| 74 6f 20 74 72 79 20 66 | 69 72 73 74 2e 0a 49 66 |to try f|irst..If|
|000005c0| 20 46 49 4c 45 2d 4e 41 | 4d 45 20 69 73 20 6e 69 | FILE-NA|ME is ni|
|000005d0| 6c 2c 20 75 73 65 20 74 | 68 65 20 76 61 6c 75 65 |l, use t|he value|
|000005e0| 20 6f 66 20 60 63 68 61 | 6e 67 65 2d 6c 6f 67 2d | of `cha|nge-log-|
|000005f0| 64 65 66 61 75 6c 74 2d | 6e 61 6d 65 27 20 69 66 |default-|name' if|
|00000600| 20 6e 6f 6e 2d 6e 69 6c | 2e 0a 46 61 69 6c 69 6e | non-nil|..Failin|
|00000610| 67 20 74 68 61 74 2c 20 | 75 73 65 20 5c 22 43 68 |g that, |use \"Ch|
|00000620| 61 6e 67 65 4c 6f 67 5c | 22 20 69 6e 20 74 68 65 |angeLog\|" in the|
|00000630| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|00000640| 72 79 2e 0a 49 66 20 74 | 68 65 20 66 69 6c 65 20 |ry..If t|he file |
|00000650| 64 6f 65 73 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |does not| exist i|
|00000660| 6e 20 74 68 65 20 6e 61 | 6d 65 64 20 64 69 72 65 |n the na|med dire|
|00000670| 63 74 6f 72 79 2c 20 73 | 75 63 63 65 73 73 69 76 |ctory, s|uccessiv|
|00000680| 65 20 70 61 72 65 6e 74 | 0a 64 69 72 65 63 74 6f |e parent|.directo|
|00000690| 72 69 65 73 20 61 72 65 | 20 74 72 69 65 64 2e 0a |ries are| tried..|
|000006a0| 0a 4f 6e 63 65 20 61 20 | 66 69 6c 65 20 69 73 20 |.Once a |file is |
|000006b0| 66 6f 75 6e 64 2c 20 60 | 63 68 61 6e 67 65 2d 6c |found, `|change-l|
|000006c0| 6f 67 2d 64 65 66 61 75 | 6c 74 2d 6e 61 6d 65 27 |og-defau|lt-name'|
|000006d0| 20 69 73 20 73 65 74 20 | 6c 6f 63 61 6c 6c 79 20 | is set |locally |
|000006e0| 69 6e 20 74 68 65 0a 63 | 75 72 72 65 6e 74 20 62 |in the.c|urrent b|
|000006f0| 75 66 66 65 72 20 74 6f | 20 74 68 65 20 63 6f 6d |uffer to| the com|
|00000700| 70 6c 65 74 65 20 66 69 | 6c 65 20 6e 61 6d 65 2e |plete fi|le name.|
|00000710| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |"]).(def|alias 'a|
|00000720| 64 64 2d 63 68 61 6e 67 | 65 2d 6c 6f 67 2d 65 6e |dd-chang|e-log-en|
|00000730| 74 72 79 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |try #[(&|optional|
|00000740| 20 77 68 6f 61 6d 69 20 | 66 69 6c 65 2d 6e 61 6d | whoami |file-nam|
|00000750| 65 20 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 29 20 |e other-|window) |
|00000760| 22 08 83 0c 00 c1 c2 c3 | 20 5c 22 82 0e 00 c3 20 |".......| \".... |
|00000770| 1c 08 83 1b 00 c1 c5 c6 | 20 5c 22 82 1d 00 c6 20 |........| \".... |
|00000780| 1e 07 08 83 2b 00 c1 c8 | c9 20 5c 22 82 2d 00 c9 |....+...|. \".-..|
|00000790| 20 1e 5c 6e cb 20 1e 0c | cd 1e 0e cd 1e 0f d0 0e | .\n. ..|........|
|000007a0| 11 21 16 11 0e 12 83 6a | 00 0e 12 0e 11 98 84 6a |.!.....j|.......j|
|000007b0| 00 d3 d4 d5 d6 0e 11 21 | 21 50 0e 12 5c 22 83 64 |.......!|!P..\".d|
|000007c0| 00 0e 12 d7 95 cd 4f 82 | 68 00 d8 0e 12 21 16 0f |......O.|h....!..|
|000007d0| 0e 19 83 7f 00 0e 11 0e | 12 9a 84 7f 00 da 0e 11 |........|........|
|000007e0| 21 88 82 84 00 db 0e 11 | 21 88 dc 20 88 65 62 88 |!.......|!.. .eb.|
|000007f0| dd d5 de 20 d7 df 4f 21 | e0 d5 0c 21 e1 d5 0e 07 |... ..O!|...!....|
|00000800| 21 e2 b0 06 21 83 a8 00 | e3 79 88 82 b6 00 de 20 |!...!...|.y..... |
|00000810| e4 0c e1 0e 07 e2 0e 5c | 6e e5 b1 08 88 dd e6 21 |.......\|n......!|
|00000820| 83 c3 00 e7 cd 77 88 82 | c7 00 e8 e3 21 88 60 16 |.....w..|....!.`.|
|00000830| 0e 65 62 88 e9 ea 0e 0e | eb 23 83 e2 00 0e 0f 83 |.eb.....|.#......|
|00000840| 54 01 0e 0f 63 88 82 54 | 01 e9 d5 ec 0e 0f 50 21 |T...c..T|......P!|
|00000850| ed 50 0e 0e eb 23 83 1b | 01 e9 ee 21 88 d7 79 88 |.P...#..|...!..y.|
|00000860| 6d 84 0f 01 dd ef 21 83 | 0f 01 60 8a e3 79 88 60 |m.....!.|..`..y.`|
|00000870| 29 7c 88 82 f9 00 f0 63 | 88 f1 79 88 f2 20 88 82 |)|.....c|..y.. ..|
|00000880| 54 01 e3 79 88 dd f3 21 | 83 2a 01 e3 79 88 82 1e |T..y...!|.*..y...|
|00000890| 01 6d 84 40 01 dd ef 21 | 83 40 01 60 8a e3 79 88 |.m.@...!|.@.`..y.|
|000008a0| 60 29 7c 88 82 2a 01 f4 | 63 88 f1 79 88 0e 35 6a |`)|..*..|c..y..5j|
|000008b0| 88 ec 0e 0f 86 51 01 f6 | b1 02 88 0e 0c 83 75 01 |.....Q..|......u.|
|000008c0| dc 20 88 8a d7 79 88 dd | f7 21 29 83 6b 01 f6 82 |. ...y..|.!).k...|
|000008d0| 6c 01 f8 f9 0e 0c fa b1 | 04 82 83 01 8a d7 79 88 |l.......|......y.|
|000008e0| dd fb 21 29 3f 85 83 01 | fc 63 2e 06 87 22 20 5b |..!)?...|.c..." [|
|000008f0| 77 68 6f 61 6d 69 20 72 | 65 61 64 2d 69 6e 70 75 |whoami r|ead-inpu|
|00000900| 74 20 22 46 75 6c 6c 20 | 6e 61 6d 65 3a 20 22 20 |t "Full |name: " |
|00000910| 75 73 65 72 2d 66 75 6c | 6c 2d 6e 61 6d 65 20 66 |user-ful|l-name f|
|00000920| 75 6c 6c 2d 6e 61 6d 65 | 20 22 4c 6f 67 69 6e 20 |ull-name| "Login |
|00000930| 6e 61 6d 65 3a 20 22 20 | 75 73 65 72 2d 6c 6f 67 |name: " |user-log|
|00000940| 69 6e 2d 6e 61 6d 65 20 | 6c 6f 67 69 6e 2d 6e 61 |in-name |login-na|
|00000950| 6d 65 20 22 53 69 74 65 | 20 6e 61 6d 65 3a 20 22 |me "Site| name: "|
|00000960| 20 73 79 73 74 65 6d 2d | 6e 61 6d 65 20 73 69 74 | system-|name sit|
|00000970| 65 2d 6e 61 6d 65 20 61 | 64 64 2d 6c 6f 67 2d 63 |e-name a|dd-log-c|
|00000980| 75 72 72 65 6e 74 2d 64 | 65 66 75 6e 20 64 65 66 |urrent-d|efun def|
|00000990| 75 6e 20 6e 69 6c 20 70 | 61 72 61 67 72 61 70 68 |un nil p|aragraph|
|000009a0| 2d 65 6e 64 20 65 6e 74 | 72 79 20 66 69 6e 64 2d |-end ent|ry find-|
|000009b0| 63 68 61 6e 67 65 2d 6c | 6f 67 20 66 69 6c 65 2d |change-l|og file-|
|000009c0| 6e 61 6d 65 20 62 75 66 | 66 65 72 2d 66 69 6c 65 |name buf|fer-file|
|000009d0| 2d 6e 61 6d 65 20 73 74 | 72 69 6e 67 2d 6d 61 74 |-name st|ring-mat|
|000009e0| 63 68 20 22 5e 22 20 72 | 65 67 65 78 70 2d 71 75 |ch "^" r|egexp-qu|
|000009f0| 6f 74 65 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |ote file|-name-di|
|00000a00| 72 65 63 74 6f 72 79 20 | 30 20 66 69 6c 65 2d 6e |rectory |0 file-n|
|00000a10| 61 6d 65 2d 6e 6f 6e 64 | 69 72 65 63 74 6f 72 79 |ame-nond|irectory|
|00000a20| 20 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 66 69 | other-w|indow fi|
|00000a30| 6e 64 2d 66 69 6c 65 2d | 6f 74 68 65 72 2d 77 69 |nd-file-|other-wi|
|00000a40| 6e 64 6f 77 20 66 69 6e | 64 2d 66 69 6c 65 20 75 |ndow fin|d-file u|
|00000a50| 6e 64 6f 2d 62 6f 75 6e | 64 61 72 79 20 6c 6f 6f |ndo-boun|dary loo|
|00000a60| 6b 69 6e 67 2d 61 74 20 | 63 75 72 72 65 6e 74 2d |king-at |current-|
|00000a70| 74 69 6d 65 2d 73 74 72 | 69 6e 67 20 31 30 20 22 |time-str|ing 10 "|
|00000a80| 2e 2a 20 22 20 22 20 20 | 28 22 20 22 40 22 20 31 |.* " " |(" "@" 1|
|00000a90| 20 22 20 20 22 20 22 29 | 5c 6e 5c 6e 22 20 22 5c | " " ")|\n\n" "\|
|00000aa0| 6e 2a 5b 5e 5c 6e 2a 20 | 09 5d 22 20 22 5c 6e 22 |n*[^\n* |.]" "\n"|
|00000ab0| 20 66 6f 72 77 61 72 64 | 2d 70 61 72 61 67 72 61 | forward|-paragra|
|00000ac0| 70 68 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |ph re-se|arch-for|
|00000ad0| 77 61 72 64 20 22 5e 5c | 5c 73 20 2a 5c 5c 2a 5c |ward "^\|\s *\\*\|
|00000ae0| 5c 73 20 2a 24 22 20 74 | 20 22 2a 20 22 20 22 5c |\s *$" t| "* " "\|
|00000af0| 5c 28 5c 5c 73 20 5c 5c | 7c 5b 28 29 2c 3a 5d 5c |\(\\s \\||[(),:]\|
|00000b00| 5c 29 22 20 22 5e 5c 5c | 73 20 2a 24 5c 5c 7c 5e |\)" "^\\|s *$\\|^|
|00000b10| 5c 5c 73 20 5c 5c 2a 22 | 20 22 5e 5c 5c 73 20 2a |\\s \\*"| "^\\s *|
|00000b20| 24 22 20 22 5c 6e 5c 6e | 22 20 2d 32 20 69 6e 64 |$" "\n\n|" -2 ind|
|00000b30| 65 6e 74 2d 72 65 6c 61 | 74 69 76 65 2d 6d 61 79 |ent-rela|tive-may|
|00000b40| 62 65 20 22 5c 5c 73 57 | 22 20 22 5c 6e 5c 6e 5c |be "\\sW|" "\n\n\|
|00000b50| 6e 22 20 6c 65 66 74 2d | 6d 61 72 67 69 6e 20 22 |n" left-|margin "|
|00000b60| 22 20 22 5c 5c 73 20 2a | 24 22 20 22 20 22 20 22 |" "\\s *|$" " " "|
|00000b70| 28 22 20 22 29 3a 20 22 | 20 22 5c 5c 73 20 2a 5c |(" "): "| "\\s *\|
|00000b80| 5c 28 5c 5c 2a 5c 5c 73 | 20 2a 5c 5c 29 3f 24 22 |\(\\*\\s| *\\)?$"|
|00000b90| 20 22 3a 20 22 5d 20 38 | 20 22 5c 0a 46 69 6e 64 | ": "] 8| "\.Find|
|00000ba0| 20 63 68 61 6e 67 65 20 | 6c 6f 67 20 66 69 6c 65 | change |log file|
|00000bb0| 20 61 6e 64 20 61 64 64 | 20 61 6e 20 65 6e 74 72 | and add| an entr|
|00000bc0| 79 20 66 6f 72 20 74 6f | 64 61 79 2e 0a 4f 70 74 |y for to|day..Opt|
|00000bd0| 69 6f 6e 61 6c 20 61 72 | 67 20 28 69 6e 74 65 72 |ional ar|g (inter|
|00000be0| 61 63 74 69 76 65 20 70 | 72 65 66 69 78 29 20 6e |active p|refix) n|
|00000bf0| 6f 6e 2d 6e 69 6c 20 6d | 65 61 6e 73 20 70 72 6f |on-nil m|eans pro|
|00000c00| 6d 70 74 20 66 6f 72 20 | 75 73 65 72 20 6e 61 6d |mpt for |user nam|
|00000c10| 65 20 61 6e 64 20 73 69 | 74 65 2e 0a 53 65 63 6f |e and si|te..Seco|
|00000c20| 6e 64 20 61 72 67 20 69 | 73 20 66 69 6c 65 20 6e |nd arg i|s file n|
|00000c30| 61 6d 65 20 6f 66 20 63 | 68 61 6e 67 65 20 6c 6f |ame of c|hange lo|
|00000c40| 67 2e 20 20 49 66 20 6e | 69 6c 2c 20 75 73 65 73 |g. If n|il, uses|
|00000c50| 20 60 63 68 61 6e 67 65 | 2d 6c 6f 67 2d 64 65 66 | `change|-log-def|
|00000c60| 61 75 6c 74 2d 6e 61 6d | 65 27 2e 0a 54 68 69 72 |ault-nam|e'..Thir|
|00000c70| 64 20 61 72 67 20 4f 54 | 48 45 52 2d 57 49 4e 44 |d arg OT|HER-WIND|
|00000c80| 4f 57 20 6e 6f 6e 2d 6e | 69 6c 20 6d 65 61 6e 73 |OW non-n|il means|
|00000c90| 20 76 69 73 69 74 20 69 | 6e 20 6f 74 68 65 72 20 | visit i|n other |
|00000ca0| 77 69 6e 64 6f 77 2e 22 | 20 28 6c 69 73 74 20 63 |window."| (list c|
|00000cb0| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|00000cc0| 67 20 28 70 72 6f 6d 70 | 74 2d 66 6f 72 2d 63 68 |g (promp|t-for-ch|
|00000cd0| 61 6e 67 65 2d 6c 6f 67 | 2d 6e 61 6d 65 29 29 5d |ange-log|-name))]|
|00000ce0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 64 64 |).(defal|ias 'add|
|00000cf0| 2d 63 68 61 6e 67 65 2d | 6c 6f 67 2d 65 6e 74 72 |-change-|log-entr|
|00000d00| 79 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 23 |y-other-|window #|
|00000d10| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 77 68 6f 61 |[(&optio|nal whoa|
|00000d20| 6d 69 20 66 69 6c 65 2d | 6e 61 6d 65 29 20 22 c0 |mi file-|name) ".|
|00000d30| 09 5c 6e c3 23 87 22 20 | 5b 61 64 64 2d 63 68 61 |.\n.#." |[add-cha|
|00000d40| 6e 67 65 2d 6c 6f 67 2d | 65 6e 74 72 79 20 77 68 |nge-log-|entry wh|
|00000d50| 6f 61 6d 69 20 66 69 6c | 65 2d 6e 61 6d 65 20 74 |oami fil|e-name t|
|00000d60| 5d 20 34 20 22 5c 0a 46 | 69 6e 64 20 63 68 61 6e |] 4 "\.F|ind chan|
|00000d70| 67 65 20 6c 6f 67 20 66 | 69 6c 65 20 69 6e 20 6f |ge log f|ile in o|
|00000d80| 74 68 65 72 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |ther win|dow and |
|00000d90| 61 64 64 20 61 6e 20 65 | 6e 74 72 79 20 66 6f 72 |add an e|ntry for|
|00000da0| 20 74 6f 64 61 79 2e 0a | 46 69 72 73 74 20 61 72 | today..|First ar|
|00000db0| 67 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 70 |g (inter|active p|
|00000dc0| 72 65 66 69 78 29 20 6e | 6f 6e 2d 6e 69 6c 20 6d |refix) n|on-nil m|
|00000dd0| 65 61 6e 73 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |eans pro|mpt for |
|00000de0| 75 73 65 72 20 6e 61 6d | 65 20 61 6e 64 20 73 69 |user nam|e and si|
|00000df0| 74 65 2e 0a 53 65 63 6f | 6e 64 20 61 72 67 20 69 |te..Seco|nd arg i|
|00000e00| 73 20 66 69 6c 65 20 6e | 61 6d 65 20 6f 66 20 63 |s file n|ame of c|
|00000e10| 68 61 6e 67 65 20 6c 6f | 67 2e 0a 49 6e 74 65 72 |hange lo|g..Inter|
|00000e20| 61 63 74 69 76 65 6c 79 | 2c 20 77 69 74 68 20 61 |actively|, with a|
|00000e30| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00000e40| 2c 20 74 68 65 20 66 69 | 6c 65 20 6e 61 6d 65 20 |, the fi|le name |
|00000e50| 69 73 20 70 72 6f 6d 70 | 74 65 64 20 66 6f 72 2e |is promp|ted for.|
|00000e60| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 85 |" (byte-|code "..|
|00000e70| 08 00 08 c1 20 44 87 22 | 20 5b 63 75 72 72 65 6e |.... D."| [curren|
|00000e80| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 70 72 6f |t-prefix|-arg pro|
|00000e90| 6d 70 74 2d 66 6f 72 2d | 63 68 61 6e 67 65 2d 6c |mpt-for-|change-l|
|00000ea0| 6f 67 2d 6e 61 6d 65 5d | 20 32 29 5d 29 0a 28 64 |og-name]| 2)]).(d|
|00000eb0| 65 66 61 6c 69 61 73 20 | 27 63 68 61 6e 67 65 2d |efalias |'change-|
|00000ec0| 6c 6f 67 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |log-mode| #[nil "|
|00000ed0| c0 20 88 c1 20 88 c2 13 | c4 15 c6 16 07 c8 16 09 |. .. ...|........|
|00000ee0| ca cb 21 cc 4c 88 ca cd | 21 ce 4c 88 ca cf 21 d0 |..!.L...|!.L...!.|
|00000ef0| 4c 88 ca d1 21 d2 4c 88 | ca d3 21 d4 4c 88 d5 d6 |L...!.L.|..!.L...|
|00000f00| 21 87 22 20 5b 6b 69 6c | 6c 2d 61 6c 6c 2d 6c 6f |!." [kil|l-all-lo|
|00000f10| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 73 20 69 6e |cal-vari|ables in|
|00000f20| 64 65 6e 74 65 64 2d 74 | 65 78 74 2d 6d 6f 64 65 |dented-t|ext-mode|
|00000f30| 20 63 68 61 6e 67 65 2d | 6c 6f 67 2d 6d 6f 64 65 | change-|log-mode|
|00000f40| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 43 68 61 | major-m|ode "Cha|
|00000f50| 6e 67 65 20 4c 6f 67 22 | 20 6d 6f 64 65 2d 6e 61 |nge Log"| mode-na|
|00000f60| 6d 65 20 38 20 6c 65 66 | 74 2d 6d 61 72 67 69 6e |me 8 lef|t-margin|
|00000f70| 20 37 34 20 66 69 6c 6c | 2d 63 6f 6c 75 6d 6e 20 | 74 fill|-column |
|00000f80| 6d 61 6b 65 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |make-loc|al-varia|
|00000f90| 62 6c 65 20 70 61 72 61 | 67 72 61 70 68 2d 73 74 |ble para|graph-st|
|00000fa0| 61 72 74 20 22 5e 5c 5c | 73 20 2a 24 5c 5c 7c 5e |art "^\\|s *$\\|^|
|00000fb0| 5e 4c 22 20 70 61 72 61 | 67 72 61 70 68 2d 73 65 |^L" para|graph-se|
|00000fc0| 70 61 72 61 74 65 20 22 | 5e 5c 5c 73 20 2a 24 5c |parate "|^\\s *$\|
|00000fd0| 5c 7c 5e 5e 4c 5c 5c 7c | 5e 5c 5c 73 77 22 20 70 |\|^^L\\||^\\sw" p|
|00000fe0| 61 67 65 2d 64 65 6c 69 | 6d 69 74 65 72 20 22 5e |age-deli|miter "^|
|00000ff0| 5c 5c 3c 5c 5c 7c 5e 0c | 22 20 76 65 72 73 69 6f |\\<\\|^.|" versio|
|00001000| 6e 2d 63 6f 6e 74 72 6f | 6c 20 6e 65 76 65 72 20 |n-contro|l never |
|00001010| 61 64 61 70 74 69 76 65 | 2d 66 69 6c 6c 2d 72 65 |adaptive|-fill-re|
|00001020| 67 65 78 70 20 22 5c 5c | 73 20 2a 22 20 72 75 6e |gexp "\\|s *" run|
|00001030| 2d 68 6f 6f 6b 73 20 63 | 68 61 6e 67 65 2d 6c 6f |-hooks c|hange-lo|
|00001040| 67 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 32 20 22 |g-mode-h|ook] 2 "|
|00001050| 5c 0a 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |\.Major |mode for|
|00001060| 20 65 64 69 74 69 6e 67 | 20 63 68 61 6e 67 65 20 | editing| change |
|00001070| 6c 6f 67 73 3b 20 6c 69 | 6b 65 20 49 6e 64 65 6e |logs; li|ke Inden|
|00001080| 74 65 64 20 54 65 78 74 | 20 4d 6f 64 65 2e 0a 50 |ted Text| Mode..P|
|00001090| 72 65 76 65 6e 74 73 20 | 6e 75 6d 65 72 69 63 20 |revents |numeric |
|000010a0| 62 61 63 6b 75 70 73 20 | 61 6e 64 20 73 65 74 73 |backups |and sets|
|000010b0| 20 60 6c 65 66 74 2d 6d | 61 72 67 69 6e 27 20 74 | `left-m|argin' t|
|000010c0| 6f 20 38 20 61 6e 64 20 | 60 66 69 6c 6c 2d 63 6f |o 8 and |`fill-co|
|000010d0| 6c 75 6d 6e 27 20 74 6f | 20 37 34 2e 0a 4e 65 77 |lumn' to| 74..New|
|000010e0| 20 6c 6f 67 20 65 6e 74 | 72 69 65 73 20 61 72 65 | log ent|ries are|
|000010f0| 20 75 73 75 61 6c 6c 79 | 20 6d 61 64 65 20 77 69 | usually| made wi|
|00001100| 74 68 20 5c 5c 5b 61 64 | 64 2d 63 68 61 6e 67 65 |th \\[ad|d-change|
|00001110| 2d 6c 6f 67 2d 65 6e 74 | 72 79 5d 20 6f 72 20 5c |-log-ent|ry] or \|
|00001120| 5c 5b 61 64 64 2d 63 68 | 61 6e 67 65 2d 6c 6f 67 |\[add-ch|ange-log|
|00001130| 2d 65 6e 74 72 79 2d 6f | 74 68 65 72 2d 77 69 6e |-entry-o|ther-win|
|00001140| 64 6f 77 5d 2e 0a 45 61 | 63 68 20 65 6e 74 72 79 |dow]..Ea|ch entry|
|00001150| 20 62 65 68 61 76 65 73 | 20 61 73 20 61 20 70 61 | behaves| as a pa|
|00001160| 72 61 67 72 61 70 68 2c | 20 61 6e 64 20 74 68 65 |ragraph,| and the|
|00001170| 20 65 6e 74 72 69 65 73 | 20 66 6f 72 20 6f 6e 65 | entries| for one|
|00001180| 20 64 61 79 20 61 73 20 | 61 20 70 61 67 65 2e 0a | day as |a page..|
|00001190| 52 75 6e 73 20 60 63 68 | 61 6e 67 65 2d 6c 6f 67 |Runs `ch|ange-log|
|000011a0| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 27 2e 22 20 6e 69 |-mode-ho|ok'." ni|
|000011b0| 6c 5d 29 0a 28 64 65 66 | 76 61 72 20 61 64 64 2d |l]).(def|var add-|
|000011c0| 6c 6f 67 2d 63 75 72 72 | 65 6e 74 2d 64 65 66 75 |log-curr|ent-defu|
|000011d0| 6e 2d 68 65 61 64 65 72 | 2d 72 65 67 65 78 70 20 |n-header|-regexp |
|000011e0| 22 5e 5c 5c 28 5b 41 2d | 5a 5d 5b 41 2d 5a 5f 20 |"^\\([A-|Z][A-Z_ |
|000011f0| 5d 2a 5b 41 2d 5a 5f 5d | 5c 5c 7c 5b 61 2d 7a 5f |]*[A-Z_]|\\|[a-z_|
|00001200| 2d 2d 2d 41 2d 5a 5d 2b | 5c 5c 29 5b 20 09 5d 2a |---A-Z]+|\\)[ .]*|
|00001210| 5b 3a 3d 5d 22 20 22 5c | 0a 2a 48 65 75 72 69 73 |[:=]" "\|.*Heuris|
|00001220| 74 69 63 20 72 65 67 65 | 78 70 20 75 73 65 64 20 |tic rege|xp used |
|00001230| 62 79 20 60 61 64 64 2d | 6c 6f 67 2d 63 75 72 72 |by `add-|log-curr|
|00001240| 65 6e 74 2d 64 65 66 75 | 6e 27 20 66 6f 72 20 75 |ent-defu|n' for u|
|00001250| 6e 6b 6e 6f 77 6e 20 6d | 61 6a 6f 72 20 6d 6f 64 |nknown m|ajor mod|
|00001260| 65 73 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |es.").(d|efalias |
|00001270| 27 61 64 64 2d 6c 6f 67 | 2d 63 75 72 72 65 6e 74 |'add-log|-current|
|00001280| 2d 64 65 66 75 6e 20 23 | 5b 6e 69 6c 20 22 c0 c1 |-defun #|[nil "..|
|00001290| c2 8f 87 22 20 5b 6e 69 | 6c 20 28 62 79 74 65 2d |..." [ni|l (byte-|
|000012a0| 63 6f 64 65 20 22 8a 60 | 18 09 c2 3e 83 41 00 6d |code ".`|...>.A.m|
|000012b0| 84 10 00 c3 75 88 c4 20 | 88 c5 20 88 08 60 57 85 |....u.. |.. ..`W.|
|000012c0| ac 01 c6 c7 21 88 08 60 | 59 85 ac 01 c8 c9 21 83 |....!..`|Y.....!.|
|000012d0| 2f 00 c3 75 88 c6 c3 21 | 88 ca cb 77 88 60 c6 c3 |/..u...!|...w.`..|
|000012e0| 21 88 60 7b 82 ac 01 09 | cc 3e 83 85 00 8a cd 79 |!.`{....|.>.....y|
|000012f0| 88 60 ce 5a 66 cf 3d 83 | 5a 00 c7 79 88 82 4b 00 |.`.Zf.=.|Z..y..K.|
|00001300| c8 d0 21 29 83 85 00 cd | 79 88 60 ce 5a 66 cf 3d |..!)....|y.`.Zf.=|
|00001310| 83 73 00 c7 79 88 82 64 | 00 d1 d2 21 88 d3 cb 77 |.s..y..d|...!...w|
|00001320| 88 60 c6 c3 21 88 60 7b | 82 ac 01 09 d4 3e 83 2f |.`..!.`{|.....>./|
|00001330| 01 cd 79 88 c8 d5 21 84 | 9a 00 c3 79 88 82 8e 00 |..y...!.|...y....|
|00001340| 6d 84 a1 00 c3 75 88 c4 | 20 88 c5 20 88 08 60 57 |m....u..| .. ..`W|
|00001350| 85 ac 01 d6 c3 21 88 cb | 89 1e 17 1e 18 c7 79 88 |.....!..|......y.|
|00001360| 6f 84 ca 00 c8 d9 21 83 | ca 00 c7 79 88 82 ba 00 |o.....!.|...y....|
|00001370| cb da db 8f 83 f2 00 0e | 17 62 88 dc c3 21 88 60 |........|.b...!.`|
|00001380| 66 dd 55 83 e8 00 c6 c3 | 21 88 de cb 77 88 60 c6 |f.U.....|!...w.`.|
|00001390| c3 21 88 60 7b 82 2b 01 | 60 16 18 cb df e0 8f 85 |.!.`{.+.|`.......|
|000013a0| 2b 01 8a 0e 18 62 88 6f | 84 16 01 8a c7 79 88 c8 |+....b.o|.....y..|
|000013b0| e1 21 29 83 16 01 c7 79 | 88 82 01 01 08 60 59 29 |.!)....y|.....`Y)|
|000013c0| 85 2b 01 60 0e 18 56 85 | 2b 01 60 d6 c3 21 88 60 |.+.`..V.|+.`..!.`|
|000013d0| 7b 2a 82 ac 01 09 e2 3e | 83 4b 01 e3 e4 cb e5 23 |{*.....>|.K.....#|
|000013e0| 85 ac 01 cd 94 62 88 60 | 54 cb 7f 88 60 7b 82 ac |.....b.`|T...`{..|
|000013f0| 01 09 e6 3d 83 61 01 e3 | e7 cb e5 23 85 ac 01 c3 |...=.a..|...#....|
|00001400| 94 c3 95 7b 82 ac 01 09 | e8 3d 83 95 01 e9 20 88 |...{....|.=.... .|
|00001410| e5 1e 2a eb ec cb e5 23 | 85 91 01 eb ed cb e5 23 |..*....#|.......#|
|00001420| 83 87 01 c7 75 88 d3 cb | 78 88 82 8a 01 cb 7f 88 |....u...|x.......|
|00001430| 60 c6 c7 21 88 60 7b 29 | 82 ac 01 cb 1e 2a cb 7f |`..!.`{)|.....*..|
|00001440| 88 e3 0e 2e 60 ef 5a e5 | 23 85 ab 01 c3 94 c3 95 |....`.Z.|#.......|
|00001450| 7b 29 2a 87 22 20 5b 6c | 6f 63 61 74 69 6f 6e 20 |{)*." [l|ocation |
|00001460| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 28 65 6d 61 63 |major-mo|de (emac|
|00001470| 73 2d 6c 69 73 70 2d 6d | 6f 64 65 20 6c 69 73 70 |s-lisp-m|ode lisp|
|00001480| 2d 6d 6f 64 65 20 73 63 | 68 65 6d 65 2d 6d 6f 64 |-mode sc|heme-mod|
|00001490| 65 29 20 31 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |e) 1 beg|inning-o|
|000014a0| 66 2d 64 65 66 75 6e 20 | 65 6e 64 2d 6f 66 2d 64 |f-defun |end-of-d|
|000014b0| 65 66 75 6e 20 66 6f 72 | 77 61 72 64 2d 73 65 78 |efun for|ward-sex|
|000014c0| 70 20 2d 31 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |p -1 loo|king-at |
|000014d0| 22 5c 5c 73 28 22 20 22 | 20 22 20 6e 69 6c 20 28 |"\\s(" "| " nil (|
|000014e0| 63 2d 6d 6f 64 65 20 28 | 71 75 6f 74 65 20 63 2b |c-mode (|quote c+|
|000014f0| 2b 2d 6d 6f 64 65 29 29 | 20 30 20 32 20 39 32 20 |+-mode))| 0 2 92 |
|00001500| 22 5b 20 09 5d 2a 23 5b | 20 09 5d 2a 64 65 66 69 |"[ .]*#[| .]*defi|
|00001510| 6e 65 5b 20 09 5d 22 20 | 73 65 61 72 63 68 2d 66 |ne[ .]" |search-f|
|00001520| 6f 72 77 61 72 64 20 22 | 64 65 66 69 6e 65 22 20 |orward "|define" |
|00001530| 22 20 09 22 20 28 63 2d | 6d 6f 64 65 20 28 71 75 |" ." (c-|mode (qu|
|00001540| 6f 74 65 20 63 2b 2b 2d | 6d 6f 64 65 29 29 20 22 |ote c++-|mode)) "|
|00001550| 7b 5c 5c 7c 5c 5c 28 5c | 5c 73 20 2a 24 5c 5c 29 |{\\|\\(\|\s *$\\)|
|00001560| 22 20 62 61 63 6b 77 61 | 72 64 2d 73 65 78 70 20 |" backwa|rd-sexp |
|00001570| 74 65 6d 20 62 65 67 20 | 22 5b 20 09 5c 6e 5d 22 |tem beg |"[ .\n]"|
|00001580| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 8a c0 79 | (byte-c|ode "..y|
|00001590| 88 c1 c0 21 88 c2 79 88 | 60 13 c4 c5 21 29 85 18 |...!..y.|`...!)..|
|000015a0| 00 0e 06 0b 59 87 22 20 | 5b 31 20 62 61 63 6b 77 |....Y." |[1 backw|
|000015b0| 61 72 64 2d 73 65 78 70 | 20 30 20 74 65 6d 20 6c |ard-sexp| 0 tem l|
|000015c0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 44 45 46 55 4e |ooking-a|t "DEFUN|
|000015d0| 5c 5c 62 22 20 6c 6f 63 | 61 74 69 6f 6e 5d 20 32 |\\b" loc|ation] 2|
|000015e0| 29 20 28 28 65 72 72 6f | 72 29 29 20 64 6f 77 6e |) ((erro|r)) down|
|000015f0| 2d 6c 69 73 74 20 33 34 | 20 22 20 2c 22 20 28 62 |-list 34| " ," (b|
|00001600| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c2 c1 |yte-code| "..!...|
|00001610| 21 88 c3 c4 78 88 c5 87 | 22 20 5b 64 6f 77 6e 2d |!...x...|" [down-|
|00001620| 6c 69 73 74 20 31 20 62 | 61 63 6b 77 61 72 64 2d |list 1 b|ackward-|
|00001630| 75 70 2d 6c 69 73 74 20 | 22 20 09 22 20 6e 69 6c |up-list |" ." nil|
|00001640| 20 74 5d 20 32 29 20 28 | 28 65 72 72 6f 72 29 29 | t] 2) (|(error))|
|00001650| 20 22 5b 5e 5c 6e 0c 5d | 22 20 28 54 65 58 2d 6d | "[^\n.]|" (TeX-m|
|00001660| 6f 64 65 20 70 6c 61 69 | 6e 2d 54 65 58 2d 6d 6f |ode plai|n-TeX-mo|
|00001670| 64 65 20 4c 61 54 65 58 | 2d 6d 6f 64 65 20 70 6c |de LaTeX|-mode pl|
|00001680| 61 69 6e 2d 74 65 78 2d | 6d 6f 64 65 20 6c 61 74 |ain-tex-|mode lat|
|00001690| 65 78 2d 6d 6f 64 65 29 | 20 72 65 2d 73 65 61 72 |ex-mode)| re-sear|
|000016a0| 63 68 2d 62 61 63 6b 77 | 61 72 64 20 22 5c 5c 5c |ch-backw|ard "\\\|
|000016b0| 5c 5c 5c 28 73 75 62 5c | 5c 29 2a 5c 5c 28 73 65 |\\\(sub\|\)*\\(se|
|000016c0| 63 74 69 6f 6e 5c 5c 7c | 70 61 72 61 67 72 61 70 |ction\\||paragrap|
|000016d0| 68 5c 5c 7c 63 68 61 70 | 74 65 72 5c 5c 29 22 20 |h\\|chap|ter\\)" |
|000016e0| 74 20 74 65 78 69 6e 66 | 6f 2d 6d 6f 64 65 20 22 |t texinf|o-mode "|
|000016f0| 5e 40 6e 6f 64 65 5b 20 | 09 5d 2b 5c 5c 28 5b 5e |^@node[ |.]+\\([^|
|00001700| 2c 5d 2b 5c 5c 29 2c 22 | 20 66 6f 72 74 72 61 6e |,]+\\),"| fortran|
|00001710| 2d 6d 6f 64 65 20 62 65 | 67 69 6e 6e 69 6e 67 2d |-mode be|ginning-|
|00001720| 6f 66 2d 66 6f 72 74 72 | 61 6e 2d 73 75 62 70 72 |of-fortr|an-subpr|
|00001730| 6f 67 72 61 6d 20 63 61 | 73 65 2d 66 6f 6c 64 2d |ogram ca|se-fold-|
|00001740| 73 65 61 72 63 68 20 72 | 65 2d 73 65 61 72 63 68 |search r|e-search|
|00001750| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5b 20 09 5d 2a |-forward| "^[ .]*|
|00001760| 5c 5c 28 70 72 6f 67 72 | 61 6d 5c 5c 7c 73 75 62 |\\(progr|am\\|sub|
|00001770| 72 6f 75 74 69 6e 65 5c | 5c 7c 66 75 6e 63 74 69 |routine\|\|functi|
|00001780| 6f 6e 5c 5c 7c 5b 20 09 | 61 2d 7a 30 2d 39 2a 5d |on\\|[ .|a-z0-9*]|
|00001790| 2a 5b 20 09 5d 2b 66 75 | 6e 63 74 69 6f 6e 5c 5c |*[ .]+fu|nction\\|
|000017a0| 29 22 20 22 5b 28 5c 6e | 5d 22 20 61 64 64 2d 6c |)" "[(\n|]" add-l|
|000017b0| 6f 67 2d 63 75 72 72 65 | 6e 74 2d 64 65 66 75 6e |og-curre|nt-defun|
|000017c0| 2d 68 65 61 64 65 72 2d | 72 65 67 65 78 70 20 31 |-header-|regexp 1|
|000017d0| 30 30 30 30 5d 20 34 29 | 20 28 28 65 72 72 6f 72 |0000] 4)| ((error|
|000017e0| 29 29 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |))] 3 "\|.Return |
|000017f0| 6e 61 6d 65 20 6f 66 20 | 66 75 6e 63 74 69 6f 6e |name of |function|
|00001800| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 70 6f 69 6e | definit|ion poin|
|00001810| 74 20 69 73 20 69 6e 2c | 20 6f 72 20 6e 69 6c 2e |t is in,| or nil.|
|00001820| 0a 0a 55 6e 64 65 72 73 | 74 61 6e 64 73 20 43 2c |..Unders|tands C,|
|00001830| 20 4c 69 73 70 2c 20 4c | 61 54 65 58 20 28 5c 22 | Lisp, L|aTeX (\"|
|00001840| 66 75 6e 63 74 69 6f 6e | 73 5c 22 20 61 72 65 20 |function|s\" are |
|00001850| 63 68 61 70 74 65 72 73 | 2c 20 73 65 63 74 69 6f |chapters|, sectio|
|00001860| 6e 73 2c 20 2e 2e 2e 29 | 2c 0a 54 65 78 69 6e 66 |ns, ...)|,.Texinf|
|00001870| 6f 20 28 40 6e 6f 64 65 | 20 74 69 74 6c 65 73 29 |o (@node| titles)|
|00001880| 2c 20 61 6e 64 20 46 6f | 72 74 72 61 6e 2e 0a 0a |, and Fo|rtran...|
|00001890| 4f 74 68 65 72 20 6d 6f | 64 65 73 20 61 72 65 20 |Other mo|des are |
|000018a0| 68 61 6e 64 6c 65 64 20 | 62 79 20 61 20 68 65 75 |handled |by a heu|
|000018b0| 72 69 73 74 69 63 20 74 | 68 61 74 20 6c 6f 6f 6b |ristic t|hat look|
|000018c0| 73 20 69 6e 20 74 68 65 | 20 31 30 4b 20 62 65 66 |s in the| 10K bef|
|000018d0| 6f 72 65 0a 70 6f 69 6e | 74 20 66 6f 72 20 75 70 |ore.poin|t for up|
|000018e0| 70 65 72 63 61 73 65 20 | 68 65 61 64 69 6e 67 73 |percase |headings|
|000018f0| 20 73 74 61 72 74 69 6e | 67 20 69 6e 20 74 68 65 | startin|g in the|
|00001900| 20 66 69 72 73 74 20 63 | 6f 6c 75 6d 6e 20 6f 72 | first c|olumn or|
|00001910| 0a 69 64 65 6e 74 69 66 | 69 65 72 73 20 66 6f 6c |.identif|iers fol|
|00001920| 6c 6f 77 65 64 20 62 79 | 20 60 3a 27 20 6f 72 20 |lowed by| `:' or |
|00001930| 60 3d 27 2c 20 73 65 65 | 20 76 61 72 69 61 62 6c |`=', see| variabl|
|00001940| 65 0a 60 61 64 64 2d 6c | 6f 67 2d 63 75 72 72 65 |e.`add-l|og-curre|
|00001950| 6e 74 2d 64 65 66 75 6e | 2d 68 65 61 64 65 72 2d |nt-defun|-header-|
|00001960| 72 65 67 65 78 70 27 2e | 0a 0a 48 61 73 20 61 20 |regexp'.|..Has a |
|00001970| 70 72 65 66 65 72 65 6e | 63 65 20 6f 66 20 6c 6f |preferen|ce of lo|
|00001980| 6f 6b 69 6e 67 20 62 61 | 63 6b 77 61 72 64 73 2e |oking ba|ckwards.|
|00001990| 22 5d 29 0a 28 70 72 6f | 76 69 64 65 20 28 71 75 |"]).(pro|vide (qu|
|000019a0| 6f 74 65 20 61 64 64 2d | 6c 6f 67 29 29 0a |ote add-|log)). |
+--------+-------------------------+-------------------------+--------+--------+
