/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / w3 / w3-hot.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 34 39 3a 32 | 32 20 31 39 39 35 0a 3b | 14:49:2|2 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 77 33 |e/editor|/lisp/w3|
|00000090| 2f 77 33 2d 68 6f 74 2e | 65 6c 0a 3b 3b 3b 20 65 |/w3-hot.|el.;;; e|
|000000a0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 31 39 2e |macs ver|sion 19.|
|000000b0| 31 33 20 58 45 6d 61 63 | 73 20 4c 75 63 69 64 2e |13 XEmac|s Lucid.|
|000000c0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000d0| 72 73 69 6f 6e 20 32 2e | 32 35 3b 20 31 2d 53 65 |rsion 2.|25; 1-Se|
|000000e0| 70 2d 39 34 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |p-94..;;|; optimi|
|000000f0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000100| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000110| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000120| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000130| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000140| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000150| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000180| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000190| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001a0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001b0| 20 22 31 39 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "19")))|.    (er|
|000001c0| 72 6f 72 20 22 54 68 69 | 73 20 66 69 6c 65 20 77 |ror "Thi|s file w|
|000001d0| 61 73 20 63 6f 6d 70 69 | 6c 65 64 20 66 6f 72 20 |as compi|led for |
|000001e0| 45 6d 61 63 73 20 31 39 | 2e 22 29 29 0a 0a 28 66 |Emacs 19|."))..(f|
|000001f0| 73 65 74 20 27 77 33 2d | 72 65 61 64 2d 68 74 6d |set 'w3-|read-htm|
|00000200| 6c 2d 62 6f 6f 6b 6d 61 | 72 6b 73 20 23 5b 28 66 |l-bookma|rks #[(f|
|00000210| 6e 61 6d 65 29 20 22 c0 | 09 21 ac 85 c2 c3 09 5c |name) ".|.!.....\|
|00000220| 22 88 8a c4 c5 21 71 88 | c6 20 88 c7 09 21 88 c8 |"....!q.|. ...!..|
|00000230| 70 c9 5c 22 ca 1e 0b 1e | 0c 0e 0b 2b 87 22 20 5b |p.\"....|...+." [|
|00000240| 66 69 6c 65 2d 72 65 61 | 64 61 62 6c 65 2d 70 20 |file-rea|dable-p |
|00000250| 66 6e 61 6d 65 20 65 72 | 72 6f 72 20 22 43 61 6e |fname er|ror "Can|
|00000260| 20 6e 6f 74 20 72 65 61 | 64 20 25 73 2e 2e 2e 22 | not rea|d %s..."|
|00000270| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 | get-buf|fer-crea|
|00000280| 74 65 20 22 20 2a 62 6f | 6f 6b 6d 61 72 6b 2d 77 |te " *bo|okmark-w|
|00000290| 6f 72 6b 2a 22 20 65 72 | 61 73 65 2d 62 75 66 66 |ork*" er|ase-buff|
|000002a0| 65 72 20 6d 6d 2d 69 6e | 73 65 72 74 2d 66 69 6c |er mm-in|sert-fil|
|000002b0| 65 2d 63 6f 6e 74 65 6e | 74 73 20 77 33 2d 70 72 |e-conten|ts w3-pr|
|000002c0| 65 70 61 72 73 65 2d 62 | 75 66 66 65 72 20 74 20 |eparse-b|uffer t |
|000002d0| 6e 69 6c 20 62 6f 6f 6b | 6c 69 73 74 20 70 61 72 |nil book|list par|
|000002e0| 73 65 5d 20 33 20 22 5c | 0a 49 6d 70 6f 72 74 20 |se] 3 "\|.Import |
|000002f0| 61 6e 20 48 54 4d 4c 20 | 66 69 6c 65 20 69 6e 74 |an HTML |file int|
|00000300| 6f 20 74 68 65 20 45 6d | 61 63 73 2d 77 33 20 66 |o the Em|acs-w3 f|
|00000310| 6f 72 6d 61 74 2e 22 20 | 22 66 42 6f 6f 6b 6d 61 |ormat." |"fBookma|
|00000320| 72 6b 20 66 69 6c 65 3a | 20 22 5d 29 0a 28 62 79 |rk file:| "]).(by|
|00000330| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|00000340| 88 c4 c5 4d 87 22 20 5b | 77 33 2d 64 72 61 77 2d |...M." [|w3-draw-|
|00000350| 61 69 72 2d 68 6f 74 6c | 69 73 74 2d 61 73 2d 68 |air-hotl|ist-as-h|
|00000360| 74 6d 6c 20 23 5b 28 68 | 6f 74 6c 69 73 74 2d 64 |tml #[(h|otlist-d|
|00000370| 61 74 61 29 20 22 c0 09 | 21 71 88 c2 20 88 c3 c4 |ata) "..|!q.. ...|
|00000380| c5 c6 b1 04 88 c7 0e 08 | 21 88 c9 63 87 22 20 5b |........|!..c." [|
|00000390| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|000003a0| 65 20 75 72 6c 2d 77 6f | 72 6b 69 6e 67 2d 62 75 |e url-wo|rking-bu|
|000003b0| 66 66 65 72 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ffer era|se-buffe|
|000003c0| 72 20 22 3c 68 74 6d 6c | 3e 5c 6e 09 3c 68 65 61 |r "<html|>\n.<hea|
|000003d0| 64 3e 5c 6e 09 09 22 20 | 22 3c 74 69 74 6c 65 3e |d>\n.." |"<title>|
|000003e0| 20 48 6f 74 6c 69 73 74 | 20 3c 2f 74 69 74 6c 65 | Hotlist| </title|
|000003f0| 3e 5c 6e 09 3c 2f 68 65 | 61 64 3e 5c 6e 22 20 22 |>\n.</he|ad>\n" "|
|00000400| 09 3c 62 6f 64 79 3e 5c | 6e 09 09 3c 64 69 76 31 |.<body>\|n..<div1|
|00000410| 3e 5c 6e 09 09 09 3c 68 | 31 3e 48 6f 74 6c 69 73 |>\n...<h|1>Hotlis|
|00000420| 74 20 64 61 74 61 22 20 | 22 3c 2f 68 31 3e 5c 6e |t data" |"</h1>\n|
|00000430| 09 09 09 3c 75 6c 3e 5c | 6e 22 20 77 33 2d 64 72 |...<ul>\|n" w3-dr|
|00000440| 61 77 2d 61 69 72 2d 73 | 75 62 6c 69 73 74 20 68 |aw-air-s|ublist h|
|00000450| 6f 74 6c 69 73 74 2d 64 | 61 74 61 20 22 09 09 09 |otlist-d|ata "...|
|00000460| 3c 2f 75 6c 3e 5c 6e 09 | 09 3c 2f 64 69 76 31 3e |</ul>\n.|.</div1>|
|00000470| 5c 6e 09 3c 2f 62 6f 64 | 79 3e 5c 6e 3c 2f 68 74 |\n.</bod|y>\n</ht|
|00000480| 6d 6c 3e 5c 6e 22 5d 20 | 34 5d 20 77 33 2d 64 72 |ml>\n"] |4] w3-dr|
|00000490| 61 77 2d 61 69 72 2d 73 | 75 62 6c 69 73 74 20 23 |aw-air-s|ublist #|
|000004a0| 5b 28 64 61 74 61 29 20 | 22 08 40 19 08 41 41 10 |[(data) |".@..AA.|
|000004b0| c2 c3 09 c4 c5 b1 05 88 | 08 ab aa 08 40 3c ab 8d |........|....@<..|
|000004c0| 08 40 41 40 ac 87 c6 08 | 40 21 88 aa 92 08 40 3c |.@A@....|@!....@<|
|000004d0| ab 8d c7 08 40 41 40 c8 | 08 40 40 c9 b1 05 88 08 |....@A@.|.@@.....|
|000004e0| 41 89 10 ac 56 ca cb cc | b1 03 29 87 22 20 5b 64 |A...V...|..)." [d|
|000004f0| 61 74 61 20 74 74 6c 20 | 22 3c 75 6c 3e 5c 6e 22 |ata ttl |"<ul>\n"|
|00000500| 20 22 20 3c 6c 69 3e 20 | 22 20 22 5c 6e 22 20 22 | " <li> |" "\n" "|
|00000510| 20 20 3c 75 6c 3e 5c 6e | 22 20 77 33 2d 64 72 61 |  <ul>\n|" w3-dra|
|00000520| 77 2d 61 69 72 2d 73 75 | 62 6c 69 73 74 20 22 20 |w-air-su|blist " |
|00000530| 20 20 20 3c 6c 69 3e 20 | 3c 61 20 68 72 65 66 3d |   <li> |<a href=|
|00000540| 5c 22 22 20 22 5c 22 3e | 22 20 22 3c 2f 61 3e 3c |\"" "\">|" "</a><|
|00000550| 2f 6c 69 3e 5c 6e 22 20 | 22 20 20 3c 2f 75 6c 3e |/li>\n" |"  </ul>|
|00000560| 5c 6e 22 20 22 20 3c 2f | 6c 69 3e 5c 6e 22 20 22 |\n" " </|li>\n" "|
|00000570| 3c 2f 75 6c 3e 5c 6e 22 | 5d 20 36 5d 20 77 33 2d |</ul>\n"|] 6] w3-|
|00000580| 70 61 72 73 65 2d 61 69 | 72 2d 68 6f 74 6c 69 73 |parse-ai|r-hotlis|
|00000590| 74 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |t #[(&op|tional f|
|000005a0| 6e 61 6d 65 29 20 22 08 | ac 82 09 10 c2 13 c4 08 |name) ".|........|
|000005b0| 21 ab 85 c5 08 21 ac 85 | c6 c7 08 5c 22 87 8a c8 |!....!..|...\"...|
|000005c0| c9 21 71 88 ca 20 88 cb | 08 21 88 65 62 88 cc cd |.!q.. ..|.!.eb...|
|000005d0| 21 ac 85 ce cf 08 5c 22 | 88 d0 d1 d2 5c 22 88 d0 |!.....\"|....\"..|
|000005e0| d3 d4 5c 22 88 d0 cd d2 | 5c 22 88 d0 d5 d6 5c 22 |..\"....|\"....\"|
|000005f0| 88 65 62 88 d7 d8 8d 88 | 64 62 88 d9 63 88 c2 1e |.eb.....|db..c...|
|00000600| 1a 65 62 88 c2 db dc 8f | 88 0e 1a 2a 87 22 20 5b |.eb.....|...*." [|
|00000610| 66 6e 61 6d 65 20 77 33 | 2d 68 6f 74 6c 69 73 74 |fname w3|-hotlist|
|00000620| 2d 66 69 6c 65 20 6e 69 | 6c 20 77 33 2d 68 6f 74 |-file ni|l w3-hot|
|00000630| 6c 69 73 74 20 66 69 6c | 65 2d 65 78 69 73 74 73 |list fil|e-exists|
|00000640| 2d 70 20 66 69 6c 65 2d | 72 65 61 64 61 62 6c 65 |-p file-|readable|
|00000650| 2d 70 20 6d 65 73 73 61 | 67 65 20 22 25 73 20 64 |-p messa|ge "%s d|
|00000660| 6f 65 73 20 6e 6f 74 20 | 65 78 69 73 74 21 22 20 |oes not |exist!" |
|00000670| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00000680| 65 20 22 20 2a 77 33 2d | 74 65 6d 70 2a 22 20 65 |e " *w3-|temp*" e|
|00000690| 72 61 73 65 2d 62 75 66 | 66 65 72 20 6d 6d 2d 69 |rase-buf|fer mm-i|
|000006a0| 6e 73 65 72 74 2d 66 69 | 6c 65 2d 63 6f 6e 74 65 |nsert-fi|le-conte|
|000006b0| 6e 74 73 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |nts look|ing-at "|
|000006c0| 5e 48 6f 74 6c 69 73 74 | 0d 2a 24 22 20 65 72 72 |^Hotlist|.*$" err|
|000006d0| 6f 72 20 22 25 73 20 69 | 73 20 6e 6f 74 20 69 6e |or "%s i|s not in|
|000006e0| 20 68 6f 74 6c 69 73 74 | 20 66 6f 72 6d 61 74 21 | hotlist| format!|
|000006f0| 22 20 75 72 6c 2d 72 65 | 70 6c 61 63 65 2d 72 65 |" url-re|place-re|
|00000700| 67 65 78 70 20 22 5e 5b | 20 09 5d 2a 7b 5b 20 09 |gexp "^[| .]*{[ .|
|00000710| 0d 5d 2a 24 22 20 22 28 | 22 20 22 5e 5b 20 09 5d |.]*$" "(|" "^[ .]|
|00000720| 2a 7d 5b 20 09 0d 5d 2a | 24 22 20 22 29 22 20 22 |*}[ ..]*|$" ")" "|
|00000730| 5e 5b 20 09 5d 2a 5c 5c | 28 53 75 62 6c 69 73 74 |^[ .]*\\|(Sublist|
|00000740| 5c 5c 7c 49 74 65 6d 5c | 5c 29 5b 20 09 0d 5d 2a |\\|Item\|\)[ ..]*|
|00000750| 24 22 20 22 29 28 22 20 | 61 63 6b 20 28 62 79 74 |$" ")(" |ack (byt|
|00000760| 65 2d 63 6f 64 65 20 22 | 6d ac a0 c0 79 88 c1 c2 |e-code "|m...y...|
|00000770| 21 ac 91 c3 c4 77 88 c5 | 63 88 c4 7f 88 c3 c4 78 |!....w..|c......x|
|00000780| 88 c5 63 88 c4 c6 c7 8f | 88 aa 5d c4 87 22 20 5b |..c.....|..].." [|
|00000790| 30 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5e 5b |0 lookin|g-at "^[|
|000007a0| 20 09 5d 2a 5b 28 29 5d | 2b 5b 20 09 0d 5d 2a 24 | .]*[()]|+[ ..]*$|
|000007b0| 22 20 22 20 09 0d 22 20 | 6e 69 6c 20 22 5c 22 22 |" " .." |nil "\""|
|000007c0| 20 28 6e 65 78 74 2d 6c | 69 6e 65 20 31 29 20 28 | (next-l|ine 1) (|
|000007d0| 28 65 72 72 6f 72 20 28 | 62 79 74 65 2d 63 6f 64 |(error (|byte-cod|
|000007e0| 65 20 22 c0 c1 c2 5c 22 | 87 22 20 5b 74 68 72 6f |e "...\"|." [thro|
|000007f0| 77 20 61 63 6b 20 74 5d | 20 33 29 29 29 5d 20 33 |w ack t]| 3)))] 3|
|00000800| 29 20 22 5c 6e 29 22 20 | 64 61 74 20 28 62 79 74 |) "\n)" |dat (byt|
|00000810| 65 2d 63 6f 64 65 20 22 | c0 70 21 11 c0 87 22 20 |e-code "|.p!..." |
|00000820| 5b 72 65 61 64 20 64 61 | 74 5d 20 32 29 20 28 28 |[read da|t] 2) ((|
|00000830| 65 72 72 6f 72 29 29 5d | 20 33 5d 5d 20 32 29 0a |error))]| 3]] 2).|
|00000840| 28 66 73 65 74 20 27 77 | 33 2d 68 6f 74 6c 69 73 |(fset 'w|3-hotlis|
|00000850| 74 2d 61 70 72 6f 70 6f | 73 20 23 5b 28 72 65 67 |t-apropo|s #[(reg|
|00000860| 65 78 70 29 20 22 08 ac | 83 c1 20 88 c2 c3 21 c4 |exp) "..|.. ...!.|
|00000870| c5 c6 c7 0e 08 5c 22 5c | 22 1e 08 1e 09 0e 08 ac |.....\"\|".......|
|00000880| 87 ca cb 0e 0c 5c 22 aa | a6 0e 09 ab 8d 8a 0e 09 |.....\".|........|
|00000890| 71 88 cd ce 0e 0c 50 21 | 88 29 cf 8e d0 20 88 cd |q.....P!|.)... ..|
|000008a0| d1 0e 0c d2 51 21 88 d3 | 0e 0c 50 89 16 14 29 2a |....Q!..|..P...)*|
|000008b0| 87 22 20 5b 77 33 2d 73 | 65 74 75 70 2d 64 6f 6e |." [w3-s|etup-don|
|000008c0| 65 20 77 33 2d 64 6f 2d | 73 65 74 75 70 20 67 65 |e w3-do-|setup ge|
|000008d0| 74 2d 62 75 66 66 65 72 | 20 22 48 6f 74 6c 69 73 |t-buffer| "Hotlis|
|000008e0| 74 22 20 61 70 70 6c 79 | 20 6e 63 6f 6e 63 20 6d |t" apply| nconc m|
|000008f0| 61 70 63 61 72 20 23 5b | 28 65 6e 74 72 79 29 20 |apcar #[|(entry) |
|00000900| 22 c0 09 5c 6e 40 5c 22 | ac 88 c0 09 5c 6e 41 40 |"..\n@\"|....\nA@|
|00000910| 5c 22 ad 82 5c 6e 43 87 | 22 20 5b 73 74 72 69 6e |\"..\nC.|" [strin|
|00000920| 67 2d 6d 61 74 63 68 20 | 72 65 67 65 78 70 20 65 |g-match |regexp e|
|00000930| 6e 74 72 79 5d 20 33 5d | 20 77 33 2d 68 6f 74 6c |ntry] 3]| w3-hotl|
|00000940| 69 73 74 20 73 61 76 65 | 2d 62 75 66 20 6d 65 73 |ist save|-buf mes|
|00000950| 73 61 67 65 20 22 4e 6f | 20 77 33 2d 68 6f 74 6c |sage "No| w3-hotl|
|00000960| 69 73 74 20 65 6e 74 72 | 69 65 73 20 6d 61 74 63 |ist entr|ies matc|
|00000970| 68 20 5c 22 25 73 5c 22 | 22 20 72 65 67 65 78 70 |h \"%s\"|" regexp|
|00000980| 20 72 65 6e 61 6d 65 2d | 62 75 66 66 65 72 20 22 | rename-|buffer "|
|00000990| 48 6f 74 6c 69 73 74 20 | 64 75 72 69 6e 67 20 22 |Hotlist |during "|
|000009a0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 ab | ((byte-|code "..|
|000009b0| 89 8a 08 71 88 c1 c2 21 | 88 29 c1 87 22 20 5b 73 |...q...!|.).." [s|
|000009c0| 61 76 65 2d 62 75 66 20 | 72 65 6e 61 6d 65 2d 62 |ave-buf |rename-b|
|000009d0| 75 66 66 65 72 20 22 48 | 6f 74 6c 69 73 74 22 5d |uffer "H|otlist"]|
|000009e0| 20 32 29 29 20 77 33 2d | 73 68 6f 77 2d 68 6f 74 | 2)) w3-|show-hot|
|000009f0| 6c 69 73 74 20 22 48 6f | 74 6c 69 73 74 20 5c 22 |list "Ho|tlist \"|
|00000a00| 22 20 22 5c 22 22 20 22 | 68 6f 74 6c 69 73 74 2f |" "\"" "|hotlist/|
|00000a10| 22 20 75 72 6c 2d 63 75 | 72 72 65 6e 74 2d 66 69 |" url-cu|rrent-fi|
|00000a20| 6c 65 5d 20 36 20 22 5c | 0a 53 68 6f 77 20 68 6f |le] 6 "\|.Show ho|
|00000a30| 74 6c 69 73 74 20 65 6e | 74 72 69 65 73 20 6d 61 |tlist en|tries ma|
|00000a40| 74 63 68 69 6e 67 20 52 | 45 47 45 58 50 2e 22 20 |tching R|EGEXP." |
|00000a50| 22 73 57 33 20 48 6f 74 | 6c 69 73 74 20 41 70 72 |"sW3 Hot|list Apr|
|00000a60| 6f 70 6f 73 20 28 72 65 | 67 65 78 70 29 3a 20 22 |opos (re|gexp): "|
|00000a70| 5d 29 0a 28 66 73 65 74 | 20 27 77 33 2d 68 6f 74 |]).(fset| 'w3-hot|
|00000a80| 6c 69 73 74 2d 72 65 66 | 72 65 73 68 20 23 5b 6e |list-ref|resh #[n|
|00000a90| 69 6c 20 22 c0 20 88 c1 | c2 21 ad 82 c2 20 87 22 |il ". ..|.!... ."|
|00000aa0| 20 5b 77 33 2d 70 61 72 | 73 65 2d 68 6f 74 6c 69 | [w3-par|se-hotli|
|00000ab0| 73 74 20 66 62 6f 75 6e | 64 70 20 77 33 2d 61 64 |st fboun|dp w3-ad|
|00000ac0| 64 2d 68 6f 74 6c 69 73 | 74 2d 6d 65 6e 75 5d 20 |d-hotlis|t-menu] |
|00000ad0| 32 20 22 5c 0a 52 65 6c | 6f 61 64 20 74 68 65 20 |2 "\.Rel|oad the |
|00000ae0| 64 65 66 61 75 6c 74 20 | 68 6f 74 6c 69 73 74 20 |default |hotlist |
|00000af0| 66 69 6c 65 20 69 6e 74 | 6f 20 6d 65 6d 6f 72 79 |file int|o memory|
|00000b00| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 77 |" nil]).|(fset 'w|
|00000b10| 33 2d 64 65 6c 65 74 65 | 2d 66 72 6f 6d 2d 61 6c |3-delete|-from-al|
|00000b20| 69 73 74 20 23 5b 28 78 | 20 61 6c 69 73 74 29 20 |ist #[(x| alist) |
|00000b30| 22 c0 09 5c 6e 5c 22 5c | 6e 40 3d ab 83 5c 6e 41 |"..\n\"\|n@=..\nA|
|00000b40| 87 c3 c0 09 5c 6e 5c 22 | 5c 6e 5c 22 87 22 20 5b |....\n\"|\n\"." [|
|00000b50| 61 73 73 6f 63 20 78 20 | 61 6c 69 73 74 20 64 65 |assoc x |alist de|
|00000b60| 6c 71 5d 20 34 5d 29 0a | 28 66 73 65 74 20 27 77 |lq] 4]).|(fset 'w|
|00000b70| 33 2d 68 6f 74 6c 69 73 | 74 2d 64 65 6c 65 74 65 |3-hotlis|t-delete|
|00000b80| 20 23 5b 6e 69 6c 20 22 | 8a 08 ac 86 c1 c2 21 88 | #[nil "|......!.|
|00000b90| aa ee c3 0c 21 ac 87 c1 | c5 0c 5c 22 88 aa e2 c6 |....!...|..\"....|
|00000ba0| 1e 07 c8 c9 ca 08 cb c6 | 24 08 5c 22 40 1e 0c cb |........|$.\"@...|
|00000bb0| 1e 0d ce cf 21 1e 10 0e | 0c d1 98 ab 84 d2 d3 21 |....!...|.......!|
|00000bc0| 88 0e 10 71 88 d4 20 88 | d5 0c 21 88 65 62 88 d6 |...q.. .|..!.eb..|
|00000bd0| d7 d8 0e 0c 21 d9 51 cb | c6 23 ab 9e da db 21 88 |....!.Q.|.#....!.|
|00000be0| dc 79 88 60 dd 79 88 60 | 7c 88 de 0c 21 88 df 0e |.y.`.y.`||...!...|
|00000bf0| 0c 08 5c 22 10 e0 70 21 | 88 aa 87 c1 e1 0e 0c 0c |..\"..p!|........|
|00000c00| 23 88 2c 29 e2 e3 21 ad | 82 e3 20 87 22 20 5b 77 |#.,)..!.|.. ." [w|
|00000c10| 33 2d 68 6f 74 6c 69 73 | 74 20 6d 65 73 73 61 67 |3-hotlis|t messag|
|00000c20| 65 20 22 4e 6f 20 68 6f | 74 6c 69 73 74 20 69 6e |e "No ho|tlist in|
|00000c30| 20 6d 65 6d 6f 72 79 21 | 22 20 66 69 6c 65 2d 65 | memory!|" file-e|
|00000c40| 78 69 73 74 73 2d 70 20 | 77 33 2d 68 6f 74 6c 69 |xists-p |w3-hotli|
|00000c50| 73 74 2d 66 69 6c 65 20 | 22 48 6f 74 6c 69 73 74 |st-file |"Hotlist|
|00000c60| 20 66 69 6c 65 20 25 73 | 20 64 6f 65 73 20 6e 6f | file %s| does no|
|00000c70| 74 20 65 78 69 73 74 2e | 22 20 74 20 63 6f 6d 70 |t exist.|" t comp|
|00000c80| 6c 65 74 69 6f 6e 2d 69 | 67 6e 6f 72 65 2d 63 61 |letion-i|gnore-ca|
|00000c90| 73 65 20 61 73 73 6f 63 | 20 63 6f 6d 70 6c 65 74 |se assoc| complet|
|00000ca0| 69 6e 67 2d 72 65 61 64 | 20 22 44 65 6c 65 74 65 |ing-read| "Delete|
|00000cb0| 20 44 6f 63 75 6d 65 6e | 74 3a 20 22 20 6e 69 6c | Documen|t: " nil|
|00000cc0| 20 74 69 74 6c 65 20 63 | 61 73 65 2d 66 6f 6c 64 | title c|ase-fold|
|00000cd0| 2d 73 65 61 72 63 68 20 | 67 65 74 2d 62 75 66 66 |-search |get-buff|
|00000ce0| 65 72 2d 63 72 65 61 74 | 65 20 22 20 2a 48 4f 54 |er-creat|e " *HOT|
|00000cf0| 57 33 2a 22 20 62 75 66 | 66 65 72 20 22 22 20 65 |W3*" buf|fer "" e|
|00000d00| 72 72 6f 72 20 22 4e 6f | 20 64 6f 63 75 6d 65 6e |rror "No| documen|
|00000d10| 74 20 73 70 65 63 69 66 | 69 65 64 2e 22 20 65 72 |t specif|ied." er|
|00000d20| 61 73 65 2d 62 75 66 66 | 65 72 20 6d 6d 2d 69 6e |ase-buff|er mm-in|
|00000d30| 73 65 72 74 2d 66 69 6c | 65 2d 63 6f 6e 74 65 6e |sert-fil|e-conten|
|00000d40| 74 73 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |ts re-se|arch-for|
|00000d50| 77 61 72 64 20 22 5e 22 | 20 72 65 67 65 78 70 2d |ward "^"| regexp-|
|00000d60| 71 75 6f 74 65 20 22 0d | 2a 24 22 20 70 72 65 76 |quote ".|*$" prev|
|00000d70| 69 6f 75 73 2d 6c 69 6e | 65 20 31 20 30 20 32 20 |ious-lin|e 1 0 2 |
|00000d80| 77 72 69 74 65 2d 66 69 | 6c 65 20 77 33 2d 64 65 |write-fi|le w3-de|
|00000d90| 6c 65 74 65 2d 66 72 6f | 6d 2d 61 6c 69 73 74 20 |lete-fro|m-alist |
|00000da0| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 22 25 73 20 |kill-buf|fer "%s |
|00000db0| 77 61 73 20 6e 6f 74 20 | 66 6f 75 6e 64 20 69 6e |was not |found in|
|00000dc0| 20 25 73 22 20 66 62 6f | 75 6e 64 70 20 77 33 2d | %s" fbo|undp w3-|
|00000dd0| 61 64 64 2d 68 6f 74 6c | 69 73 74 2d 6d 65 6e 75 |add-hotl|ist-menu|
|00000de0| 5d 20 36 20 22 5c 0a 44 | 65 6c 65 74 65 73 20 61 |] 6 "\.D|eletes a|
|00000df0| 20 64 6f 63 75 6d 65 6e | 74 20 66 72 6f 6d 20 79 | documen|t from y|
|00000e00| 6f 75 72 20 68 6f 74 6c | 69 73 74 20 66 69 6c 65 |our hotl|ist file|
|00000e10| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 77 |" nil]).|(fset 'w|
|00000e20| 33 2d 68 6f 74 6c 69 73 | 74 2d 72 65 6e 61 6d 65 |3-hotlis|t-rename|
|00000e30| 2d 65 6e 74 72 79 20 23 | 5b 28 74 69 74 6c 65 29 |-entry #|[(title)|
|00000e40| 20 22 08 c1 98 ab 86 c2 | c3 21 88 aa a7 0c ac 86 | "......|.!......|
|00000e50| c2 c5 21 88 aa 9e c6 c7 | 0e 08 21 21 ac 88 c2 c9 |..!.....|..!!....|
|00000e60| 0e 08 5c 22 88 aa 8e ca | c7 0e 08 21 21 ac 86 c2 |..\"....|...!!...|
|00000e70| cb 0e 08 5c 22 88 8a cc | 08 0c 5c 22 cd ce 0c 5c |...\"...|..\"...\|
|00000e80| 22 cf d0 21 d1 1e 12 1e | 13 1e 14 1e 15 0e 12 ab |"..!....|........|
|00000e90| 87 0e 12 0e 14 9d ab 88 | d6 d7 21 89 16 12 aa 6f |........|..!....o|
|00000ea0| 0e 13 71 88 d8 20 88 d9 | c7 0e 08 21 21 88 65 62 |..q.. ..|...!!.eb|
|00000eb0| 88 da db 08 21 d1 dc 23 | ab c5 dd de 21 88 df 79 |....!..#|....!..y|
|00000ec0| 88 60 e0 79 88 60 7c 88 | e1 e2 e3 0e 15 41 40 e4 |.`.y.`|.|.....A@.|
|00000ed0| 20 0e 12 24 21 88 0e 12 | 0e 15 41 40 44 e5 08 0c | ..$!...|..A@D...|
|00000ee0| 5c 22 42 14 e6 0e 08 21 | 88 e7 70 21 88 0e 28 ab |\"B....!|..p!..(.|
|00000ef0| 96 e9 20 ea 3d ac 90 eb | ec 21 88 ed 20 88 aa 87 |.. .=...|.!.. ...|
|00000f00| ee ef 08 0e 08 23 88 2d | f0 f1 21 ad 82 f1 20 87 |.....#.-|..!... .|
|00000f10| 22 20 5b 74 69 74 6c 65 | 20 22 22 20 65 72 72 6f |" [title| "" erro|
|00000f20| 72 20 22 4e 6f 20 64 6f | 63 75 6d 65 6e 74 20 73 |r "No do|cument s|
|00000f30| 70 65 63 69 66 69 65 64 | 21 22 20 77 33 2d 68 6f |pecified|!" w3-ho|
|00000f40| 74 6c 69 73 74 20 22 4e | 6f 20 68 6f 74 6c 69 73 |tlist "N|o hotlis|
|00000f50| 74 20 69 6e 20 6d 65 6d | 6f 72 79 21 22 20 66 69 |t in mem|ory!" fi|
|00000f60| 6c 65 2d 65 78 69 73 74 | 73 2d 70 20 65 78 70 61 |le-exist|s-p expa|
|00000f70| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 77 33 2d |nd-file-|name w3-|
|00000f80| 68 6f 74 6c 69 73 74 2d | 66 69 6c 65 20 22 48 6f |hotlist-|file "Ho|
|00000f90| 74 6c 69 73 74 20 66 69 | 6c 65 20 25 73 20 64 6f |tlist fi|le %s do|
|00000fa0| 65 73 20 6e 6f 74 20 65 | 78 69 73 74 2e 22 20 66 |es not e|xist." f|
|00000fb0| 69 6c 65 2d 72 65 61 64 | 61 62 6c 65 2d 70 20 22 |ile-read|able-p "|
|00000fc0| 48 6f 74 6c 69 73 74 20 | 66 69 6c 65 20 25 73 20 |Hotlist |file %s |
|00000fd0| 65 78 69 73 74 73 2c 20 | 62 75 74 20 69 73 20 75 |exists, |but is u|
|00000fe0| 6e 72 65 61 64 61 62 6c | 65 2e 22 20 61 73 73 6f |nreadabl|e." asso|
|00000ff0| 63 20 6d 61 70 63 61 72 | 20 63 61 72 20 67 65 74 |c mapcar| car get|
|00001000| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 22 |-buffer-|create "|
|00001010| 20 2a 48 4f 54 57 33 2a | 22 20 6e 69 6c 20 6e 65 | *HOTW3*|" nil ne|
|00001020| 77 20 62 75 66 66 20 75 | 73 65 64 20 6f 62 6a 20 |w buff u|sed obj |
|00001030| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 4e 65 77 |read-str|ing "New|
|00001040| 20 6e 61 6d 65 3a 20 22 | 20 65 72 61 73 65 2d 62 | name: "| erase-b|
|00001050| 75 66 66 65 72 20 6d 6d | 2d 69 6e 73 65 72 74 2d |uffer mm|-insert-|
|00001060| 66 69 6c 65 2d 63 6f 6e | 74 65 6e 74 73 20 72 65 |file-con|tents re|
|00001070| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001080| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 74 20 70 |regexp-q|uote t p|
|00001090| 72 65 76 69 6f 75 73 2d | 6c 69 6e 65 20 31 20 30 |revious-|line 1 0|
|000010a0| 20 32 20 77 33 2d 69 6e | 73 65 72 74 20 66 6f 72 | 2 w3-in|sert for|
|000010b0| 6d 61 74 20 22 25 73 20 | 25 73 5c 6e 25 73 5c 6e |mat "%s |%s\n%s\n|
|000010c0| 22 20 63 75 72 72 65 6e | 74 2d 74 69 6d 65 2d 73 |" curren|t-time-s|
|000010d0| 74 72 69 6e 67 20 77 33 | 2d 64 65 6c 65 74 65 2d |tring w3|-delete-|
|000010e0| 66 72 6f 6d 2d 61 6c 69 | 73 74 20 77 72 69 74 65 |from-ali|st write|
|000010f0| 2d 66 69 6c 65 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |-file ki|ll-buffe|
|00001100| 72 20 77 33 2d 72 75 6e | 6e 69 6e 67 2d 46 53 46 |r w3-run|ning-FSF|
|00001110| 31 39 20 64 65 76 69 63 | 65 2d 74 79 70 65 20 74 |19 devic|e-type t|
|00001120| 74 79 20 64 65 6c 65 74 | 65 2d 6d 65 6e 75 2d 69 |ty delet|e-menu-i|
|00001130| 74 65 6d 20 28 22 47 6f | 22 29 20 77 33 2d 62 75 |tem ("Go|") w3-bu|
|00001140| 69 6c 64 2d 46 53 46 31 | 39 2d 6d 65 6e 75 20 6d |ild-FSF1|9-menu m|
|00001150| 65 73 73 61 67 65 20 22 | 25 73 20 77 61 73 20 6e |essage "|%s was n|
|00001160| 6f 74 20 66 6f 75 6e 64 | 20 69 6e 20 25 73 22 20 |ot found| in %s" |
|00001170| 66 62 6f 75 6e 64 70 20 | 77 33 2d 61 64 64 2d 68 |fboundp |w3-add-h|
|00001180| 6f 74 6c 69 73 74 2d 6d | 65 6e 75 5d 20 37 20 22 |otlist-m|enu] 7 "|
|00001190| 5c 0a 52 65 6e 61 6d 65 | 20 61 20 68 6f 74 6c 69 |\.Rename| a hotli|
|000011a0| 73 74 20 69 74 65 6d 22 | 20 28 62 79 74 65 2d 63 |st item"| (byte-c|
|000011b0| 6f 64 65 20 22 c0 19 c2 | c3 0c c5 c0 24 29 43 87 |ode "...|....$)C.|
|000011c0| 22 20 5b 74 20 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |" [t com|pletion-|
|000011d0| 69 67 6e 6f 72 65 2d 63 | 61 73 65 20 63 6f 6d 70 |ignore-c|ase comp|
|000011e0| 6c 65 74 69 6e 67 2d 72 | 65 61 64 20 22 52 65 6e |leting-r|ead "Ren|
|000011f0| 61 6d 65 20 65 6e 74 72 | 79 3a 20 22 20 77 33 2d |ame entr|y: " w3-|
|00001200| 68 6f 74 6c 69 73 74 20 | 6e 69 6c 5d 20 35 29 5d |hotlist |nil] 5)]|
|00001210| 29 0a 28 66 73 65 74 20 | 27 77 33 2d 68 6f 74 6c |).(fset |'w3-hotl|
|00001220| 69 73 74 2d 61 70 70 65 | 6e 64 20 23 5b 28 66 6e |ist-appe|nd #[(fn|
|00001230| 61 6d 65 29 20 22 08 19 | c2 0b 21 88 09 08 a4 10 |ame) "..|..!.....|
|00001240| c4 c5 21 ad 82 c5 20 29 | 87 22 20 5b 77 33 2d 68 |..!... )|." [w3-h|
|00001250| 6f 74 6c 69 73 74 20 78 | 20 77 33 2d 70 61 72 73 |otlist x| w3-pars|
|00001260| 65 2d 68 6f 74 6c 69 73 | 74 20 66 6e 61 6d 65 20 |e-hotlis|t fname |
|00001270| 66 62 6f 75 6e 64 70 20 | 77 33 2d 61 64 64 2d 68 |fboundp |w3-add-h|
|00001280| 6f 74 6c 69 73 74 2d 6d | 65 6e 75 5d 20 32 20 22 |otlist-m|enu] 2 "|
|00001290| 5c 0a 41 70 70 65 6e 64 | 20 61 20 68 6f 74 6c 69 |\.Append| a hotli|
|000012a0| 73 74 20 74 6f 20 74 68 | 65 20 6f 6e 65 20 69 6e |st to th|e one in|
|000012b0| 20 6d 65 6d 6f 72 79 22 | 20 22 66 41 70 70 65 6e | memory"| "fAppen|
|000012c0| 64 20 68 6f 74 6c 69 73 | 74 20 66 69 6c 65 3a 20 |d hotlis|t file: |
|000012d0| 22 5d 29 0a 28 66 73 65 | 74 20 27 77 33 2d 70 61 |"]).(fse|t 'w3-pa|
|000012e0| 72 73 65 2d 68 6f 74 6c | 69 73 74 20 23 5b 28 26 |rse-hotl|ist #[(&|
|000012f0| 6f 70 74 69 6f 6e 61 6c | 20 66 6e 61 6d 65 29 20 |optional| fname) |
|00001300| 22 08 ac 82 09 10 c2 13 | c4 08 21 ac 85 c5 c6 08 |".......|..!.....|
|00001310| 5c 22 87 70 1e 07 c8 c9 | 21 1e 5c 6e c2 1e 0b c2 |\".p....|!.\n....|
|00001320| 1e 0c 0e 5c 6e 71 88 cd | 20 88 ce 08 21 88 65 62 |...\nq..| ...!.eb|
|00001330| 88 cf d0 c2 d1 23 ab 86 | d2 d3 21 88 aa 73 d4 d5 |.....#..|..!..s..|
|00001340| 21 88 6d ac aa cf d6 c2 | d1 23 88 d7 94 d7 95 7b |!.m.....|.#.....{|
|00001350| 16 0b d8 79 88 d7 79 88 | 60 c2 7f 88 60 7b 89 16 |...y..y.|`...`{..|
|00001360| 0c d3 9a ac 5d 0e 0c 0e | 0b 44 0b 42 13 aa 53 d9 |....]...|.D.B..S.|
|00001370| 0e 5c 6e 21 88 da db 21 | ab 83 db 20 88 0e 07 71 |.\n!...!|... ...q|
|00001380| 2c 87 22 20 5b 66 6e 61 | 6d 65 20 77 33 2d 68 6f |,." [fna|me w3-ho|
|00001390| 74 6c 69 73 74 2d 66 69 | 6c 65 20 6e 69 6c 20 77 |tlist-fi|le nil w|
|000013a0| 33 2d 68 6f 74 6c 69 73 | 74 20 66 69 6c 65 2d 65 |3-hotlis|t file-e|
|000013b0| 78 69 73 74 73 2d 70 20 | 6d 65 73 73 61 67 65 20 |xists-p |message |
|000013c0| 22 25 73 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 |"%s does| not exi|
|000013d0| 73 74 21 22 20 6f 6c 64 | 2d 62 75 66 66 65 72 20 |st!" old|-buffer |
|000013e0| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|000013f0| 65 20 22 20 2a 48 4f 54 | 57 33 2a 22 20 62 75 66 |e " *HOT|W3*" buf|
|00001400| 66 65 72 20 63 75 72 2d | 6c 69 6e 6b 20 63 75 72 |fer cur-|link cur|
|00001410| 2d 61 6c 69 61 73 20 65 | 72 61 73 65 2d 62 75 66 |-alias e|rase-buf|
|00001420| 66 65 72 20 6d 6d 2d 69 | 6e 73 65 72 74 2d 66 69 |fer mm-i|nsert-fi|
|00001430| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 20 72 65 2d 73 |le-conte|nts re-s|
|00001440| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5e |earch-fo|rward "^|
|00001450| 5c 6e 22 20 74 20 72 65 | 70 6c 61 63 65 2d 6d 61 |\n" t re|place-ma|
|00001460| 74 63 68 20 22 22 20 67 | 6f 74 6f 2d 6c 69 6e 65 |tch "" g|oto-line|
|00001470| 20 33 20 22 5e 5b 5e 20 | 5d 2a 22 20 30 20 31 20 | 3 "^[^ |]*" 0 1 |
|00001480| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 66 62 6f 75 |kill-buf|fer fbou|
|00001490| 6e 64 70 20 77 33 2d 61 | 64 64 2d 68 6f 74 6c 69 |ndp w3-a|dd-hotli|
|000014a0| 73 74 2d 6d 65 6e 75 5d | 20 35 20 22 5c 0a 52 65 |st-menu]| 5 "\.Re|
|000014b0| 61 64 20 69 6e 20 74 68 | 65 20 68 6f 74 6c 69 73 |ad in th|e hotlis|
|000014c0| 74 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 46 |t specif|ied by F|
|000014d0| 4e 41 4d 45 22 5d 29 0a | 28 66 73 65 74 20 27 77 |NAME"]).|(fset 'w|
|000014e0| 33 2d 75 73 65 2d 68 6f | 74 6c 69 73 74 20 23 5b |3-use-ho|tlist #[|
|000014f0| 6e 69 6c 20 22 08 ac 83 | c1 20 88 5c 6e ac 84 c3 |nil "...|. .\n...|
|00001500| c4 21 87 c5 1e 06 c7 c8 | c9 5c 6e ca c5 24 5c 6e |.!......|.\n..$\n|
|00001510| 5c 22 41 40 89 1e 0b cc | 98 ab 84 cd ce 21 88 cf |\"A@....|.....!..|
|00001520| 0e 0b 21 2a 87 22 20 5b | 77 33 2d 73 65 74 75 70 |..!*." [|w3-setup|
|00001530| 2d 64 6f 6e 65 20 77 33 | 2d 64 6f 2d 73 65 74 75 |-done w3|-do-setu|
|00001540| 70 20 77 33 2d 68 6f 74 | 6c 69 73 74 20 6d 65 73 |p w3-hot|list mes|
|00001550| 73 61 67 65 20 22 4e 6f | 20 68 6f 74 6c 69 73 74 |sage "No| hotlist|
|00001560| 20 69 6e 20 6d 65 6d 6f | 72 79 21 22 20 74 20 63 | in memo|ry!" t c|
|00001570| 6f 6d 70 6c 65 74 69 6f | 6e 2d 69 67 6e 6f 72 65 |ompletio|n-ignore|
|00001580| 2d 63 61 73 65 20 61 73 | 73 6f 63 20 63 6f 6d 70 |-case as|soc comp|
|00001590| 6c 65 74 69 6e 67 2d 72 | 65 61 64 20 22 47 6f 74 |leting-r|ead "Got|
|000015a0| 6f 20 44 6f 63 75 6d 65 | 6e 74 3a 20 22 20 6e 69 |o Docume|nt: " ni|
|000015b0| 6c 20 75 72 6c 20 22 22 | 20 65 72 72 6f 72 20 22 |l url ""| error "|
|000015c0| 4e 6f 20 64 6f 63 75 6d | 65 6e 74 20 73 70 65 63 |No docum|ent spec|
|000015d0| 69 66 69 65 64 21 22 20 | 77 33 2d 66 65 74 63 68 |ified!" |w3-fetch|
|000015e0| 5d 20 37 20 22 5c 0a 50 | 6f 73 73 69 62 6c 79 20 |] 7 "\.P|ossibly |
|000015f0| 67 6f 20 74 6f 20 61 20 | 6c 69 6e 6b 20 69 6e 20 |go to a |link in |
|00001600| 79 6f 75 72 20 57 33 2f | 4d 6f 73 61 69 63 20 68 |your W3/|Mosaic h|
|00001610| 6f 74 6c 69 73 74 2e 0a | 54 68 69 73 20 69 73 20 |otlist..|This is |
|00001620| 70 61 72 74 20 6f 66 20 | 74 68 65 20 65 6d 61 63 |part of |the emac|
|00001630| 73 20 57 6f 72 6c 64 20 | 57 69 64 65 20 57 65 62 |s World |Wide Web|
|00001640| 20 62 72 6f 77 73 65 72 | 2e 20 20 49 74 20 77 69 | browser|.  It wi|
|00001650| 6c 6c 20 70 72 6f 6d 70 | 74 20 66 6f 72 0a 6f 6e |ll promp|t for.on|
|00001660| 65 20 6f 66 20 74 68 65 | 20 69 74 65 6d 73 20 69 |e of the| items i|
|00001670| 6e 20 79 6f 75 72 20 27 | 68 6f 74 6c 69 73 74 27 |n your '|hotlist'|
|00001680| 2e 20 20 41 20 68 6f 74 | 6c 69 73 74 20 69 73 20 |.  A hot|list is |
|00001690| 61 20 6c 69 73 74 20 6f | 66 20 6f 66 74 65 6e 0a |a list o|f often.|
|000016a0| 76 69 73 69 74 65 64 20 | 6f 72 20 69 6e 74 65 72 |visited |or inter|
|000016b0| 65 73 74 69 6e 67 20 69 | 74 65 6d 73 20 79 6f 75 |esting i|tems you|
|000016c0| 20 68 61 76 65 20 66 6f | 75 6e 64 20 6f 6e 20 74 | have fo|und on t|
|000016d0| 68 65 20 57 6f 72 6c 64 | 20 57 69 64 65 20 57 65 |he World| Wide We|
|000016e0| 62 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |b." nil]|).(fset |
|000016f0| 27 77 33 2d 68 6f 74 6c | 69 73 74 2d 61 64 64 2d |'w3-hotl|ist-add-|
|00001700| 64 6f 63 75 6d 65 6e 74 | 2d 61 74 2d 70 6f 69 6e |document|-at-poin|
|00001710| 74 20 23 5b 28 70 72 65 | 66 2d 61 72 67 29 20 22 |t #[(pre|f-arg) "|
|00001720| c0 c1 21 c2 1b 89 1c ac | 84 c5 c6 21 88 c7 c8 c9 |..!.....|...!....|
|00001730| 60 21 21 38 13 ca 0e 0b | 0b 0c 23 88 cc cd 21 ad |`!!8....|..#...!.|
|00001740| 82 cd 20 2a 87 22 20 5b | 77 33 2d 76 69 65 77 2d |.. *." [|w3-view-|
|00001750| 74 68 69 73 2d 75 72 6c | 20 74 20 22 6e 69 6c 22 |this-url| t "nil"|
|00001760| 20 74 69 74 6c 65 20 75 | 72 6c 20 65 72 72 6f 72 | title u|rl error|
|00001770| 20 22 4e 6f 20 6c 69 6e | 6b 20 75 6e 64 65 72 20 | "No lin|k under |
|00001780| 70 6f 69 6e 74 2e 22 20 | 33 20 77 33 2d 7a 6f 6e |point." |3 w3-zon|
|00001790| 65 2d 64 61 74 61 20 77 | 33 2d 7a 6f 6e 65 2d 61 |e-data w|3-zone-a|
|000017a0| 74 20 77 33 2d 68 6f 74 | 6c 69 73 74 2d 61 64 64 |t w3-hot|list-add|
|000017b0| 2d 64 6f 63 75 6d 65 6e | 74 20 70 72 65 66 2d 61 |-documen|t pref-a|
|000017c0| 72 67 20 66 62 6f 75 6e | 64 70 20 77 33 2d 61 64 |rg fboun|dp w3-ad|
|000017d0| 64 2d 68 6f 74 6c 69 73 | 74 2d 6d 65 6e 75 5d 20 |d-hotlis|t-menu] |
|000017e0| 35 20 22 5c 0a 41 64 64 | 20 74 68 65 20 64 6f 63 |5 "\.Add| the doc|
|000017f0| 75 6d 65 6e 74 20 70 6f | 69 6e 74 65 64 20 74 6f |ument po|inted to|
|00001800| 20 62 79 20 74 68 65 20 | 68 79 70 65 72 6c 69 6e | by the |hyperlin|
|00001810| 6b 20 75 6e 64 65 72 20 | 70 6f 69 6e 74 20 74 6f |k under |point to|
|00001820| 20 74 68 65 20 68 6f 74 | 6c 69 73 74 2e 22 20 22 | the hot|list." "|
|00001830| 50 22 5d 29 0a 28 66 73 | 65 74 20 27 77 33 2d 68 |P"]).(fs|et 'w3-h|
|00001840| 6f 74 6c 69 73 74 2d 61 | 64 64 2d 64 6f 63 75 6d |otlist-a|dd-docum|
|00001850| 65 6e 74 20 23 5b 28 70 | 72 65 66 2d 61 72 67 20 |ent #[(p|ref-arg |
|00001860| 26 6f 70 74 69 6f 6e 61 | 6c 20 74 68 65 2d 74 69 |&optiona|l the-ti|
|00001870| 74 6c 65 20 74 68 65 2d | 75 72 6c 29 20 22 8a c0 |tle the-|url) "..|
|00001880| c1 21 1a 0b ae 8a 0c ab | 85 c5 c6 21 ae 82 c7 20 |.!......|...!... |
|00001890| 1e 08 0e 09 ae 83 ca cb | 21 1e 0c cd 0e 0c 43 0e |........|!.....C.|
|000018a0| 0e 5c 22 ab 84 cf d0 21 | 88 5c 6e 71 88 d1 20 88 |.\"....!|.\nq.. .|
|000018b0| 0e 08 0e 0c 44 0e 0e 42 | 16 0e d2 0e 0c 21 16 0c |....D..B|.....!..|
|000018c0| d3 0e 14 21 ac 90 d5 d6 | 0e 14 5c 22 88 d7 d8 21 |...!....|..\"...!|
|000018d0| 88 d9 da 21 88 aa 8c db | 0e 14 21 88 64 62 88 d9 |...!....|..!.db..|
|000018e0| da 21 88 d7 dc dd 0e 0c | 21 de df 20 dc 0e 08 26 |.!......|!.. ...&|
|000018f0| 06 88 e0 0e 14 21 88 e1 | 70 21 88 2c e2 e3 21 ad |.....!..|p!.,..!.|
|00001900| 82 e3 20 87 22 20 5b 67 | 65 74 2d 62 75 66 66 65 |.. ." [g|et-buffe|
|00001910| 72 2d 63 72 65 61 74 65 | 20 22 20 2a 48 4f 54 57 |r-create| " *HOTW|
|00001920| 33 2a 22 20 62 75 66 66 | 65 72 20 74 68 65 2d 74 |3*" buff|er the-t|
|00001930| 69 74 6c 65 20 70 72 65 | 66 2d 61 72 67 20 72 65 |itle pre|f-arg re|
|00001940| 61 64 2d 73 74 72 69 6e | 67 20 22 54 69 74 6c 65 |ad-strin|g "Title|
|00001950| 3a 20 22 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |: " buff|er-name |
|00001960| 74 69 74 6c 65 20 74 68 | 65 2d 75 72 6c 20 75 72 |title th|e-url ur|
|00001970| 6c 2d 76 69 65 77 2d 75 | 72 6c 20 74 20 75 72 6c |l-view-u|rl t url|
|00001980| 20 72 61 73 73 6f 63 20 | 77 33 2d 68 6f 74 6c 69 | rassoc |w3-hotli|
|00001990| 73 74 20 65 72 72 6f 72 | 20 22 54 68 61 74 20 69 |st error| "That i|
|000019a0| 74 65 6d 20 61 6c 72 65 | 61 64 79 20 69 6e 20 68 |tem alre|ady in h|
|000019b0| 6f 74 6c 69 73 74 2c 20 | 75 73 65 20 77 33 2d 68 |otlist, |use w3-h|
|000019c0| 6f 74 6c 69 73 74 2d 72 | 65 6e 61 6d 65 2d 65 6e |otlist-r|ename-en|
|000019d0| 74 72 79 2e 22 20 65 72 | 61 73 65 2d 62 75 66 66 |try." er|ase-buff|
|000019e0| 65 72 20 75 72 6c 2d 75 | 6e 68 65 78 2d 73 74 72 |er url-u|nhex-str|
|000019f0| 69 6e 67 20 66 69 6c 65 | 2d 65 78 69 73 74 73 2d |ing file|-exists-|
|00001a00| 70 20 77 33 2d 68 6f 74 | 6c 69 73 74 2d 66 69 6c |p w3-hot|list-fil|
|00001a10| 65 20 6d 65 73 73 61 67 | 65 20 22 43 72 65 61 74 |e messag|e "Creat|
|00001a20| 69 6e 67 20 68 6f 74 6c | 69 73 74 20 66 69 6c 65 |ing hotl|ist file|
|00001a30| 20 25 73 22 20 77 33 2d | 69 6e 73 65 72 74 20 22 | %s" w3-|insert "|
|00001a40| 6e 63 73 61 2d 78 6d 6f | 73 61 69 63 2d 68 6f 74 |ncsa-xmo|saic-hot|
|00001a50| 6c 69 73 74 2d 66 6f 72 | 6d 61 74 2d 31 5c 6e 44 |list-for|mat-1\nD|
|00001a60| 65 66 61 75 6c 74 5c 6e | 5c 6e 22 20 62 61 63 6b |efault\n|\n" back|
|00001a70| 77 61 72 64 2d 63 68 61 | 72 20 31 20 6d 6d 2d 69 |ward-cha|r 1 mm-i|
|00001a80| 6e 73 65 72 74 2d 66 69 | 6c 65 2d 63 6f 6e 74 65 |nsert-fi|le-conte|
|00001a90| 6e 74 73 20 22 5c 6e 22 | 20 75 72 6c 2d 68 65 78 |nts "\n"| url-hex|
|00001aa0| 69 66 79 2d 73 74 72 69 | 6e 67 20 22 20 22 20 63 |ify-stri|ng " " c|
|00001ab0| 75 72 72 65 6e 74 2d 74 | 69 6d 65 2d 73 74 72 69 |urrent-t|ime-stri|
|00001ac0| 6e 67 20 77 72 69 74 65 | 2d 66 69 6c 65 20 6b 69 |ng write|-file ki|
|00001ad0| 6c 6c 2d 62 75 66 66 65 | 72 20 66 62 6f 75 6e 64 |ll-buffe|r fbound|
|00001ae0| 70 20 77 33 2d 61 64 64 | 2d 68 6f 74 6c 69 73 74 |p w3-add|-hotlist|
|00001af0| 2d 6d 65 6e 75 5d 20 37 | 20 22 5c 0a 41 64 64 20 |-menu] 7| "\.Add |
|00001b00| 74 68 69 73 20 64 6f 63 | 75 6d 65 6e 74 73 20 75 |this doc|uments u|
|00001b10| 72 6c 20 74 6f 20 74 68 | 65 20 68 6f 74 6c 69 73 |rl to th|e hotlis|
|00001b20| 74 22 20 22 50 22 5d 29 | 0a 28 70 72 6f 76 69 64 |t" "P"])|.(provid|
|00001b30| 65 20 27 77 33 2d 68 6f | 74 29 0a                |e 'w3-ho|t).     |
+--------+-------------------------+-------------------------+--------+--------+