home *** CD-ROM | disk | FTP | other *** search
Emacs Compiled Lisp | 1998-05-21 | 12.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 |
100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
99%
| file
| data
| default
| |
100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 31 3a 35 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:58 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 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 76 72 6d 6c 2d 6d | 6f 64 65 2e 65 6c 0a 3b |s/vrml-m|ode.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 76 72 6d 6c | (erro|r "`vrml|
|000001f0| 2d 6d 6f 64 65 2e 65 6c | 27 20 77 61 73 20 63 6f |-mode.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 28 63 75 73 74 6f 6d 2d |nil))...|(custom-|
|00000260| 64 65 63 6c 61 72 65 2d | 67 72 6f 75 70 20 27 76 |declare-|group 'v|
|00000270| 72 6d 6c 20 6e 69 6c 20 | 22 4d 61 6a 6f 72 20 6d |rml nil |"Major m|
|00000280| 6f 64 65 20 66 6f 72 20 | 65 64 69 74 69 6e 67 20 |ode for |editing |
|00000290| 56 52 4d 4c 20 28 2e 77 | 72 6c 29 20 66 69 6c 65 |VRML (.w|rl) file|
|000002a0| 73 2e 22 20 3a 67 72 6f | 75 70 20 27 6c 61 6e 67 |s." :gro|up 'lang|
|000002b0| 75 61 67 65 73 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |uages).(|custom-d|
|000002c0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|000002d0| 27 76 72 6d 6c 2d 69 6e | 64 65 6e 74 2d 6c 65 76 |'vrml-in|dent-lev|
|000002e0| 65 6c 20 27 33 20 22 2a | 49 6e 64 65 6e 74 61 74 |el '3 "*|Indentat|
|000002f0| 69 6f 6e 20 6f 66 20 56 | 52 4d 4c 20 73 74 61 74 |ion of V|RML stat|
|00000300| 65 6d 65 6e 74 73 20 77 | 69 74 68 20 72 65 73 70 |ements w|ith resp|
|00000310| 65 63 74 20 74 6f 20 63 | 6f 6e 74 61 69 6e 69 6e |ect to c|ontainin|
|00000320| 67 20 62 6c 6f 63 6b 2e | 22 20 3a 74 79 70 65 20 |g block.|" :type |
|00000330| 27 69 6e 74 65 67 65 72 | 20 3a 67 72 6f 75 70 20 |'integer| :group |
|00000340| 27 76 72 6d 6c 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |'vrml).(|custom-d|
|00000350| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000360| 27 76 72 6d 6c 2d 61 75 | 74 6f 2d 6e 65 77 6c 69 |'vrml-au|to-newli|
|00000370| 6e 65 20 27 6e 69 6c 20 | 22 2a 4e 6f 6e 2d 6e 69 |ne 'nil |"*Non-ni|
|00000380| 6c 20 6d 65 61 6e 73 20 | 61 75 74 6f 6d 61 74 69 |l means |automati|
|00000390| 63 61 6c 6c 79 20 6e 65 | 77 6c 69 6e 65 20 62 65 |cally ne|wline be|
|000003a0| 66 6f 72 65 20 61 6e 64 | 20 61 66 74 65 72 20 62 |fore and| after b|
|000003b0| 72 61 63 65 73 5c 6e 69 | 6e 73 65 72 74 65 64 20 |races\ni|nserted |
|000003c0| 69 6e 20 56 52 4d 4c 20 | 63 6f 64 65 2e 22 20 3a |in VRML |code." :|
|000003d0| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|000003e0| 72 6f 75 70 20 27 76 72 | 6d 6c 29 0a 28 63 75 73 |roup 'vr|ml).(cus|
|000003f0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000400| 61 62 6c 65 20 27 76 72 | 6d 6c 2d 74 61 62 2d 61 |able 'vr|ml-tab-a|
|00000410| 6c 77 61 79 73 2d 69 6e | 64 65 6e 74 20 27 74 20 |lways-in|dent 't |
|00000420| 22 2a 43 6f 6e 74 72 6f | 6c 20 65 66 66 65 63 74 |"*Contro|l effect|
|00000430| 20 6f 66 20 54 41 42 20 | 6b 65 79 2e 5c 6e 49 66 | of TAB |key.\nIf|
|00000440| 20 74 20 28 74 68 65 20 | 64 65 66 61 75 6c 74 29 | t (the |default)|
|00000450| 2c 20 61 6c 77 61 79 73 | 20 69 6e 64 65 6e 74 20 |, always| indent |
|00000460| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2e 5c 6e 49 |current |line.\nI|
|00000470| 66 20 6e 69 6c 20 61 6e | 64 20 70 6f 69 6e 74 20 |f nil an|d point |
|00000480| 69 73 20 6e 6f 74 20 69 | 6e 20 74 68 65 20 69 6e |is not i|n the in|
|00000490| 64 65 6e 74 61 74 69 6f | 6e 20 61 72 65 61 20 61 |dentatio|n area a|
|000004a0| 74 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |t the be|ginning |
|000004b0| 6f 66 5c 6e 74 68 65 20 | 6c 69 6e 65 2c 20 61 20 |of\nthe |line, a |
|000004c0| 54 41 42 20 69 73 20 69 | 6e 73 65 72 74 65 64 2e |TAB is i|nserted.|
|000004d0| 5c 6e 4f 74 68 65 72 20 | 76 61 6c 75 65 73 20 63 |\nOther |values c|
|000004e0| 61 75 73 65 20 74 68 65 | 20 66 69 72 73 74 20 70 |ause the| first p|
|000004f0| 6f 73 73 69 62 6c 65 20 | 61 63 74 69 6f 6e 20 66 |ossible |action f|
|00000500| 72 6f 6d 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |rom the |followin|
|00000510| 67 20 6c 69 73 74 5c 6e | 74 6f 20 74 61 6b 65 20 |g list\n|to take |
|00000520| 70 6c 61 63 65 3a 5c 6e | 5c 6e 20 20 31 2e 20 4d |place:\n|\n 1. M|
|00000530| 6f 76 65 20 66 72 6f 6d | 20 62 65 67 69 6e 6e 69 |ove from| beginni|
|00000540| 6e 67 20 6f 66 20 6c 69 | 6e 65 20 74 6f 20 63 6f |ng of li|ne to co|
|00000550| 72 72 65 63 74 20 69 6e | 64 65 6e 74 61 74 69 6f |rrect in|dentatio|
|00000560| 6e 2e 5c 6e 20 20 32 2e | 20 44 65 6c 65 74 65 20 |n.\n 2.| Delete |
|00000570| 61 6e 20 65 6d 70 74 79 | 20 63 6f 6d 6d 65 6e 74 |an empty| comment|
|00000580| 2e 5c 6e 20 20 33 2e 20 | 4d 6f 76 65 20 66 6f 72 |.\n 3. |Move for|
|00000590| 77 61 72 64 20 74 6f 20 | 73 74 61 72 74 20 6f 66 |ward to |start of|
|000005a0| 20 63 6f 6d 6d 65 6e 74 | 2c 20 69 6e 64 65 6e 74 | comment|, indent|
|000005b0| 69 6e 67 20 69 66 20 6e | 65 63 65 73 73 61 72 79 |ing if n|ecessary|
|000005c0| 2e 5c 6e 20 20 34 2e 20 | 4d 6f 76 65 20 66 6f 72 |.\n 4. |Move for|
|000005d0| 77 61 72 64 20 74 6f 20 | 65 6e 64 20 6f 66 20 6c |ward to |end of l|
|000005e0| 69 6e 65 2c 20 69 6e 64 | 65 6e 74 69 6e 67 20 69 |ine, ind|enting i|
|000005f0| 66 20 6e 65 63 65 73 73 | 61 72 79 2e 5c 6e 20 20 |f necess|ary.\n |
|00000600| 35 2e 20 43 72 65 61 74 | 65 20 61 6e 20 65 6d 70 |5. Creat|e an emp|
|00000610| 74 79 20 63 6f 6d 6d 65 | 6e 74 2e 5c 6e 20 20 36 |ty comme|nt.\n 6|
|00000620| 2e 20 4d 6f 76 65 20 62 | 61 63 6b 77 61 72 64 20 |. Move b|ackward |
|00000630| 74 6f 20 73 74 61 72 74 | 20 6f 66 20 63 6f 6d 6d |to start| of comm|
|00000640| 65 6e 74 2c 20 69 6e 64 | 65 6e 74 69 6e 67 20 69 |ent, ind|enting i|
|00000650| 66 20 6e 65 63 65 73 73 | 61 72 79 2e 22 20 3a 74 |f necess|ary." :t|
|00000660| 79 70 65 20 27 28 63 68 | 6f 69 63 65 20 28 63 6f |ype '(ch|oice (co|
|00000670| 6e 73 74 20 3a 74 61 67 | 20 22 6f 6e 22 20 74 29 |nst :tag| "on" t)|
|00000680| 20 28 63 6f 6e 73 74 20 | 3a 74 61 67 20 22 6f 66 | (const |:tag "of|
|00000690| 66 22 20 6e 69 6c 29 20 | 28 73 65 78 70 20 3a 66 |f" nil) |(sexp :f|
|000006a0| 6f 72 6d 61 74 20 22 25 | 74 5c 6e 22 20 3a 74 61 |ormat "%|t\n" :ta|
|000006b0| 67 20 22 54 68 65 20 57 | 6f 72 6b 73 22 20 6f 74 |g "The W|orks" ot|
|000006c0| 68 65 72 29 29 20 3a 67 | 72 6f 75 70 20 27 76 72 |her)) :g|roup 'vr|
|000006d0| 6d 6c 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |ml).(cus|tom-decl|
|000006e0| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 76 72 |are-vari|able 'vr|
|000006f0| 6d 6c 2d 75 73 65 2d 68 | 61 69 72 79 2d 63 6f 6d |ml-use-h|airy-com|
|00000700| 6d 65 6e 74 2d 64 65 74 | 65 63 74 6f 72 20 27 74 |ment-det|ector 't|
|00000710| 20 22 2a 49 66 20 6e 6f | 74 20 60 6e 69 6c 27 2c | "*If no|t `nil',|
|00000720| 20 74 68 65 6e 20 74 68 | 65 20 6d 6f 72 65 20 63 | then th|e more c|
|00000730| 6f 6d 70 6c 69 63 61 74 | 65 64 2c 20 62 75 74 20 |omplicat|ed, but |
|00000740| 73 6c 6f 77 65 72 2c 20 | 63 6f 6d 6d 65 6e 74 5c |slower, |comment\|
|00000750| 6e 64 65 74 65 63 74 69 | 6e 67 20 66 75 6e 63 74 |ndetecti|ng funct|
|00000760| 69 6f 6e 20 69 73 20 75 | 73 65 64 2e 22 20 3a 74 |ion is u|sed." :t|
|00000770| 79 70 65 20 27 62 6f 6f | 6c 65 61 6e 20 3a 67 72 |ype 'boo|lean :gr|
|00000780| 6f 75 70 20 27 76 72 6d | 6c 29 0a 23 40 33 39 20 |oup 'vrm|l).#@39 |
|00000790| 41 62 62 72 65 76 20 74 | 61 62 6c 65 20 75 73 65 |Abbrev t|able use|
|000007a0| 64 20 77 68 69 6c 65 20 | 69 6e 20 56 52 4d 4c 20 |d while |in VRML |
|000007b0| 6d 6f 64 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 76 |mode...(|defvar v|
|000007c0| 72 6d 6c 2d 6d 6f 64 65 | 2d 61 62 62 72 65 76 2d |rml-mode|-abbrev-|
|000007d0| 74 61 62 6c 65 20 6e 69 | 6c 20 28 23 24 20 2e 20 |table ni|l (#$ . |
|000007e0| 31 39 33 36 29 29 0a 28 | 64 65 66 69 6e 65 2d 61 |1936)).(|define-a|
|000007f0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 27 76 72 6d |bbrev-ta|ble 'vrm|
|00000800| 6c 2d 6d 6f 64 65 2d 61 | 62 62 72 65 76 2d 74 61 |l-mode-a|bbrev-ta|
|00000810| 62 6c 65 20 6e 69 6c 29 | 0a 23 40 32 37 20 4b 65 |ble nil)|.#@27 Ke|
|00000820| 79 6d 61 70 20 75 73 65 | 64 20 69 6e 20 56 52 4d |ymap use|d in VRM|
|00000830| 4c 20 6d 6f 64 65 2e 1f | 0a 28 64 65 66 76 61 72 |L mode..|.(defvar|
|00000840| 20 76 72 6d 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 6e | vrml-mo|de-map n|
|00000850| 69 6c 20 28 23 24 20 2e | 20 32 30 37 38 29 29 0a |il (#$ .| 2078)).|
|00000860| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac a6 c1 |(byte-co|de "....|
|00000870| 20 10 c2 08 c0 5c 22 88 | c3 08 c4 c5 23 88 c3 08 | ....\".|....#...|
|00000880| c6 c5 23 88 c3 08 c7 c8 | 23 88 c3 08 c9 ca 23 88 |..#.....|#.....#.|
|00000890| c3 08 cb cc 23 88 c1 87 | 22 20 5b 76 72 6d 6c 2d |....#...|" [vrml-|
|000008a0| 6d 6f 64 65 2d 6d 61 70 | 20 6d 61 6b 65 2d 73 70 |mode-map| make-sp|
|000008b0| 61 72 73 65 2d 6b 65 79 | 6d 61 70 20 73 65 74 2d |arse-key|map set-|
|000008c0| 6b 65 79 6d 61 70 2d 6e | 61 6d 65 20 64 65 66 69 |keymap-n|ame defi|
|000008d0| 6e 65 2d 6b 65 79 20 22 | 7b 22 20 76 72 6d 6c 2d |ne-key "|{" vrml-|
|000008e0| 65 6c 65 63 74 72 69 63 | 2d 62 72 61 63 65 20 22 |electric|-brace "|
|000008f0| 7d 22 20 22 1b 11 22 20 | 69 6e 64 65 6e 74 2d 76 |}" ".." |indent-v|
|00000900| 72 6d 6c 2d 65 78 70 20 | 22 09 22 20 76 72 6d 6c |rml-exp |"." vrml|
|00000910| 2d 69 6e 64 65 6e 74 2d | 63 6f 6d 6d 61 6e 64 20 |-indent-|command |
|00000920| 22 bb 22 20 76 72 6d 6c | 2d 69 6e 64 65 6e 74 2d |"." vrml|-indent-|
|00000930| 66 6f 72 2d 63 6f 6d 6d | 65 6e 74 5d 20 34 29 0a |for-comm|ent] 4).|
|00000940| 23 40 34 33 20 53 79 6e | 74 61 78 20 74 61 62 6c |#@43 Syn|tax tabl|
|00000950| 65 20 69 6e 20 75 73 65 | 20 69 6e 20 76 72 6d 6c |e in use| in vrml|
|00000960| 2d 6d 6f 64 65 20 62 75 | 66 66 65 72 73 2e 1f 0a |-mode bu|ffers...|
|00000970| 28 64 65 66 76 61 72 20 | 76 72 6d 6c 2d 6d 6f 64 |(defvar |vrml-mod|
|00000980| 65 2d 73 79 6e 74 61 78 | 2d 74 61 62 6c 65 20 6e |e-syntax|-table n|
|00000990| 69 6c 20 28 23 24 20 2e | 20 32 33 37 33 29 29 0a |il (#$ .| 2373)).|
|000009a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ac fb c1 |(byte-co|de "....|
|000009b0| 20 10 c2 c3 c4 08 23 88 | c2 c5 c4 08 23 88 c2 c6 | .....#.|....#...|
|000009c0| c7 08 23 88 c2 c8 c9 08 | 23 88 c2 ca cb 08 23 88 |..#.....|#.....#.|
|000009d0| c2 cc cb 08 23 88 c2 cd | cb 08 23 88 c2 ce cb 08 |....#...|..#.....|
|000009e0| 23 88 c2 cf cb 08 23 88 | c2 d0 cb 08 23 88 c2 d1 |#.....#.|....#...|
|000009f0| cb 08 23 88 c2 d2 cb 08 | 23 88 c2 d3 cb 08 23 88 |..#.....|#.....#.|
|00000a00| c2 d4 cb 08 23 88 c2 d5 | cb 08 23 88 c2 d6 cb 08 |....#...|..#.....|
|00000a10| 23 88 c2 d7 cb 08 23 88 | c2 d8 cb 08 23 88 c2 d9 |#.....#.|....#...|
|00000a20| da 08 23 88 c2 db dc 08 | 23 88 c1 87 22 20 5b 76 |..#.....|#..." [v|
|00000a30| 72 6d 6c 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |rml-mode|-syntax-|
|00000a40| 74 61 62 6c 65 20 6d 61 | 6b 65 2d 73 79 6e 74 61 |table ma|ke-synta|
|00000a50| 78 2d 74 61 62 6c 65 20 | 6d 6f 64 69 66 79 2d 73 |x-table |modify-s|
|00000a60| 79 6e 74 61 78 2d 65 6e | 74 72 79 20 3f 5c 6e 20 |yntax-en|try ?\n |
|00000a70| 22 3e 22 20 3f 5c 5e 4c | 20 3f 5c 23 20 22 3c 22 |">" ?\^L| ?\# "<"|
|00000a80| 20 3f 5c 5c 20 22 5c 5c | 22 20 3f 5c 25 20 22 5f | ?\\ "\\|" ?\% "_|
|00000a90| 22 20 3f 5c 40 20 3f 5c | 26 20 3f 5c 2a 20 3f 5c |" ?\@ ?\|& ?\* ?\|
|00000aa0| 2d 20 3f 5c 3a 20 3f 5c | 21 20 3f 5c 24 20 3f 5c |- ?\: ?\|! ?\$ ?\|
|00000ab0| 2f 20 3f 5c 7e 20 3f 5c | 3c 20 3f 5c 3d 20 3f 5c |/ ?\~ ?\|< ?\= ?\|
|00000ac0| 3e 20 3f 5c 7c 20 3f 5c | 2b 20 22 2e 22 20 3f 5c |> ?\| ?\|+ "." ?\|
|00000ad0| 27 20 22 5c 22 22 5d 20 | 34 29 0a 28 63 75 73 74 |' "\""] |4).(cust|
|00000ae0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000af0| 62 6c 65 20 27 76 72 6d | 6c 2d 6d 6f 64 65 2d 68 |ble 'vrm|l-mode-h|
|00000b00| 6f 6f 6b 20 27 6e 69 6c | 20 22 48 6f 6f 6b 20 72 |ook 'nil| "Hook r|
|00000b10| 75 6e 20 6f 6e 20 65 6e | 74 72 79 20 74 6f 20 56 |un on en|try to V|
|00000b20| 52 4d 4c 20 6d 6f 64 65 | 2e 22 20 3a 74 79 70 65 |RML mode|." :type|
|00000b30| 20 27 68 6f 6f 6b 20 3a | 67 72 6f 75 70 20 27 76 | 'hook :|group 'v|
|00000b40| 72 6d 6c 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |rml).(by|te-code |
|00000b50| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c0 87 22 20 |"..!....|..B..." |
|00000b60| 5b 62 6f 75 6e 64 70 20 | 76 72 6d 6c 2d 6b 65 79 |[boundp |vrml-key|
|00000b70| 77 6f 72 64 2d 6c 69 73 | 74 20 28 22 41 73 63 69 |word-lis|t ("Asci|
|00000b80| 69 54 65 78 74 22 20 22 | 43 6f 6e 65 22 20 22 43 |iText" "|Cone" "C|
|00000b90| 75 62 65 22 20 22 43 79 | 6c 69 6e 64 65 72 22 20 |ube" "Cy|linder" |
|00000ba0| 22 49 6e 64 65 78 65 64 | 46 61 63 65 53 65 74 22 |"Indexed|FaceSet"|
|00000bb0| 20 22 49 6e 64 65 78 65 | 64 4c 69 6e 65 53 65 74 | "Indexe|dLineSet|
|00000bc0| 22 20 22 50 6f 69 6e 74 | 53 65 74 22 20 22 53 70 |" "Point|Set" "Sp|
|00000bd0| 68 65 72 65 22 20 22 43 | 6f 6f 72 64 69 6e 61 74 |here" "C|oordinat|
|00000be0| 65 33 22 20 22 46 6f 6e | 74 53 74 79 6c 65 22 20 |e3" "Fon|tStyle" |
|00000bf0| 22 49 6e 66 6f 22 20 22 | 4c 4f 44 22 20 22 4d 61 |"Info" "|LOD" "Ma|
|00000c00| 74 65 72 69 61 6c 22 20 | 22 4d 61 74 65 72 69 61 |terial" |"Materia|
|00000c10| 6c 42 69 6e 64 69 6e 67 | 22 20 22 4e 6f 72 6d 61 |lBinding|" "Norma|
|00000c20| 6c 22 20 22 4e 6f 72 6d | 61 6c 42 69 6e 64 69 6e |l" "Norm|alBindin|
|00000c30| 67 22 20 22 54 65 78 74 | 75 72 65 32 22 20 22 54 |g" "Text|ure2" "T|
|00000c40| 65 78 74 75 72 65 32 54 | 72 61 6e 73 66 6f 72 6d |exture2T|ransform|
|00000c50| 22 20 22 54 65 78 74 75 | 72 65 43 6f 6f 72 64 69 |" "Textu|reCoordi|
|00000c60| 6e 61 74 65 32 22 20 22 | 53 68 61 70 65 48 69 6e |nate2" "|ShapeHin|
|00000c70| 74 73 22 20 22 4d 61 74 | 72 69 78 54 72 61 6e 73 |ts" "Mat|rixTrans|
|00000c80| 66 6f 72 6d 22 20 22 52 | 6f 74 61 74 69 6f 6e 22 |form" "R|otation"|
|00000c90| 20 22 53 63 61 6c 65 22 | 20 22 54 72 61 6e 73 66 | "Scale"| "Transf|
|00000ca0| 6f 72 6d 22 20 22 54 72 | 61 6e 73 6c 61 74 69 6f |orm" "Tr|anslatio|
|00000cb0| 6e 22 20 22 4f 72 74 68 | 6f 67 72 61 70 68 69 63 |n" "Orth|ographic|
|00000cc0| 43 61 6d 65 72 61 22 20 | 22 50 65 72 73 70 65 63 |Camera" |"Perspec|
|00000cd0| 74 69 76 65 43 61 6d 65 | 72 61 22 20 22 44 69 72 |tiveCame|ra" "Dir|
|00000ce0| 65 63 74 69 6f 6e 61 6c | 4c 69 67 68 74 22 20 22 |ectional|Light" "|
|00000cf0| 50 6f 69 6e 74 4c 69 67 | 68 74 22 20 22 53 70 6f |PointLig|ht" "Spo|
|00000d00| 74 4c 69 67 68 74 22 20 | 22 47 72 6f 75 70 22 20 |tLight" |"Group" |
|00000d10| 22 53 65 70 61 72 61 74 | 6f 72 22 20 22 53 77 69 |"Separat|or" "Swi|
|00000d20| 74 63 68 22 20 22 54 72 | 61 6e 73 66 6f 72 6d 53 |tch" "Tr|ansformS|
|00000d30| 65 70 61 72 61 74 6f 72 | 22 20 22 57 57 57 41 6e |eparator|" "WWWAn|
|00000d40| 63 68 6f 72 22 20 22 57 | 57 57 49 6e 6c 69 6e 65 |chor" "W|WWInline|
|00000d50| 22 20 22 41 6e 63 68 6f | 72 22 20 22 41 70 70 65 |" "Ancho|r" "Appe|
|00000d60| 61 72 61 6e 63 65 22 20 | 22 41 75 64 69 6f 43 6c |arance" |"AudioCl|
|00000d70| 69 70 22 20 22 42 61 63 | 6b 67 72 6f 75 6e 64 22 |ip" "Bac|kground"|
|00000d80| 20 22 42 69 6c 6c 62 6f | 61 72 64 22 20 22 42 6f | "Billbo|ard" "Bo|
|00000d90| 78 22 20 22 43 6f 6c 6c | 69 73 69 6f 6e 22 20 22 |x" "Coll|ision" "|
|00000da0| 43 6f 6c 6f 72 22 20 22 | 43 6f 6c 6f 72 49 6e 74 |Color" "|ColorInt|
|00000db0| 65 72 70 6f 6c 61 74 6f | 72 22 20 22 43 6f 6f 72 |erpolato|r" "Coor|
|00000dc0| 64 69 6e 61 74 65 22 20 | 22 43 6f 6f 72 64 69 6e |dinate" |"Coordin|
|00000dd0| 61 74 65 49 6e 74 65 72 | 70 6f 6c 61 74 6f 72 22 |ateInter|polator"|
|00000de0| 20 22 43 79 6c 69 6e 64 | 65 72 53 65 6e 73 6f 72 | "Cylind|erSensor|
|00000df0| 22 20 22 44 69 73 6b 53 | 65 6e 73 6f 72 22 20 22 |" "DiskS|ensor" "|
|00000e00| 45 6c 65 76 61 74 69 6f | 6e 47 72 69 64 22 20 22 |Elevatio|nGrid" "|
|00000e10| 45 78 74 72 75 73 69 6f | 6e 22 20 22 46 6f 67 22 |Extrusio|n" "Fog"|
|00000e20| 20 22 46 6f 6e 74 53 74 | 79 6c 65 22 20 22 49 6d | "FontSt|yle" "Im|
|00000e30| 61 67 65 54 65 78 74 75 | 72 65 22 20 22 49 6e 6c |ageTextu|re" "Inl|
|00000e40| 69 6e 65 22 20 22 4d 6f | 76 69 65 54 65 78 74 75 |ine" "Mo|vieTextu|
|00000e50| 72 65 22 20 22 4e 61 76 | 69 67 61 74 69 6f 6e 49 |re" "Nav|igationI|
|00000e60| 6e 66 6f 22 20 22 4e 6f | 72 6d 61 6c 49 6e 74 65 |nfo" "No|rmalInte|
|00000e70| 72 70 6f 6c 61 74 6f 72 | 22 20 22 4f 72 69 65 6e |rpolator|" "Orien|
|00000e80| 74 61 74 69 6f 6e 49 6e | 74 65 72 70 6f 6c 61 74 |tationIn|terpolat|
|00000e90| 6f 72 22 20 22 50 69 78 | 65 6c 54 65 78 74 75 72 |or" "Pix|elTextur|
|00000ea0| 65 22 20 22 50 6c 61 6e | 65 53 65 6e 73 6f 72 22 |e" "Plan|eSensor"|
|00000eb0| 20 22 50 6f 73 69 74 69 | 6f 6e 49 6e 74 65 72 70 | "Positi|onInterp|
|00000ec0| 6f 6c 61 74 6f 72 22 20 | 22 50 72 6f 78 69 6d 69 |olator" |"Proximi|
|00000ed0| 74 79 53 65 6e 73 6f 72 | 22 20 22 53 63 61 6c 61 |tySensor|" "Scala|
|00000ee0| 72 49 6e 74 65 72 70 6f | 6c 61 74 6f 72 22 20 22 |rInterpo|lator" "|
|00000ef0| 53 63 72 69 70 74 22 20 | 22 53 68 61 70 65 22 20 |Script" |"Shape" |
|00000f00| 22 53 6f 75 6e 64 22 20 | 22 53 70 68 65 72 65 53 |"Sound" |"SphereS|
|00000f10| 65 6e 73 6f 72 22 20 22 | 54 65 78 74 22 20 22 54 |ensor" "|Text" "T|
|00000f20| 65 78 74 75 72 65 54 72 | 61 6e 73 66 6f 72 6d 22 |extureTr|ansform"|
|00000f30| 20 22 54 65 78 74 75 72 | 65 43 6f 6f 72 64 69 6e | "Textur|eCoordin|
|00000f40| 61 74 65 22 20 22 54 69 | 6d 65 53 65 6e 73 6f 72 |ate" "Ti|meSensor|
|00000f50| 22 20 22 54 6f 75 63 68 | 53 65 6e 73 6f 72 22 20 |" "Touch|Sensor" |
|00000f60| 22 56 69 65 77 70 6f 69 | 6e 74 22 20 22 56 69 73 |"Viewpoi|nt" "Vis|
|00000f70| 69 62 69 6c 69 74 79 53 | 65 6e 73 6f 72 22 20 22 |ibilityS|ensor" "|
|00000f80| 57 6f 72 6c 64 49 6e 66 | 6f 22 20 22 65 76 65 6e |WorldInf|o" "even|
|00000f90| 74 49 6e 22 20 22 65 76 | 65 6e 74 4f 75 74 22 20 |tIn" "ev|entOut" |
|00000fa0| 22 66 69 65 6c 64 22 20 | 22 65 78 70 6f 73 65 64 |"field" |"exposed|
|00000fb0| 46 69 65 6c 64 22 20 22 | 55 53 45 22 20 22 52 4f |Field" "|USE" "RO|
|00000fc0| 55 54 45 22 20 22 54 4f | 22 20 22 49 53 22 20 22 |UTE" "TO|" "IS" "|
|00000fd0| 54 52 55 45 22 20 22 46 | 41 4c 53 45 22 20 22 4e |TRUE" "F|ALSE" "N|
|00000fe0| 55 4c 4c 22 29 20 63 75 | 72 72 65 6e 74 2d 6c 6f |ULL") cu|rrent-lo|
|00000ff0| 61 64 2d 6c 69 73 74 5d | 20 32 29 0a 23 40 36 39 |ad-list]| 2).#@69|
|00001000| 20 4b 65 79 77 6f 72 64 | 73 20 74 6f 20 68 69 67 | Keyword|s to hig|
|00001010| 68 6c 69 67 68 74 20 66 | 6f 72 20 56 52 4d 4c 2e |hlight f|or VRML.|
|00001020| 20 20 53 65 65 20 76 61 | 72 69 61 62 6c 65 20 60 | See va|riable `|
|00001030| 66 6f 6e 74 2d 6c 6f 63 | 6b 2d 6b 65 79 77 6f 72 |font-loc|k-keywor|
|00001040| 64 73 27 2e 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ds'...(d|efconst |
|00001050| 76 72 6d 6c 2d 66 6f 6e | 74 2d 6c 6f 63 6b 2d 6b |vrml-fon|t-lock-k|
|00001060| 65 79 77 6f 72 64 73 20 | 28 62 79 74 65 2d 63 6f |eywords |(byte-co|
|00001070| 64 65 20 22 c0 c1 c2 45 | c3 c4 c5 0e 06 c7 23 c8 |de "...E|......#.|
|00001080| 51 c1 42 44 87 22 20 5b | 22 5c 5c 28 44 45 46 5c |Q.BD." [|"\\(DEF\|
|00001090| 5c 7c 50 52 4f 54 4f 5c | 5c 7c 45 58 54 45 52 4e |\|PROTO\|\|EXTERN|
|000010a0| 50 52 4f 54 4f 5c 5c 29 | 5b 20 09 5c 6e 5d 2b 5c |PROTO\\)|[ .\n]+\|
|000010b0| 5c 28 5b 5e 20 09 5c 6e | 5d 2b 5c 5c 29 22 20 32 |\([^ .\n|]+\\)" 2|
|000010c0| 20 66 6f 6e 74 2d 6c 6f | 63 6b 2d 66 75 6e 63 74 | font-lo|ck-funct|
|000010d0| 69 6f 6e 2d 6e 61 6d 65 | 2d 66 61 63 65 20 22 5c |ion-name|-face "\|
|000010e0| 5c 28 5c 5c 73 2d 5c 5c | 7c 5e 5c 5c 29 5c 5c 28 |\(\\s-\\||^\\)\\(|
|000010f0| 22 20 6d 61 70 63 6f 6e | 63 61 74 20 69 64 65 6e |" mapcon|cat iden|
|00001100| 74 69 74 79 20 76 72 6d | 6c 2d 6b 65 79 77 6f 72 |tity vrm|l-keywor|
|00001110| 64 2d 6c 69 73 74 20 22 | 5c 5c 7c 22 20 22 5c 5c |d-list "|\\|" "\\|
|00001120| 29 5c 5c 28 5c 5c 73 2d | 5c 5c 7c 24 5c 5c 29 22 |)\\(\\s-|\\|$\\)"|
|00001130| 5d 20 36 29 20 28 23 24 | 20 2e 20 34 30 39 37 29 |] 6) (#$| . 4097)|
|00001140| 29 0a 23 40 38 34 36 20 | 4d 61 6a 6f 72 20 6d 6f |).#@846 |Major mo|
|00001150| 64 65 20 66 6f 72 20 65 | 64 69 74 69 6e 67 20 56 |de for e|diting V|
|00001160| 52 4d 4c 20 63 6f 64 65 | 2e 0a 45 78 70 72 65 73 |RML code|..Expres|
|00001170| 73 69 6f 6e 20 61 6e 64 | 20 6c 69 73 74 20 63 6f |sion and| list co|
|00001180| 6d 6d 61 6e 64 73 20 75 | 6e 64 65 72 73 74 61 6e |mmands u|nderstan|
|00001190| 64 20 61 6c 6c 20 56 52 | 4d 4c 20 62 72 61 63 6b |d all VR|ML brack|
|000011a0| 65 74 73 2e 0a 54 61 62 | 20 69 6e 64 65 6e 74 73 |ets..Tab| indents|
|000011b0| 20 66 6f 72 20 56 52 4d | 4c 20 63 6f 64 65 2e 0a | for VRM|L code..|
|000011c0| 50 61 72 61 67 72 61 70 | 68 73 20 61 72 65 20 73 |Paragrap|hs are s|
|000011d0| 65 70 61 72 61 74 65 64 | 20 62 79 20 62 6c 61 6e |eparated| by blan|
|000011e0| 6b 20 6c 69 6e 65 73 20 | 6f 6e 6c 79 2e 0a 44 65 |k lines |only..De|
|000011f0| 6c 65 74 65 20 63 6f 6e | 76 65 72 74 73 20 74 61 |lete con|verts ta|
|00001200| 62 73 20 74 6f 20 73 70 | 61 63 65 73 20 61 73 20 |bs to sp|aces as |
|00001210| 69 74 20 6d 6f 76 65 73 | 20 62 61 63 6b 2e 0a 0a |it moves| back...|
|00001220| 56 61 72 69 61 62 6c 65 | 73 20 63 6f 6e 74 72 6f |Variable|s contro|
|00001230| 6c 6c 69 6e 67 20 69 6e | 64 65 6e 74 61 74 69 6f |lling in|dentatio|
|00001240| 6e 20 73 74 79 6c 65 3a | 0a 20 20 76 72 6d 6c 2d |n style:|. vrml-|
|00001250| 69 6e 64 65 6e 74 2d 6c | 65 76 65 6c 0a 20 20 20 |indent-l|evel. |
|00001260| 20 49 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 | Indenta|tion of |
|00001270| 56 52 4d 4c 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |VRML sta|tements |
|00001280| 77 69 74 68 69 6e 20 73 | 75 72 72 6f 75 6e 64 69 |within s|urroundi|
|00001290| 6e 67 20 62 6c 6f 63 6b | 2e 0a 0a 56 61 72 69 61 |ng block|...Varia|
|000012a0| 62 6c 65 73 20 63 6f 6e | 74 72 6f 6c 6c 69 6e 67 |bles con|trolling|
|000012b0| 20 75 73 65 72 20 69 6e | 74 65 72 61 63 74 69 6f | user in|teractio|
|000012c0| 6e 20 77 69 74 68 20 6d | 6f 64 65 20 28 73 65 65 |n with m|ode (see|
|000012d0| 20 76 61 72 69 61 62 6c | 65 0a 64 6f 63 75 6d 65 | variabl|e.docume|
|000012e0| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 64 65 74 61 |ntation |for deta|
|000012f0| 69 6c 73 29 3a 0a 20 20 | 76 72 6d 6c 2d 74 61 62 |ils):. |vrml-tab|
|00001300| 2d 61 6c 77 61 79 73 2d | 69 6e 64 65 6e 74 0a 20 |-always-|indent. |
|00001310| 20 20 20 43 6f 6e 74 72 | 6f 6c 73 20 61 63 74 69 | Contr|ols acti|
|00001320| 6f 6e 20 6f 66 20 54 41 | 42 20 6b 65 79 2e 0a 20 |on of TA|B key.. |
|00001330| 20 76 72 6d 6c 2d 61 75 | 74 6f 2d 6e 65 77 6c 69 | vrml-au|to-newli|
|00001340| 6e 65 0a 20 20 20 20 4e | 6f 6e 2d 6e 69 6c 20 6d |ne. N|on-nil m|
|00001350| 65 61 6e 73 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |eans aut|omatical|
|00001360| 6c 79 20 6e 65 77 6c 69 | 6e 65 20 62 65 66 6f 72 |ly newli|ne befor|
|00001370| 65 20 61 6e 64 20 61 66 | 74 65 72 20 62 72 61 63 |e and af|ter brac|
|00001380| 65 73 0a 20 20 20 20 69 | 6e 73 65 72 74 65 64 20 |es. i|nserted |
|00001390| 69 6e 20 56 52 4d 4c 20 | 63 6f 64 65 2e 0a 0a 54 |in VRML |code...T|
|000013a0| 75 72 6e 69 6e 67 20 6f | 6e 20 56 52 4d 4c 20 6d |urning o|n VRML m|
|000013b0| 6f 64 65 20 63 61 6c 6c | 73 20 74 68 65 20 76 61 |ode call|s the va|
|000013c0| 6c 75 65 20 6f 66 20 74 | 68 65 20 76 61 72 69 61 |lue of t|he varia|
|000013d0| 62 6c 65 20 60 76 72 6d | 6c 2d 6d 6f 64 65 2d 68 |ble `vrm|l-mode-h|
|000013e0| 6f 6f 6b 27 0a 77 69 74 | 68 20 6e 6f 20 61 72 67 |ook'.wit|h no arg|
|000013f0| 73 2c 20 69 66 20 74 68 | 61 74 20 76 61 6c 75 65 |s, if th|at value|
|00001400| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2e 20 20 52 65 | is non-|nil. Re|
|00001410| 61 64 20 74 68 65 20 64 | 6f 63 75 6d 65 6e 74 61 |ad the d|ocumenta|
|00001420| 74 69 6f 6e 20 66 6f 72 | 0a 60 76 72 6d 6c 2d 6d |tion for|.`vrml-m|
|00001430| 6f 64 65 2d 68 6f 6f 6b | 27 20 74 6f 20 73 65 65 |ode-hook|' to see|
|00001440| 20 77 68 61 74 20 6b 69 | 6e 64 73 20 6f 66 20 69 | what ki|nds of i|
|00001450| 6e 74 65 72 65 73 74 69 | 6e 67 20 68 6f 6f 6b 20 |nteresti|ng hook |
|00001460| 66 75 6e 63 74 69 6f 6e | 73 0a 61 6c 72 65 61 64 |function|s.alread|
|00001470| 79 20 65 78 69 73 74 2e | 0a 0a 43 6f 6d 6d 61 6e |y exist.|..Comman|
|00001480| 64 73 3a 0a 5c 7b 76 72 | 6d 6c 2d 6d 6f 64 65 2d |ds:.\{vr|ml-mode-|
|00001490| 6d 61 70 7d 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |map}..(d|efalias |
|000014a0| 27 76 72 6d 6c 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |'vrml-mo|de #[nil|
|000014b0| 20 22 c0 20 88 c1 5c 6e | 21 88 c3 14 c5 16 06 0e | ". ..\n|!.......|
|000014c0| 07 16 08 c9 0e 5c 6e 21 | 88 cb cc 21 88 cb cd 21 |.....\n!|...!...!|
|000014d0| 88 ce cf 21 ab 88 d0 16 | 0c d0 16 0d aa 89 d1 0e |...!....|........|
|000014e0| 12 50 89 16 0c 16 0d cb | d3 21 88 d4 16 13 cb d5 |.P......|.!......|
|000014f0| 21 88 d6 16 15 cb d7 21 | 88 d8 16 17 cb d9 21 88 |!......!|......!.|
|00001500| d4 16 19 cb da 21 88 db | 16 1a cb dc 21 88 dd 16 |.....!..|....!...|
|00001510| 1c cb de 21 88 df 16 1e | cb e0 21 88 e1 16 20 cb |...!....|..!... .|
|00001520| e2 21 88 e3 16 5c 22 cb | e4 21 88 e5 16 24 cb e6 |.!...\".|.!...$..|
|00001530| 21 88 0e 27 16 26 cb e8 | 21 88 d4 16 28 cb e9 21 |!..'.&..|!...(..!|
|00001540| 88 ea 16 29 cb eb 21 88 | ec 16 2b cb ed 21 88 ec |...)..!.|..+..!..|
|00001550| 16 2d cb ee 21 88 ef 16 | 2e cb f0 21 88 f1 16 30 |.-..!...|...!...0|
|00001560| f2 f3 21 87 22 20 5b 6b | 69 6c 6c 2d 61 6c 6c 2d |..!." [k|ill-all-|
|00001570| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00001580| 75 73 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 76 72 |use-loca|l-map vr|
|00001590| 6d 6c 2d 6d 6f 64 65 2d | 6d 61 70 20 76 72 6d 6c |ml-mode-|map vrml|
|000015a0| 2d 6d 6f 64 65 20 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |-mode ma|jor-mode|
|000015b0| 20 22 56 52 4d 4c 22 20 | 6d 6f 64 65 2d 6e 61 6d | "VRML" |mode-nam|
|000015c0| 65 20 76 72 6d 6c 2d 6d | 6f 64 65 2d 61 62 62 72 |e vrml-m|ode-abbr|
|000015d0| 65 76 2d 74 61 62 6c 65 | 20 6c 6f 63 61 6c 2d 61 |ev-table| local-a|
|000015e0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 73 65 74 2d |bbrev-ta|ble set-|
|000015f0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 76 72 6d |syntax-t|able vrm|
|00001600| 6c 2d 6d 6f 64 65 2d 73 | 79 6e 74 61 78 2d 74 61 |l-mode-s|yntax-ta|
|00001610| 62 6c 65 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ble make|-local-v|
|00001620| 61 72 69 61 62 6c 65 20 | 70 61 72 61 67 72 61 70 |ariable |paragrap|
|00001630| 68 2d 73 74 61 72 74 20 | 70 61 72 61 67 72 61 70 |h-start |paragrap|
|00001640| 68 2d 73 65 70 61 72 61 | 74 65 20 66 62 6f 75 6e |h-separa|te fboun|
|00001650| 64 70 20 6d 6f 76 65 2d | 74 6f 2d 6c 65 66 74 2d |dp move-|to-left-|
|00001660| 6d 61 72 67 69 6e 20 22 | 24 5c 5c 7c 0c 22 20 22 |margin "|$\\|." "|
|00001670| 5e 24 5c 5c 7c 22 20 70 | 61 67 65 2d 64 65 6c 69 |^$\\|" p|age-deli|
|00001680| 6d 69 74 65 72 20 70 61 | 72 61 67 72 61 70 68 2d |miter pa|ragraph-|
|00001690| 69 67 6e 6f 72 65 2d 66 | 69 6c 6c 2d 70 72 65 66 |ignore-f|ill-pref|
|000016a0| 69 78 20 74 20 66 69 6c | 6c 2d 70 61 72 61 67 72 |ix t fil|l-paragr|
|000016b0| 61 70 68 2d 66 75 6e 63 | 74 69 6f 6e 20 76 72 6d |aph-func|tion vrm|
|000016c0| 6c 2d 64 6f 2d 66 69 6c | 6c 2d 70 61 72 61 67 72 |l-do-fil|l-paragr|
|000016d0| 61 70 68 20 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 2d |aph inde|nt-line-|
|000016e0| 66 75 6e 63 74 69 6f 6e | 20 76 72 6d 6c 2d 69 6e |function| vrml-in|
|000016f0| 64 65 6e 74 2d 6c 69 6e | 65 20 72 65 71 75 69 72 |dent-lin|e requir|
|00001700| 65 2d 66 69 6e 61 6c 2d | 6e 65 77 6c 69 6e 65 20 |e-final-|newline |
|00001710| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 20 22 23 |comment-|start "#|
|00001720| 20 22 20 63 6f 6d 6d 65 | 6e 74 2d 73 74 61 72 74 | " comme|nt-start|
|00001730| 2d 73 6b 69 70 20 22 23 | 2b 20 2a 22 20 63 6f 6d |-skip "#|+ *" com|
|00001740| 6d 65 6e 74 2d 63 6f 6c | 75 6d 6e 20 34 30 20 63 |ment-col|umn 40 c|
|00001750| 6f 6d 6d 65 6e 74 2d 65 | 6e 64 20 22 22 20 6f 75 |omment-e|nd "" ou|
|00001760| 74 6c 69 6e 65 2d 72 65 | 67 65 78 70 20 22 5b 5e |tline-re|gexp "[^|
|00001770| 5c 6e 0d 5d 22 20 6f 75 | 74 6c 69 6e 65 2d 6c 65 |\n.]" ou|tline-le|
|00001780| 76 65 6c 20 76 72 6d 6c | 2d 6f 75 74 6c 69 6e 65 |vel vrml|-outline|
|00001790| 2d 6c 65 76 65 6c 20 66 | 6f 6e 74 2d 6c 6f 63 6b |-level f|ont-lock|
|000017a0| 2d 6b 65 79 77 6f 72 64 | 73 20 76 72 6d 6c 2d 66 |-keyword|s vrml-f|
|000017b0| 6f 6e 74 2d 6c 6f 63 6b | 2d 6b 65 79 77 6f 72 64 |ont-lock|-keyword|
|000017c0| 73 20 70 61 72 73 65 2d | 73 65 78 70 2d 69 67 6e |s parse-|sexp-ign|
|000017d0| 6f 72 65 2d 63 6f 6d 6d | 65 6e 74 73 20 64 65 66 |ore-comm|ents def|
|000017e0| 75 6e 2d 70 72 6f 6d 70 | 74 2d 72 65 67 65 78 70 |un-promp|t-regexp|
|000017f0| 20 22 5e 5b 5e 20 09 5c | 6e 23 7d 5d 5b 5e 5c 6e | "^[^ .\|n#}][^\n|
|00001800| 7d 5d 2b 7d 2a 5b 20 09 | 5d 2b 22 20 64 61 62 62 |}]+}*[ .|]+" dabb|
|00001810| 72 65 76 2d 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |rev-case|-fold-se|
|00001820| 61 72 63 68 20 6e 69 6c | 20 64 61 62 62 72 65 76 |arch nil| dabbrev|
|00001830| 2d 63 61 73 65 2d 72 65 | 70 6c 61 63 65 20 64 61 |-case-re|place da|
|00001840| 62 62 72 65 76 2d 61 62 | 62 72 65 76 2d 73 6b 69 |bbrev-ab|brev-ski|
|00001850| 70 2d 6c 65 61 64 69 6e | 67 2d 72 65 67 65 78 70 |p-leadin|g-regexp|
|00001860| 20 22 5b 24 21 5d 22 20 | 64 61 62 62 72 65 76 2d | "[$!]" |dabbrev-|
|00001870| 61 62 62 72 65 76 2d 63 | 68 61 72 2d 72 65 67 65 |abbrev-c|har-rege|
|00001880| 78 70 20 22 5c 5c 73 77 | 5c 5c 7c 5c 5c 73 5f 22 |xp "\\sw|\\|\\s_"|
|00001890| 20 72 75 6e 2d 68 6f 6f | 6b 73 20 76 72 6d 6c 2d | run-hoo|ks vrml-|
|000018a0| 6d 6f 64 65 2d 68 6f 6f | 6b 5d 20 33 20 28 23 24 |mode-hoo|k] 3 (#$|
|000018b0| 20 2e 20 34 34 32 34 29 | 20 6e 69 6c 5d 29 0a 23 | . 4424)| nil]).#|
|000018c0| 40 35 30 20 49 6e 73 65 | 72 74 20 63 68 61 72 61 |@50 Inse|rt chara|
|000018d0| 63 74 65 72 20 61 6e 64 | 20 63 6f 72 72 65 63 74 |cter and| correct|
|000018e0| 20 6c 69 6e 65 27 73 20 | 69 6e 64 65 6e 74 61 74 | line's |indentat|
|000018f0| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00001900| 27 76 72 6d 6c 2d 65 6c | 65 63 74 72 69 63 2d 62 |'vrml-el|ectric-b|
|00001910| 72 61 63 65 20 23 5b 28 | 61 72 67 29 20 22 08 ab |race #[(|arg) "..|
|00001920| a4 8a c1 c2 78 88 6e 29 | ac 86 c3 20 88 c4 20 88 |....x.n)|... .. .|
|00001930| 0d c6 56 ab 94 0e 07 63 | 88 c3 20 88 c4 20 88 0d |..V....c|.. .. ..|
|00001940| 53 89 15 aa 6c c8 0d 21 | 88 c3 20 87 22 20 5b 76 |S...l..!|.. ." [v|
|00001950| 72 6d 6c 2d 61 75 74 6f | 2d 6e 65 77 6c 69 6e 65 |rml-auto|-newline|
|00001960| 20 22 20 09 22 20 6e 69 | 6c 20 76 72 6d 6c 2d 69 | " ." ni|l vrml-i|
|00001970| 6e 64 65 6e 74 2d 6c 69 | 6e 65 20 6e 65 77 6c 69 |ndent-li|ne newli|
|00001980| 6e 65 20 61 72 67 20 30 | 20 6c 61 73 74 2d 63 6f |ne arg 0| last-co|
|00001990| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 73 65 6c 66 2d |mmand-ch|ar self-|
|000019a0| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 5d 20 |insert-c|ommand] |
|000019b0| 33 20 28 23 24 20 2e 20 | 36 33 34 30 29 20 22 70 |3 (#$ . |6340) "p|
|000019c0| 22 5d 29 0a 23 40 36 38 | 36 20 49 6e 64 65 6e 74 |"]).#@68|6 Indent|
|000019d0| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 20 61 73 | current| line as|
|000019e0| 20 56 52 4d 4c 20 63 6f | 64 65 2c 20 6f 72 20 69 | VRML co|de, or i|
|000019f0| 6e 20 73 6f 6d 65 20 63 | 61 73 65 73 20 69 6e 73 |n some c|ases ins|
|00001a00| 65 72 74 20 61 20 74 61 | 62 20 63 68 61 72 61 63 |ert a ta|b charac|
|00001a10| 74 65 72 2e 0a 49 66 20 | 76 72 6d 6c 2d 74 61 62 |ter..If |vrml-tab|
|00001a20| 2d 61 6c 77 61 79 73 2d | 69 6e 64 65 6e 74 20 69 |-always-|indent i|
|00001a30| 73 20 74 20 28 74 68 65 | 20 64 65 66 61 75 6c 74 |s t (the| default|
|00001a40| 29 2c 20 61 6c 77 61 79 | 73 20 69 6e 64 65 6e 74 |), alway|s indent|
|00001a50| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 2e 0a 49 | current| line..I|
|00001a60| 66 20 76 72 6d 6c 2d 74 | 61 62 2d 61 6c 77 61 79 |f vrml-t|ab-alway|
|00001a70| 73 2d 69 6e 64 65 6e 74 | 20 69 73 20 6e 69 6c 20 |s-indent| is nil |
|00001a80| 61 6e 64 20 70 6f 69 6e | 74 20 69 73 20 6e 6f 74 |and poin|t is not|
|00001a90| 20 69 6e 20 74 68 65 20 | 69 6e 64 65 6e 74 61 74 | in the |indentat|
|00001aa0| 69 6f 6e 0a 61 72 65 61 | 20 61 74 20 74 68 65 20 |ion.area| at the |
|00001ab0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 74 68 65 |beginnin|g of the|
|00001ac0| 20 6c 69 6e 65 2c 20 61 | 20 54 41 42 20 69 73 20 | line, a| TAB is |
|00001ad0| 69 6e 73 65 72 74 65 64 | 2e 0a 4f 74 68 65 72 20 |inserted|..Other |
|00001ae0| 76 61 6c 75 65 73 20 6f | 66 20 76 72 6d 6c 2d 74 |values o|f vrml-t|
|00001af0| 61 62 2d 61 6c 77 61 79 | 73 2d 69 6e 64 65 6e 74 |ab-alway|s-indent|
|00001b00| 20 63 61 75 73 65 20 74 | 68 65 20 66 69 72 73 74 | cause t|he first|
|00001b10| 20 70 6f 73 73 69 62 6c | 65 20 61 63 74 69 6f 6e | possibl|e action|
|00001b20| 0a 66 72 6f 6d 20 74 68 | 65 20 66 6f 6c 6c 6f 77 |.from th|e follow|
|00001b30| 69 6e 67 20 6c 69 73 74 | 20 74 6f 20 74 61 6b 65 |ing list| to take|
|00001b40| 20 70 6c 61 63 65 3a 0a | 0a 20 20 31 2e 20 4d 6f | place:.|. 1. Mo|
|00001b50| 76 65 20 66 72 6f 6d 20 | 62 65 67 69 6e 6e 69 6e |ve from |beginnin|
|00001b60| 67 20 6f 66 20 6c 69 6e | 65 20 74 6f 20 63 6f 72 |g of lin|e to cor|
|00001b70| 72 65 63 74 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rect ind|entation|
|00001b80| 2e 0a 20 20 32 2e 20 44 | 65 6c 65 74 65 20 61 6e |.. 2. D|elete an|
|00001b90| 20 65 6d 70 74 79 20 63 | 6f 6d 6d 65 6e 74 2e 0a | empty c|omment..|
|00001ba0| 20 20 33 2e 20 4d 6f 76 | 65 20 66 6f 72 77 61 72 | 3. Mov|e forwar|
|00001bb0| 64 20 74 6f 20 73 74 61 | 72 74 20 6f 66 20 63 6f |d to sta|rt of co|
|00001bc0| 6d 6d 65 6e 74 2c 20 69 | 6e 64 65 6e 74 69 6e 67 |mment, i|ndenting|
|00001bd0| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 2e 0a 20 | if nece|ssary.. |
|00001be0| 20 34 2e 20 4d 6f 76 65 | 20 66 6f 72 77 61 72 64 | 4. Move| forward|
|00001bf0| 20 74 6f 20 65 6e 64 20 | 6f 66 20 6c 69 6e 65 2c | to end |of line,|
|00001c00| 20 69 6e 64 65 6e 74 69 | 6e 67 20 69 66 20 6e 65 | indenti|ng if ne|
|00001c10| 63 65 73 73 61 72 79 2e | 0a 20 20 35 2e 20 43 72 |cessary.|. 5. Cr|
|00001c20| 65 61 74 65 20 61 6e 20 | 65 6d 70 74 79 20 63 6f |eate an |empty co|
|00001c30| 6d 6d 65 6e 74 2e 0a 20 | 20 36 2e 20 4d 6f 76 65 |mment.. | 6. Move|
|00001c40| 20 62 61 63 6b 77 61 72 | 64 20 74 6f 20 73 74 61 | backwar|d to sta|
|00001c50| 72 74 20 6f 66 20 63 6f | 6d 6d 65 6e 74 2c 20 69 |rt of co|mment, i|
|00001c60| 6e 64 65 6e 74 69 6e 67 | 20 69 66 20 6e 65 63 65 |ndenting| if nece|
|00001c70| 73 73 61 72 79 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ssary...|(defalia|
|00001c80| 73 20 27 76 72 6d 6c 2d | 69 6e 64 65 6e 74 2d 63 |s 'vrml-|indent-c|
|00001c90| 6f 6d 6d 61 6e 64 20 23 | 5b 28 26 6f 70 74 69 6f |ommand #|[(&optio|
|00001ca0| 6e 61 6c 20 61 72 67 29 | 20 22 08 ac 8d 69 c1 20 |nal arg)| "...i. |
|00001cb0| 58 ab 83 c2 20 87 c3 0c | 21 87 08 c5 61 ab 83 c2 |X... ...|!...a...|
|00001cc0| 20 87 60 1e 06 c7 7f 88 | 60 1e 08 c9 20 1e 5c 6e | .`.....|`... .\n|
|00001cd0| 0e 06 8a cb 79 88 60 29 | 55 ab 98 cb 79 88 c2 20 |....y.`)|U...y.. |
|00001ce0| 88 60 8a cb 79 88 60 29 | 55 ab 84 c7 7f aa ca cc |.`..y.`)|U.......|
|00001cf0| 20 aa c6 0e 5c 6e ab 92 | cd ce 21 ab 8d cf 20 88 | ...\n..|..!... .|
|00001d00| d0 c7 78 88 60 0e 08 7c | aa b0 0e 5c 6e ab 8d 0e |..x.`..||...\n...|
|00001d10| 06 60 57 ab 87 c2 20 88 | d1 20 aa 9f 0e 06 0e 08 |.`W... .|. ......|
|00001d20| 55 ac 88 0e 08 62 88 c2 | 20 aa 90 0e 5c 6e ac 87 |U....b..| ...\n..|
|00001d30| c2 20 88 d2 20 aa 85 c2 | 20 88 d1 20 2b 87 22 20 |. .. ...| .. +." |
|00001d40| 5b 76 72 6d 6c 2d 74 61 | 62 2d 61 6c 77 61 79 73 |[vrml-ta|b-always|
|00001d50| 2d 69 6e 64 65 6e 74 20 | 63 75 72 72 65 6e 74 2d |-indent |current-|
|00001d60| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 76 72 6d 6c |indentat|ion vrml|
|00001d70| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 73 65 6c |-indent-|line sel|
|00001d80| 66 2d 69 6e 73 65 72 74 | 2d 63 6f 6d 6d 61 6e 64 |f-insert|-command|
|00001d90| 20 61 72 67 20 74 20 69 | 70 6f 69 6e 74 20 6e 69 | arg t i|point ni|
|00001da0| 6c 20 65 6f 6c 70 6f 69 | 6e 74 20 76 72 6d 6c 2d |l eolpoi|nt vrml-|
|00001db0| 69 6e 2d 63 6f 6d 6d 65 | 6e 74 20 63 6f 6d 6d 65 |in-comme|nt comme|
|00001dc0| 6e 74 2d 70 20 30 20 62 | 61 63 6b 2d 74 6f 2d 69 |nt-p 0 b|ack-to-i|
|00001dd0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 6c 6f 6f 6b 69 |ndentati|on looki|
|00001de0| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 24 22 20 62 |ng-at "[| .]*$" b|
|00001df0| 61 63 6b 77 61 72 64 2d | 63 68 61 72 20 22 20 09 |ackward-|char " .|
|00001e00| 3b 22 20 69 6e 64 65 6e | 74 2d 66 6f 72 2d 63 6f |;" inden|t-for-co|
|00001e10| 6d 6d 65 6e 74 20 76 72 | 6d 6c 2d 69 6e 64 65 6e |mment vr|ml-inden|
|00001e20| 74 2d 66 6f 72 2d 63 6f | 6d 6d 65 6e 74 5d 20 32 |t-for-co|mment] 2|
|00001e30| 20 28 23 24 20 2e 20 36 | 36 30 32 29 20 22 70 22 | (#$ . 6|602) "p"|
|00001e40| 5d 29 0a 23 40 38 31 20 | 49 6e 64 65 6e 74 20 63 |]).#@81 |Indent c|
|00001e50| 75 72 72 65 6e 74 20 6c | 69 6e 65 20 61 73 20 56 |urrent l|ine as V|
|00001e60| 52 4d 4c 20 63 6f 64 65 | 2e 0a 52 65 74 75 72 6e |RML code|..Return|
|00001e70| 20 74 68 65 20 61 6d 6f | 75 6e 74 20 74 68 65 20 | the amo|unt the |
|00001e80| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 63 68 61 6e |indentat|ion chan|
|00001e90| 67 65 64 20 62 79 2e 1f | 0a 28 64 65 66 61 6c 69 |ged by..|.(defali|
|00001ea0| 61 73 20 27 76 72 6d 6c | 2d 69 6e 64 65 6e 74 2d |as 'vrml|-indent-|
|00001eb0| 6c 69 6e 65 20 23 5b 6e | 69 6c 20 22 c0 c1 21 c1 |line #[n|il "..!.|
|00001ec0| 89 89 64 60 5a 1a 1b 1c | 1d 1e 06 c7 79 88 60 15 |..d`Z...|....y.`.|
|00001ed0| 0e 06 c1 61 ab 86 c8 20 | 16 06 aa a6 c9 c1 77 88 |...a... |......w.|
|00001ee0| 0e 06 3c ab 85 0e 06 40 | 16 06 67 ca 55 ab 89 0e |..<....@|..g.U...|
|00001ef0| 06 0e 0b 5a 16 06 aa 8a | 67 cc 55 ab 85 0e 06 53 |...Z....|g.U....S|
|00001f00| 16 06 c9 c1 77 88 0e 06 | 69 5a 89 14 c7 55 ab 8e |....w...|iZ...U..|
|00001f10| 64 5c 6e 5a 60 56 ab 9b | 64 5c 6e 5a 62 88 aa 94 |d\nZ`V..|d\nZb...|
|00001f20| 0d 60 7c 88 0e 06 6a 88 | 64 5c 6e 5a 60 56 ab 85 |.`|...j.|d\nZ`V..|
|00001f30| 64 5c 6e 5a 62 88 0c 2d | 87 22 20 5b 63 61 6c 63 |d\nZb..-|." [calc|
|00001f40| 75 6c 61 74 65 2d 76 72 | 6d 6c 2d 69 6e 64 65 6e |ulate-vr|ml-inden|
|00001f50| 74 20 6e 69 6c 20 70 6f | 73 20 63 61 73 65 2d 66 |t nil po|s case-f|
|00001f60| 6f 6c 64 2d 73 65 61 72 | 63 68 20 73 68 69 66 74 |old-sear|ch shift|
|00001f70| 2d 61 6d 74 20 62 65 67 | 20 69 6e 64 65 6e 74 20 |-amt beg| indent |
|00001f80| 30 20 63 75 72 72 65 6e | 74 2d 69 6e 64 65 6e 74 |0 curren|t-indent|
|00001f90| 61 74 69 6f 6e 20 22 20 | 09 22 20 3f 5c 7d 20 76 |ation " |." ?\} v|
|00001fa0| 72 6d 6c 2d 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c |rml-inde|nt-level|
|00001fb0| 20 3f 5c 5d 5d 20 37 20 | 28 23 24 20 2e 20 37 37 | ?\]] 7 |(#$ . 77|
|00001fc0| 35 32 29 5d 29 0a 23 40 | 31 38 35 20 52 65 74 75 |52)]).#@|185 Retu|
|00001fd0| 72 6e 20 61 70 70 72 6f | 70 72 69 61 74 65 20 69 |rn appro|priate i|
|00001fe0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 63 |ndentati|on for c|
|00001ff0| 75 72 72 65 6e 74 20 6c | 69 6e 65 20 61 73 20 56 |urrent l|ine as V|
|00002000| 52 4d 4c 20 63 6f 64 65 | 2e 0a 49 6e 20 75 73 75 |RML code|..In usu|
|00002010| 61 6c 20 63 61 73 65 20 | 72 65 74 75 72 6e 73 20 |al case |returns |
|00002020| 61 6e 20 69 6e 74 65 67 | 65 72 3a 20 74 68 65 20 |an integ|er: the |
|00002030| 63 6f 6c 75 6d 6e 20 74 | 6f 20 69 6e 64 65 6e 74 |column t|o indent|
|00002040| 20 74 6f 2e 0a 52 65 74 | 75 72 6e 73 20 6e 69 6c | to..Ret|urns nil|
|00002050| 20 69 66 20 6c 69 6e 65 | 20 73 74 61 72 74 73 20 | if line| starts |
|00002060| 69 6e 73 69 64 65 20 61 | 20 73 74 72 69 6e 67 2c |inside a| string,|
|00002070| 20 74 20 69 66 20 69 6e | 20 61 20 63 6f 6d 6d 65 | t if in| a comme|
|00002080| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|00002090| 63 61 6c 63 75 6c 61 74 | 65 2d 76 72 6d 6c 2d 69 |calculat|e-vrml-i|
|000020a0| 6e 64 65 6e 74 20 23 5b | 28 26 6f 70 74 69 6f 6e |ndent #[|(&option|
|000020b0| 61 6c 20 70 61 72 73 65 | 2d 73 74 61 72 74 29 20 |al parse|-start) |
|000020c0| 22 8a c0 79 88 60 19 c2 | 1b c2 1c c2 1d c2 1e 06 |"..y.`..|........|
|000020d0| 0e 07 ab 86 0e 07 62 88 | aa 83 c8 20 88 60 09 57 |......b.|... .`.W|
|000020e0| ab 8f 60 16 07 c9 60 09 | c0 23 89 14 41 40 15 aa |..`...`.|.#..A@..|
|000020f0| 6c ca 0c 38 ac 85 cb 0c | 38 ab 85 cb 0c 38 aa f9 |l..8....|8....8..|
|00002100| 0d ac 83 c0 aa f3 0d 62 | 88 60 1e 0c 0d 62 88 c2 |.......b|.`...b..|
|00002110| 75 88 60 09 57 ab 9a cd | ce 21 ab 95 c2 79 88 60 |u.`.W...|.!...y.`|
|00002120| 09 57 ab 8d cd ce 21 ab | 88 cf 16 06 c2 79 88 aa |.W....!.|.....y..|
|00002130| 6e 0d 66 d0 55 ac ab 0d | 66 d1 55 ab 91 8a 0d 62 |n.f.U...|f.U....b|
|00002140| 88 d2 c2 78 88 d3 75 88 | cd d4 21 29 ac 94 60 09 |...x..u.|..!)..`.|
|00002150| 59 ab 88 0d 62 88 c2 75 | 88 aa 84 d5 c2 77 88 69 |Y...b..u|.....w.i|
|00002160| aa 96 60 09 57 ab 88 0e | 06 ab 84 d6 20 aa 89 0e |..`.W...|.... ...|
|00002170| 0c 62 88 d6 20 0e 17 5c | 5c 29 2e 06 87 22 20 5b |.b.. ..\|\)..." [|
|00002180| 30 20 69 6e 64 65 6e 74 | 2d 70 6f 69 6e 74 20 6e |0 indent|-point n|
|00002190| 69 6c 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |il case-|fold-sea|
|000021a0| 72 63 68 20 73 74 61 74 | 65 20 63 6f 6e 74 61 69 |rch stat|e contai|
|000021b0| 6e 69 6e 67 2d 73 65 78 | 70 20 66 6f 75 6e 64 2d |ning-sex|p found-|
|000021c0| 6e 65 78 74 2d 6c 69 6e | 65 20 70 61 72 73 65 2d |next-lin|e parse-|
|000021d0| 73 74 61 72 74 20 62 65 | 67 69 6e 6e 69 6e 67 2d |start be|ginning-|
|000021e0| 6f 66 2d 64 65 66 75 6e | 20 70 61 72 73 65 2d 70 |of-defun| parse-p|
|000021f0| 61 72 74 69 61 6c 2d 73 | 65 78 70 20 33 20 34 20 |artial-s|exp 3 4 |
|00002200| 65 78 70 72 2d 73 74 61 | 72 74 20 6c 6f 6f 6b 69 |expr-sta|rt looki|
|00002210| 6e 67 2d 61 74 20 22 5b | 20 09 5d 2a 5c 5c 28 23 |ng-at "[| .]*\\(#|
|00002220| 2e 2a 5c 5c 29 3f 24 22 | 20 74 20 3f 5c 7b 20 3f |.*\\)?$"| t ?\{ ?|
|00002230| 5c 5b 20 22 20 09 5c 6e | 22 20 2d 38 20 22 63 68 |\[ " .\n|" -8 "ch|
|00002240| 69 6c 64 72 65 6e 22 20 | 22 20 09 22 20 63 75 72 |ildren" |" ." cur|
|00002250| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|00002260| 20 76 72 6d 6c 2d 69 6e | 64 65 6e 74 2d 6c 65 76 | vrml-in|dent-lev|
|00002270| 65 6c 5d 20 35 20 28 23 | 24 20 2e 20 38 31 34 30 |el] 5 (#|$ . 8140|
|00002280| 29 5d 29 0a 23 40 35 36 | 20 49 6e 64 65 6e 74 20 |)]).#@56| Indent |
|00002290| 65 61 63 68 20 6c 69 6e | 65 20 6f 66 20 74 68 65 |each lin|e of the|
|000022a0| 20 56 52 4d 4c 20 67 72 | 6f 75 70 69 6e 67 20 66 | VRML gr|ouping f|
|000022b0| 6f 6c 6c 6f 77 69 6e 67 | 20 70 6f 69 6e 74 2e 1f |ollowing| point..|
|000022c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6e 64 65 |.(defali|as 'inde|
|000022d0| 6e 74 2d 76 72 6d 6c 2d | 65 78 70 20 23 5b 6e 69 |nt-vrml-|exp #[ni|
|000022e0| 6c 20 22 c0 43 60 43 c0 | 89 89 89 89 89 89 c1 c0 |l ".C`C.|........|
|000022f0| 1a 1b 1c 1d 1e 06 1e 07 | 1e 08 1e 09 1e 5c 6e 1e |........|.....\n.|
|00002300| 0b 1e 0c 8a cd ce 21 88 | 29 8a c0 16 09 6d 3f 85 |......!.|)....m?.|
|00002310| 44 01 0e 09 3f 85 44 01 | 0b 12 c0 16 08 0e 08 ac |D...?.D.|........|
|00002320| cd 6d ab 86 cf 89 16 09 | ac c4 0e 07 16 06 d0 60 |.m......|.......`|
|00002330| c0 7f 88 60 c0 89 0e 07 | 25 89 16 07 40 13 0e 07 |...`....|%...@...|
|00002340| 41 41 40 ab 8f 0e 07 41 | 41 40 c1 59 ab 86 0e 07 |AA@....A|A@.Y....|
|00002350| 41 41 40 14 d1 0e 06 38 | ab 83 d2 20 88 d3 0e 07 |AA@....8|... ....|
|00002360| 38 ab 85 ce 79 88 aa 35 | cf 89 16 08 ab 33 0b c1 |8...y..5|.....3..|
|00002370| 58 ab 83 cf 16 09 0e 09 | ac 13 5c 6e d4 0e 07 38 |X.......|..\n...8|
|00002380| 56 ab 90 0e 0c 41 16 0c | 0e 0b 41 16 0b 5c 6e 53 |V....A..|..A..\nS|
|00002390| 89 12 aa 69 5c 6e 0b 55 | ac 82 c0 14 5c 6e 0b 57 |...i\n.U|....\n.W|
|000023a0| ab 92 c0 0e 0c 42 16 0c | c0 0e 0b 42 16 0b 5c 6e |.....B..|...B..\n|
|000023b0| 54 89 12 aa 6a 0e 0b 40 | ac 91 0e 0b 0e 07 41 40 |T...j..@|......A@|
|000023c0| ae 87 8a cd d5 21 88 60 | 29 a0 88 ce 79 88 d6 c0 |.....!.`|)...y...|
|000023d0| 77 88 6c 84 29 00 0e 0c | 40 ab 8d 0e 0c 40 c1 59 |w.l.)...|@....@.Y|
|000023e0| ab 86 0e 0c 40 15 aa 96 | d7 0e 0c 40 ad 84 0e 0c |....@...|...@....|
|000023f0| 40 5b 21 1e 18 0e 0c 0e | 18 89 15 a0 88 29 0d a7 |@[!.....|.....)..|
|00002400| ab 94 67 d9 55 ab 87 0d | 0e 1a 5a 15 aa 88 67 db |..g.U...|..Z...g.|
|00002410| 55 ab 83 0d 53 15 0d 83 | 29 00 69 0d 55 84 29 00 |U...S...|).i.U.).|
|00002420| 60 c1 79 88 60 7c 88 0d | 6a 88 82 29 00 2e 0c 87 |`.y.`|..|j..)....|
|00002430| 22 20 5b 6e 69 6c 20 30 | 20 6c 61 73 74 2d 64 65 |" [nil 0| last-de|
|00002440| 70 74 68 20 6e 65 78 74 | 2d 64 65 70 74 68 20 6c |pth next|-depth l|
|00002450| 61 73 74 2d 73 65 78 70 | 20 74 68 69 73 2d 69 6e |ast-sexp| this-in|
|00002460| 64 65 6e 74 20 6f 73 74 | 61 74 65 20 73 74 61 74 |dent ost|ate stat|
|00002470| 65 20 69 6e 6e 65 72 2d | 6c 6f 6f 70 2d 64 6f 6e |e inner-|loop-don|
|00002480| 65 20 6f 75 74 65 72 2d | 6c 6f 6f 70 2d 64 6f 6e |e outer-|loop-don|
|00002490| 65 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |e case-f|old-sear|
|000024a0| 63 68 20 63 6f 6e 74 61 | 69 6e 2d 73 74 61 63 6b |ch conta|in-stack|
|000024b0| 20 69 6e 64 65 6e 74 2d | 73 74 61 63 6b 20 66 6f | indent-|stack fo|
|000024c0| 72 77 61 72 64 2d 73 65 | 78 70 20 31 20 74 20 70 |rward-se|xp 1 t p|
|000024d0| 61 72 73 65 2d 70 61 72 | 74 69 61 6c 2d 73 65 78 |arse-par|tial-sex|
|000024e0| 70 20 34 20 76 72 6d 6c | 2d 69 6e 64 65 6e 74 2d |p 4 vrml|-indent-|
|000024f0| 6c 69 6e 65 20 33 20 36 | 20 2d 31 20 22 20 09 22 |line 3 6| -1 " ."|
|00002500| 20 63 61 6c 63 75 6c 61 | 74 65 2d 76 72 6d 6c 2d | calcula|te-vrml-|
|00002510| 69 6e 64 65 6e 74 20 76 | 61 6c 20 3f 5c 7d 20 76 |indent v|al ?\} v|
|00002520| 72 6d 6c 2d 69 6e 64 65 | 6e 74 2d 6c 65 76 65 6c |rml-inde|nt-level|
|00002530| 20 3f 5c 5d 5d 20 31 32 | 20 28 23 24 20 2e 20 38 | ?\]] 12| (#$ . 8|
|00002540| 38 34 31 29 20 6e 69 6c | 5d 29 0a 23 40 31 36 31 |841) nil|]).#@161|
|00002550| 20 52 65 74 75 72 6e 20 | 6e 69 6c 20 69 66 20 70 | Return |nil if p|
|00002560| 6f 69 6e 74 20 69 73 20 | 6e 6f 74 20 61 74 20 74 |oint is |not at t|
|00002570| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |he begin|ning of |
|00002580| 61 20 63 6f 6d 6d 61 6e | 64 2e 0a 41 20 63 6f 6d |a comman|d..A com|
|00002590| 6d 61 6e 64 20 69 73 20 | 74 68 65 20 66 69 72 73 |mand is |the firs|
|000025a0| 74 20 77 6f 72 64 20 6f | 6e 20 61 6e 20 6f 74 68 |t word o|n an oth|
|000025b0| 65 72 77 69 73 65 20 65 | 6d 70 74 79 20 6c 69 6e |erwise e|mpty lin|
|000025c0| 65 2c 20 6f 72 20 74 68 | 65 0a 66 69 72 73 74 20 |e, or th|e.first |
|000025d0| 77 6f 72 64 20 66 6f 6c | 6c 6f 77 69 6e 67 20 61 |word fol|lowing a|
|000025e0| 6e 20 6f 70 65 6e 69 6e | 67 20 62 72 61 63 65 2e |n openin|g brace.|
|000025f0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 72 6d |..(defal|ias 'vrm|
|00002600| 6c 2d 72 65 61 6c 2d 63 | 6f 6d 6d 61 6e 64 2d 70 |l-real-c|ommand-p|
|00002610| 20 23 5b 6e 69 6c 20 22 | 8a c0 c1 78 88 6f ab 83 | #[nil "|...x.o..|
|00002620| c2 aa 8f 6e ab 89 c3 20 | 88 68 c4 61 3f aa 83 68 |...n... |.h.a?..h|
|00002630| c5 73 29 87 22 20 5b 22 | 20 09 22 20 6e 69 6c 20 |.s)." ["| ." nil |
|00002640| 74 20 62 61 63 6b 77 61 | 72 64 2d 63 68 61 72 20 |t backwa|rd-char |
|00002650| 3f 5c 5c 20 28 3f 5c 7b | 29 5d 20 32 20 28 23 24 |?\\ (?\{|)] 2 (#$|
|00002660| 20 2e 20 39 35 35 33 29 | 5d 29 0a 23 40 33 30 33 | . 9553)|]).#@303|
|00002670| 20 52 65 74 75 72 6e 20 | 74 20 69 66 20 70 6f 69 | Return |t if poi|
|00002680| 6e 74 20 69 73 20 6a 75 | 73 74 20 61 66 74 65 72 |nt is ju|st after|
|00002690| 20 74 68 65 20 60 23 27 | 20 62 65 67 69 6e 6e 69 | the `#'| beginni|
|000026a0| 6e 67 20 61 20 72 65 61 | 6c 20 63 6f 6d 6d 65 6e |ng a rea|l commen|
|000026b0| 74 2e 0a 44 6f 65 73 20 | 6e 6f 74 20 63 68 65 63 |t..Does |not chec|
|000026c0| 6b 20 74 6f 20 73 65 65 | 20 69 66 20 70 72 65 76 |k to see| if prev|
|000026d0| 69 6f 75 73 20 63 68 61 | 72 20 69 73 20 61 63 74 |ious cha|r is act|
|000026e0| 75 61 6c 6c 79 20 60 23 | 27 2e 0a 41 20 72 65 61 |ually `#|'..A rea|
|000026f0| 6c 20 63 6f 6d 6d 65 6e | 74 20 69 73 20 65 69 74 |l commen|t is eit|
|00002700| 68 65 72 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |her at t|he begin|
|00002710| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 62 75 66 66 |ning of |the buff|
|00002720| 65 72 2c 0a 70 72 65 63 | 65 64 65 64 20 6f 6e 6c |er,.prec|eded onl|
|00002730| 79 20 62 79 20 77 68 69 | 74 65 73 70 61 63 65 20 |y by whi|tespace |
|00002740| 6f 6e 20 74 68 65 20 6c | 69 6e 65 2c 20 6f 72 20 |on the l|ine, or |
|00002750| 68 61 73 20 61 20 70 72 | 65 63 65 64 69 6e 67 0a |has a pr|eceding.|
|00002760| 73 65 6d 69 63 6f 6c 6f | 6e 2c 20 6f 70 65 6e 69 |semicolo|n, openi|
|00002770| 6e 67 20 62 72 61 63 65 | 2c 20 6f 72 20 6f 70 65 |ng brace|, or ope|
|00002780| 6e 69 6e 67 20 62 72 61 | 63 6b 65 74 20 6f 6e 20 |ning bra|cket on |
|00002790| 74 68 65 20 73 61 6d 65 | 20 6c 69 6e 65 2e 1f 0a |the same| line...|
|000027a0| 28 64 65 66 61 6c 69 61 | 73 20 27 76 72 6d 6c 2d |(defalia|s 'vrml-|
|000027b0| 72 65 61 6c 2d 63 6f 6d | 6d 65 6e 74 2d 70 20 23 |real-com|ment-p #|
|000027c0| 5b 6e 69 6c 20 22 8a c0 | 20 88 c1 20 29 87 22 20 |[nil "..| .. )." |
|000027d0| 5b 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 76 |[backwar|d-char v|
|000027e0| 72 6d 6c 2d 72 65 61 6c | 2d 63 6f 6d 6d 61 6e 64 |rml-real|-command|
|000027f0| 2d 70 5d 20 31 20 28 23 | 24 20 2e 20 39 38 34 31 |-p] 1 (#|$ . 9841|
|00002800| 29 5d 29 0a 23 40 33 31 | 32 20 44 65 74 65 72 6d |)]).#@31|2 Determ|
|00002810| 69 6e 65 20 69 66 20 70 | 6f 69 6e 74 20 69 73 20 |ine if p|oint is |
|00002820| 69 6e 20 61 20 63 6f 6d | 6d 65 6e 74 2e 0a 52 65 |in a com|ment..Re|
|00002830| 74 75 72 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |turns a |list of |
|00002840| 74 68 65 20 66 6f 72 6d | 20 60 28 46 4c 41 47 20 |the form| `(FLAG |
|00002850| 2e 20 53 54 41 54 45 29 | 27 2e 20 20 53 54 41 54 |. STATE)|'. STAT|
|00002860| 45 20 63 61 6e 20 62 65 | 20 75 73 65 64 0a 61 73 |E can be| used.as|
|00002870| 20 69 6e 70 75 74 20 74 | 6f 20 66 75 74 75 72 65 | input t|o future|
|00002880| 20 69 6e 76 6f 63 61 74 | 69 6f 6e 73 2e 20 20 46 | invocat|ions. F|
|00002890| 4c 41 47 20 69 73 20 6e | 69 6c 20 69 66 20 6e 6f |LAG is n|il if no|
|000028a0| 74 20 69 6e 20 63 6f 6d | 6d 65 6e 74 2c 0a 74 20 |t in com|ment,.t |
|000028b0| 6f 74 68 65 72 77 69 73 | 65 2e 20 20 49 66 20 69 |otherwis|e. If i|
|000028c0| 6e 20 63 6f 6d 6d 65 6e | 74 2c 20 6c 65 61 76 65 |n commen|t, leave|
|000028d0| 73 20 70 6f 69 6e 74 20 | 61 74 20 62 65 67 69 6e |s point |at begin|
|000028e0| 6e 69 6e 67 20 6f 66 20 | 63 6f 6d 6d 65 6e 74 2e |ning of |comment.|
|000028f0| 0a 53 65 65 20 61 6c 73 | 6f 20 60 76 72 6d 6c 2d |.See als|o `vrml-|
|00002900| 73 69 6d 70 6c 65 2d 73 | 63 61 6e 2d 66 6f 72 2d |simple-s|can-for-|
|00002910| 63 6f 6d 6d 65 6e 74 27 | 2c 20 61 20 73 69 6d 70 |comment'|, a simp|
|00002920| 6c 65 72 20 76 65 72 73 | 69 6f 6e 20 74 68 61 74 |ler vers|ion that|
|00002930| 20 69 73 0a 6f 66 74 65 | 6e 20 72 69 67 68 74 2e | is.ofte|n right.|
|00002940| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 76 72 6d |..(defal|ias 'vrm|
|00002950| 6c 2d 68 61 69 72 79 2d | 73 63 61 6e 2d 66 6f 72 |l-hairy-|scan-for|
|00002960| 2d 63 6f 6d 6d 65 6e 74 | 20 23 5b 28 73 74 61 74 |-comment| #[(stat|
|00002970| 65 20 65 6e 64 20 61 6c | 77 61 79 73 2d 73 74 6f |e end al|ways-sto|
|00002980| 70 29 20 22 8a 08 62 88 | c1 79 88 60 29 c2 89 1b |p) "..b.|.y.`)...|
|00002990| 1c 1d 0b ac b8 60 08 57 | ab b3 c2 14 c6 60 08 c2 |.....`.W|.....`..|
|000029a0| 89 0e 07 c8 26 06 16 07 | c9 0e 07 38 ab 64 0e 5c |....&...|...8.d.\|
|000029b0| 6e ab 82 60 13 cb 20 89 | 14 ab 8a 60 0d 56 ab 82 |n..`.. .|...`.V..|
|000029c0| 60 13 cc 79 88 c9 0e 07 | 9b c2 a0 88 aa 45 0b ab |`..y....|.....E..|
|000029d0| 83 0b 62 88 0c 0e 07 2b | 42 87 22 20 5b 65 6e 64 |..b....+|B." [end|
|000029e0| 20 30 20 6e 69 6c 20 6c | 61 73 74 2d 63 73 74 61 | 0 nil l|ast-csta|
|000029f0| 72 74 20 72 65 61 6c 2d | 63 6f 6d 6d 65 6e 74 20 |rt real-|comment |
|00002a00| 62 6f 6c 20 70 61 72 73 | 65 2d 70 61 72 74 69 61 |bol pars|e-partia|
|00002a10| 6c 2d 73 65 78 70 20 73 | 74 61 74 65 20 74 20 34 |l-sexp s|tate t 4|
|00002a20| 20 61 6c 77 61 79 73 2d | 73 74 6f 70 20 76 72 6d | always-|stop vrm|
|00002a30| 6c 2d 72 65 61 6c 2d 63 | 6f 6d 6d 65 6e 74 2d 70 |l-real-c|omment-p|
|00002a40| 20 31 5d 20 38 20 28 23 | 24 20 2e 20 31 30 32 35 | 1] 8 (#|$ . 1025|
|00002a50| 30 29 5d 29 0a 23 40 37 | 37 20 52 65 74 75 72 6e |0)]).#@7|7 Return|
|00002a60| 20 74 20 69 66 20 70 6f | 69 6e 74 20 69 73 20 69 | t if po|int is i|
|00002a70| 6e 20 61 20 63 6f 6d 6d | 65 6e 74 2c 20 61 6e 64 |n a comm|ent, and|
|00002a80| 20 6c 65 61 76 65 20 70 | 6f 69 6e 74 20 61 74 20 | leave p|oint at |
|00002a90| 62 65 67 69 6e 6e 69 6e | 67 0a 6f 66 20 63 6f 6d |beginnin|g.of com|
|00002aa0| 6d 65 6e 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ment...(|defalias|
|00002ab0| 20 27 76 72 6d 6c 2d 68 | 61 69 72 79 2d 69 6e 2d | 'vrml-h|airy-in-|
|00002ac0| 63 6f 6d 6d 65 6e 74 20 | 23 5b 6e 69 6c 20 22 60 |comment |#[nil "`|
|00002ad0| 18 c1 20 88 c2 c3 08 c3 | 23 40 29 87 22 20 5b 73 |.. .....|#@)." [s|
|00002ae0| 61 76 65 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |ave begi|nning-of|
|00002af0| 2d 64 65 66 75 6e 20 76 | 72 6d 6c 2d 68 61 69 72 |-defun v|rml-hair|
|00002b00| 79 2d 73 63 61 6e 2d 66 | 6f 72 2d 63 6f 6d 6d 65 |y-scan-f|or-comme|
|00002b10| 6e 74 20 6e 69 6c 5d 20 | 34 20 28 23 24 20 2e 20 |nt nil] |4 (#$ . |
|00002b20| 31 30 38 34 32 29 5d 29 | 0a 23 40 31 34 38 20 52 |10842)])|.#@148 R|
|00002b30| 65 74 75 72 6e 20 74 20 | 69 66 20 70 6f 69 6e 74 |eturn t |if point|
|00002b40| 20 69 73 20 69 6e 20 63 | 6f 6d 6d 65 6e 74 2c 20 | is in c|omment, |
|00002b50| 61 6e 64 20 6c 65 61 76 | 65 20 70 6f 69 6e 74 20 |and leav|e point |
|00002b60| 61 74 20 62 65 67 69 6e | 6e 69 6e 67 0a 6f 66 20 |at begin|ning.of |
|00002b70| 63 6f 6d 6d 65 6e 74 2e | 20 20 54 68 69 73 20 69 |comment.| This i|
|00002b80| 73 20 66 61 73 74 65 72 | 20 74 68 61 6e 20 60 76 |s faster| than `v|
|00002b90| 72 6d 6c 2d 68 61 69 72 | 79 2d 69 6e 2d 63 6f 6d |rml-hair|y-in-com|
|00002ba0| 6d 65 6e 74 27 2c 20 62 | 75 74 20 69 73 0a 63 6f |ment', b|ut is.co|
|00002bb0| 72 72 65 63 74 20 6c 65 | 73 73 20 6f 66 74 65 6e |rrect le|ss often|
|00002bc0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 72 |...(defa|lias 'vr|
|00002bd0| 6d 6c 2d 73 69 6d 70 6c | 65 2d 69 6e 2d 63 6f 6d |ml-simpl|e-in-com|
|00002be0| 6d 65 6e 74 20 23 5b 6e | 69 6c 20 22 60 c0 19 1a |ment #[n|il "`...|
|00002bf0| c3 79 88 60 5c 6e 57 ab | 8e 09 ac 8b c4 c5 5c 6e |.y.`\nW.|......\n|
|00002c00| c6 23 88 c7 20 11 aa 6d | 09 2a 87 22 20 5b 6e 69 |.#.. ..m|.*." [ni|
|00002c10| 6c 20 63 6f 6d 6d 65 6e | 74 20 73 61 76 65 20 30 |l commen|t save 0|
|00002c20| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00002c30| 22 23 22 20 6d 6f 76 65 | 20 76 72 6d 6c 2d 72 65 |"#" move| vrml-re|
|00002c40| 61 6c 2d 63 6f 6d 6d 65 | 6e 74 2d 70 5d 20 34 20 |al-comme|nt-p] 4 |
|00002c50| 28 23 24 20 2e 20 31 31 | 30 35 35 29 5d 29 0a 23 |(#$ . 11|055)]).#|
|00002c60| 40 37 35 20 52 65 74 75 | 72 6e 20 74 20 69 66 20 |@75 Retu|rn t if |
|00002c70| 70 6f 69 6e 74 20 69 73 | 20 69 6e 20 63 6f 6d 6d |point is| in comm|
|00002c80| 65 6e 74 2c 20 61 6e 64 | 20 6c 65 61 76 65 20 70 |ent, and| leave p|
|00002c90| 6f 69 6e 74 20 61 74 20 | 62 65 67 69 6e 6e 69 6e |oint at |beginnin|
|00002ca0| 67 0a 6f 66 20 63 6f 6d | 6d 65 6e 74 2e 1f 0a 28 |g.of com|ment...(|
|00002cb0| 64 65 66 61 6c 69 61 73 | 20 27 76 72 6d 6c 2d 69 |defalias| 'vrml-i|
|00002cc0| 6e 2d 63 6f 6d 6d 65 6e | 74 20 23 5b 6e 69 6c 20 |n-commen|t #[nil |
|00002cd0| 22 08 ab 83 c1 20 87 c2 | 20 87 22 20 5b 76 72 6d |".... ..| ." [vrm|
|00002ce0| 6c 2d 75 73 65 2d 68 61 | 69 72 79 2d 63 6f 6d 6d |l-use-ha|iry-comm|
|00002cf0| 65 6e 74 2d 64 65 74 65 | 63 74 6f 72 20 76 72 6d |ent-dete|ctor vrm|
|00002d00| 6c 2d 68 61 69 72 79 2d | 69 6e 2d 63 6f 6d 6d 65 |l-hairy-|in-comme|
|00002d10| 6e 74 20 76 72 6d 6c 2d | 73 69 6d 70 6c 65 2d 69 |nt vrml-|simple-i|
|00002d20| 6e 2d 63 6f 6d 6d 65 6e | 74 5d 20 31 20 28 23 24 |n-commen|t] 1 (#$|
|00002d30| 20 2e 20 31 31 33 36 34 | 29 5d 29 0a 23 40 36 36 | . 11364|)]).#@66|
|00002d40| 20 66 69 6c 6c 2d 70 61 | 72 61 67 72 61 70 68 20 | fill-pa|ragraph |
|00002d50| 66 75 6e 63 74 69 6f 6e | 20 66 6f 72 20 56 52 4d |function| for VRM|
|00002d60| 4c 20 6d 6f 64 65 2e 20 | 20 4f 6e 6c 79 20 66 69 |L mode. | Only fi|
|00002d70| 6c 6c 73 20 69 6e 20 61 | 20 63 6f 6d 6d 65 6e 74 |lls in a| comment|
|00002d80| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 72 |...(defa|lias 'vr|
|00002d90| 6d 6c 2d 64 6f 2d 66 69 | 6c 6c 2d 70 61 72 61 67 |ml-do-fi|ll-parag|
|00002da0| 72 61 70 68 20 23 5b 28 | 69 67 6e 6f 72 65 29 20 |raph #[(|ignore) |
|00002db0| 22 c0 89 89 19 1a 1b 8a | c0 7f 88 c4 20 89 13 ab |".......|.... ...|
|00002dc0| 86 60 54 11 69 53 12 29 | 0b ab c6 8a c5 20 88 5c |.`T.iS.)|..... .\|
|00002dd0| 6e 69 55 29 ab bc c6 79 | 88 60 09 7b c0 89 1e 07 |niU)...y|.`.{....|
|00002de0| 1e 08 1e 09 8a ca cb 21 | ab 85 cc 79 88 aa 76 c0 |.......!|...y..v.|
|00002df0| 79 88 60 16 08 29 8a ca | cb 21 ab 85 c0 79 88 aa |y.`..)..|.!...y..|
|00002e00| 76 60 16 07 29 8c 0e 08 | 0e 07 7d 88 cd 0e 0e 21 |v`..)...|..}....!|
|00002e10| 88 2c 2b cf 87 22 20 5b | 6e 69 6c 20 77 68 65 72 |.,+.." [|nil wher|
|00002e20| 65 20 63 6f 6c 20 69 6e | 2d 63 6f 6d 6d 65 6e 74 |e col in|-comment|
|00002e30| 20 76 72 6d 6c 2d 69 6e | 2d 63 6f 6d 6d 65 6e 74 | vrml-in|-comment|
|00002e40| 20 62 61 63 6b 2d 74 6f | 2d 69 6e 64 65 6e 74 61 | back-to|-indenta|
|00002e50| 74 69 6f 6e 20 30 20 70 | 2d 65 6e 64 20 70 2d 73 |tion 0 p|-end p-s|
|00002e60| 74 61 72 74 20 66 69 6c | 6c 2d 70 72 65 66 69 78 |tart fil|l-prefix|
|00002e70| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5e 5b 20 | looking|-at "^[ |
|00002e80| 09 5d 2a 23 22 20 2d 31 | 20 66 69 6c 6c 2d 70 61 |.]*#" -1| fill-pa|
|00002e90| 72 61 67 72 61 70 68 20 | 69 67 6e 6f 72 65 20 74 |ragraph |ignore t|
|00002ea0| 5d 20 34 20 28 23 24 20 | 2e 20 31 31 35 38 35 29 |] 4 (#$ |. 11585)|
|00002eb0| 5d 29 0a 23 40 36 36 20 | 41 75 74 6f 2d 66 69 6c |]).#@66 |Auto-fil|
|00002ec0| 6c 20 66 75 6e 63 74 69 | 6f 6e 20 66 6f 72 20 56 |l functi|on for V|
|00002ed0| 52 4d 4c 20 6d 6f 64 65 | 2e 20 20 4f 6e 6c 79 20 |RML mode|. Only |
|00002ee0| 61 75 74 6f 2d 66 69 6c | 6c 73 20 69 6e 20 61 20 |auto-fil|ls in a |
|00002ef0| 63 6f 6d 6d 65 6e 74 2e | 1f 0a 28 64 65 66 61 6c |comment.|..(defal|
|00002f00| 69 61 73 20 27 76 72 6d | 6c 2d 64 6f 2d 61 75 74 |ias 'vrm|l-do-aut|
|00002f10| 6f 2d 66 69 6c 6c 20 23 | 5b 6e 69 6c 20 22 69 08 |o-fill #|[nil "i.|
|00002f20| 56 ad a8 c1 c2 89 1b 1c | 1d 8a c6 20 89 14 ab 83 |V.......|... ....|
|00002f30| 69 53 13 29 0c ad 93 c7 | 20 88 8a c8 20 88 60 8a |iS.)....| ... .`.|
|00002f40| c9 79 88 60 29 7c 88 0b | 6a 29 2b 87 22 20 5b 66 |.y.`)|..|j)+." [f|
|00002f50| 69 6c 6c 2d 63 6f 6c 75 | 6d 6e 20 22 23 20 22 20 |ill-colu|mn "# " |
|00002f60| 6e 69 6c 20 63 6f 6c 20 | 69 6e 2d 63 6f 6d 6d 65 |nil col |in-comme|
|00002f70| 6e 74 20 66 69 6c 6c 2d | 70 72 65 66 69 78 20 76 |nt fill-|prefix v|
|00002f80| 72 6d 6c 2d 69 6e 2d 63 | 6f 6d 6d 65 6e 74 20 64 |rml-in-c|omment d|
|00002f90| 6f 2d 61 75 74 6f 2d 66 | 69 6c 6c 20 62 61 63 6b |o-auto-f|ill back|
|00002fa0| 2d 74 6f 2d 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |-to-inde|ntation |
|00002fb0| 30 5d 20 34 20 28 23 24 | 20 2e 20 31 31 39 36 30 |0] 4 (#$| . 11960|
|00002fc0| 29 5d 29 0a 23 40 31 37 | 37 20 49 6e 64 65 6e 74 |)]).#@17|7 Indent|
|00002fd0| 20 74 68 69 73 20 6c 69 | 6e 65 27 73 20 63 6f 6d | this li|ne's com|
|00002fe0| 6d 65 6e 74 20 74 6f 20 | 63 6f 6d 6d 65 6e 74 20 |ment to |comment |
|00002ff0| 63 6f 6c 75 6d 6e 2c 20 | 6f 72 20 69 6e 73 65 72 |column, |or inser|
|00003000| 74 20 61 6e 20 65 6d 70 | 74 79 20 63 6f 6d 6d 65 |t an emp|ty comme|
|00003010| 6e 74 2e 0a 49 73 20 73 | 6d 61 72 74 20 61 62 6f |nt..Is s|mart abo|
|00003020| 75 74 20 73 79 6e 74 61 | 78 20 6f 66 20 56 52 4d |ut synta|x of VRM|
|00003030| 4c 20 63 6f 6d 6d 65 6e | 74 73 2e 0a 50 61 72 74 |L commen|ts..Part|
|00003040| 73 20 6f 66 20 74 68 69 | 73 20 77 65 72 65 20 74 |s of thi|s were t|
|00003050| 61 6b 65 6e 20 66 72 6f | 6d 20 69 6e 64 65 6e 74 |aken fro|m indent|
|00003060| 2d 66 6f 72 2d 63 6f 6d | 6d 65 6e 74 20 28 73 69 |-for-com|ment (si|
|00003070| 6d 70 6c 65 2e 65 6c 29 | 2e 1f 0a 28 64 65 66 61 |mple.el)|...(defa|
|00003080| 6c 69 61 73 20 27 76 72 | 6d 6c 2d 69 6e 64 65 6e |lias 'vr|ml-inden|
|00003090| 74 2d 66 6f 72 2d 63 6f | 6d 6d 65 6e 74 20 23 5b |t-for-co|mment #[|
|000030a0| 6e 69 6c 20 22 c0 7f 88 | c1 20 ac 98 c2 c0 78 88 |nil "...|. ....x.|
|000030b0| 60 1b c4 79 88 60 0b 55 | ac 89 0b 62 88 c5 63 88 |`..y.`.U|...b..c.|
|000030c0| c6 20 88 29 0e 07 20 1e | 08 c6 20 88 60 89 1e 09 |. .).. .|.. .`...|
|000030d0| 0e 08 55 ac 92 c2 8a c4 | 79 88 60 29 78 88 60 0e |..U.....|y.`)x.`.|
|000030e0| 09 7c 88 0e 08 6a 88 ca | 0e 0b 21 88 c4 95 62 2a |.|...j..|..!...b*|
|000030f0| 87 22 20 5b 6e 69 6c 20 | 76 72 6d 6c 2d 69 6e 2d |." [nil |vrml-in-|
|00003100| 63 6f 6d 6d 65 6e 74 20 | 22 20 09 22 20 65 6f 6c |comment |" ." eol|
|00003110| 70 6f 69 6e 74 20 30 20 | 22 23 20 22 20 62 61 63 |point 0 |"# " bac|
|00003120| 6b 77 61 72 64 2d 63 68 | 61 72 20 63 6f 6d 6d 65 |kward-ch|ar comme|
|00003130| 6e 74 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |nt-inden|t-functi|
|00003140| 6f 6e 20 69 6e 64 65 6e | 74 20 62 65 67 70 6f 73 |on inden|t begpos|
|00003150| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 63 6f 6d 6d | looking|-at comm|
|00003160| 65 6e 74 2d 73 74 61 72 | 74 2d 73 6b 69 70 5d 20 |ent-star|t-skip] |
|00003170| 33 20 28 23 24 20 2e 20 | 31 32 32 33 34 29 20 22 |3 (#$ . |12234) "|
|00003180| 2a 22 5d 29 0a | |*"]). | |
+--------+-------------------------+-------------------------+--------+--------+