home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / hm--html-menus / hm--html-drag-and-drop.elc.z / hm--html-drag-and-drop.elc
Emacs Compiled Lisp  |  1998-05-21  |  3.8 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.

ConfidenceProgramDetectionMatch TypeSupport
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 34 39 3a 34 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:49:46 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 68 6d 2d 2d |s-20.3/l|isp/hm--|
|000000a0| 68 74 6d 6c 2d 6d 65 6e | 75 73 2f 68 6d 2d 2d 68 |html-men|us/hm--h|
|000000b0| 74 6d 6c 2d 64 72 61 67 | 2d 61 6e 64 2d 64 72 6f |tml-drag|-and-dro|
|000000c0| 70 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |p.el.;;;| emacs v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 30 2e 34 20 22 45 6d 65 |ersion 2|0.4 "Eme|
|000000e0| 72 61 6c 64 22 20 58 45 | 6d 61 63 73 20 20 4c 75 |rald" XE|macs Lu|
|000000f0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|00000100| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 32 35 20 58 |p versio|n 2.25 X|
|00000110| 45 6d 61 63 73 3b 20 32 | 32 2d 4d 61 72 2d 39 36 |Emacs; 2|2-Mar-96|
|00000120| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|00000130| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000140| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000150| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000160| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000170| 20 31 39 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 19...(i|f (and (|
|00000180| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000190| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|000001a0| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|000001b0| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|000001c0| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|000001d0| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001e0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 32 30 |macs-ver|sion "20|
|000001f0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))). | (error |
|00000200| 22 60 68 6d 2d 2d 68 74 | 6d 6c 2d 64 72 61 67 2d |"`hm--ht|ml-drag-|
|00000210| 61 6e 64 2d 64 72 6f 70 | 2e 65 6c 27 20 77 61 73 |and-drop|.el' was|
|00000220| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|00000230| 61 63 73 20 32 30 22 29 | 29 0a 0a 28 6f 72 20 28 |acs 20")|)..(or (|
|00000240| 62 6f 75 6e 64 70 20 27 | 63 75 72 72 65 6e 74 2d |boundp '|current-|
|00000250| 6c 6f 61 64 2d 6c 69 73 | 74 29 20 28 73 65 74 71 |load-lis|t) (setq|
|00000260| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000270| 73 74 20 6e 69 6c 29 29 | 0a 0a 0a 28 62 79 74 65 |st nil))|...(byte|
|00000280| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c0 c2 21 87 22 |-code ".|.!...!."|
|00000290| 20 5b 72 65 71 75 69 72 | 65 20 69 6e 74 65 72 6e | [requir|e intern|
|000002a0| 61 6c 2d 64 72 61 67 2d | 61 6e 64 2d 64 72 6f 70 |al-drag-|and-drop|
|000002b0| 20 63 6c 5d 20 32 29 0a | 23 40 31 33 35 20 49 6e | cl] 2).|#@135 In|
|000002c0| 73 65 72 74 73 20 61 6e | 20 69 6e 63 6c 75 64 65 |serts an| include|
|000002d0| 20 69 6d 61 67 65 20 74 | 61 67 20 61 74 20 74 68 | image t|ag at th|
|000002e0| 65 20 44 45 53 54 49 4e | 41 54 49 4f 4e 2e 0a 54 |e DESTIN|ATION..T|
|000002f0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 69 |he name |of the i|
|00000300| 6d 61 67 65 20 69 73 20 | 6f 6e 20 61 20 6c 69 6e |mage is |on a lin|
|00000310| 65 20 69 6e 20 61 20 64 | 69 72 65 64 20 62 75 66 |e in a d|ired buf|
|00000320| 66 65 72 2e 20 49 74 20 | 69 73 20 73 70 65 63 69 |fer. It |is speci|
|00000330| 66 69 65 64 20 62 79 20 | 74 68 65 0a 53 4f 55 52 |fied by |the.SOUR|
|00000340| 43 45 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |CE...(de|falias '|
|00000350| 68 6d 2d 2d 68 74 6d 6c | 2d 69 64 64 2d 61 64 64 |hm--html|-idd-add|
|00000360| 2d 69 6e 63 6c 75 64 65 | 2d 69 6d 61 67 65 2d 66 |-include|-image-f|
|00000370| 72 6f 6d 2d 64 69 72 65 | 64 2d 6c 69 6e 65 20 23 |rom-dire|d-line #|
|00000380| 5b 28 73 6f 75 72 63 65 | 20 64 65 73 74 69 6e 61 |[(source| destina|
|00000390| 74 69 6f 6e 29 20 22 c0 | 09 21 88 5c 6e ab 8f c3 |tion) ".|.!.\n...|
|000003a0| c4 c5 0e 06 21 21 c7 c5 | 0e 06 21 21 5c 22 87 c3 |....!!..|..!!\"..|
|000003b0| c5 0e 06 21 c7 c5 0e 06 | 21 21 5c 22 87 22 20 5b |...!....|!!\"." [|
|000003c0| 69 64 64 2d 73 65 74 2d | 70 6f 69 6e 74 20 64 65 |idd-set-|point de|
|000003d0| 73 74 69 6e 61 74 69 6f | 6e 20 68 6d 2d 2d 68 74 |stinatio|n hm--ht|
|000003e0| 6d 6c 2d 69 64 64 2d 63 | 72 65 61 74 65 2d 72 65 |ml-idd-c|reate-re|
|000003f0| 6c 61 74 69 76 65 2d 6c | 69 6e 6b 73 20 68 6d 2d |lative-l|inks hm-|
|00000400| 2d 68 74 6d 6c 2d 61 64 | 64 2d 69 6d 61 67 65 2d |-html-ad|d-image-|
|00000410| 74 6f 70 20 66 69 6c 65 | 2d 72 65 6c 61 74 69 76 |top file|-relativ|
|00000420| 65 2d 6e 61 6d 65 20 69 | 64 64 2d 67 65 74 2d 64 |e-name i|dd-get-d|
|00000430| 69 72 65 64 2d 66 69 6c | 65 6e 61 6d 65 2d 66 72 |ired-fil|ename-fr|
|00000440| 6f 6d 2d 6c 69 6e 65 20 | 73 6f 75 72 63 65 20 66 |om-line |source f|
|00000450| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00000460| 63 74 6f 72 79 5d 20 35 | 20 28 23 24 20 2e 20 37 |ctory] 5| (#$ . 7|
|00000470| 30 32 29 5d 29 0a 23 40 | 31 30 31 20 49 6e 73 65 |02)]).#@|101 Inse|
|00000480| 72 74 73 20 61 20 6c 69 | 6e 6b 20 77 69 74 68 20 |rts a li|nk with |
|00000490| 74 68 65 20 4c 49 4e 4b | 2d 4f 42 4a 45 43 54 20 |the LINK|-OBJECT |
|000004a0| 69 6e 20 74 68 65 20 44 | 45 53 54 49 4e 41 54 49 |in the D|ESTINATI|
|000004b0| 4f 4e 2e 0a 49 74 20 75 | 73 65 73 20 74 68 65 20 |ON..It u|ses the |
|000004c0| 72 65 67 69 6f 6e 20 61 | 73 20 74 68 65 20 6e 61 |region a|s the na|
|000004d0| 6d 65 20 6f 66 20 74 68 | 65 20 6c 69 6e 6b 2e 1f |me of th|e link..|
|000004e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 68 6d 2d 2d |.(defali|as 'hm--|
|000004f0| 68 74 6d 6c 2d 69 64 64 | 2d 61 64 64 2d 6c 69 6e |html-idd|-add-lin|
|00000500| 6b 2d 74 6f 2d 72 65 67 | 69 6f 6e 20 23 5b 28 6c |k-to-reg|ion #[(l|
|00000510| 69 6e 6b 2d 6f 62 6a 65 | 63 74 20 64 65 73 74 69 |ink-obje|ct desti|
|00000520| 6e 61 74 69 6f 6e 29 20 | 22 c0 09 21 88 c2 0b 21 |nation) |"..!...!|
|00000530| 87 22 20 5b 69 64 64 2d | 73 65 74 2d 72 65 67 69 |." [idd-|set-regi|
|00000540| 6f 6e 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 68 |on desti|nation h|
|00000550| 6d 2d 2d 68 74 6d 6c 2d | 61 64 64 2d 6e 6f 72 6d |m--html-|add-norm|
|00000560| 61 6c 2d 6c 69 6e 6b 2d | 74 6f 2d 72 65 67 69 6f |al-link-|to-regio|
|00000570| 6e 20 6c 69 6e 6b 2d 6f | 62 6a 65 63 74 5d 20 32 |n link-o|bject] 2|
|00000580| 20 28 23 24 20 2e 20 31 | 31 34 38 29 5d 29 0a 23 | (#$ . 1|148)]).#|
|00000590| 40 35 37 20 49 6e 73 65 | 72 74 73 20 61 20 6c 69 |@57 Inse|rts a li|
|000005a0| 6e 6b 20 77 69 74 68 20 | 74 68 65 20 4c 49 4e 4b |nk with |the LINK|
|000005b0| 2d 4f 42 4a 45 43 54 20 | 69 6e 20 74 68 65 20 44 |-OBJECT |in the D|
|000005c0| 45 53 54 49 4e 41 54 49 | 4f 4e 2e 1f 0a 28 64 65 |ESTINATI|ON...(de|
|000005d0| 66 61 6c 69 61 73 20 27 | 68 6d 2d 2d 68 74 6d 6c |falias '|hm--html|
|000005e0| 2d 69 64 64 2d 61 64 64 | 2d 6c 69 6e 6b 20 23 5b |-idd-add|-link #[|
|000005f0| 28 6c 69 6e 6b 2d 6f 62 | 6a 65 63 74 20 64 65 73 |(link-ob|ject des|
|00000600| 74 69 6e 61 74 69 6f 6e | 29 20 22 c0 09 21 88 c2 |tination|) "..!..|
|00000610| 0b 21 87 22 20 5b 69 64 | 64 2d 73 65 74 2d 70 6f |.!." [id|d-set-po|
|00000620| 69 6e 74 20 64 65 73 74 | 69 6e 61 74 69 6f 6e 20 |int dest|ination |
|00000630| 68 6d 2d 2d 68 74 6d 6c | 2d 61 64 64 2d 6e 6f 72 |hm--html|-add-nor|
|00000640| 6d 61 6c 2d 6c 69 6e 6b | 20 6c 69 6e 6b 2d 6f 62 |mal-link| link-ob|
|00000650| 6a 65 63 74 5d 20 32 20 | 28 23 24 20 2e 20 31 34 |ject] 2 |(#$ . 14|
|00000660| 32 38 29 5d 29 0a 23 40 | 31 34 36 20 49 6e 73 65 |28)]).#@|146 Inse|
|00000670| 72 74 73 20 61 20 6c 69 | 6e 6b 20 77 69 74 68 20 |rts a li|nk with |
|00000680| 74 68 65 20 4c 49 4e 4b | 2d 4f 42 4a 45 43 54 20 |the LINK|-OBJECT |
|00000690| 69 6e 20 74 68 65 20 44 | 45 53 54 49 4e 41 54 49 |in the D|ESTINATI|
|000006a0| 4f 4e 2e 0a 49 74 20 75 | 73 65 73 20 74 68 65 20 |ON..It u|ses the |
|000006b0| 72 65 67 69 6f 6e 20 61 | 73 20 74 68 65 20 6e 61 |region a|s the na|
|000006c0| 6d 65 20 6f 66 20 74 68 | 65 20 6c 69 6e 6b 2c 20 |me of th|e link, |
|000006d0| 69 66 20 74 68 65 20 72 | 65 67 69 6f 6e 20 77 61 |if the r|egion wa|
|000006e0| 73 20 61 63 74 69 76 65 | 0a 69 6e 20 74 68 65 20 |s active|.in the |
|000006f0| 44 45 53 54 49 4e 41 54 | 49 4f 4e 2e 1f 0a 28 64 |DESTINAT|ION...(d|
|00000700| 65 66 61 6c 69 61 73 20 | 27 68 6d 2d 2d 68 74 6d |efalias |'hm--htm|
|00000710| 6c 2d 69 64 64 2d 61 64 | 64 2d 6c 69 6e 6b 2d 74 |l-idd-ad|d-link-t|
|00000720| 6f 2d 70 6f 69 6e 74 2d | 6f 72 2d 72 65 67 69 6f |o-point-|or-regio|
|00000730| 6e 20 23 5b 28 6c 69 6e | 6b 2d 6f 62 6a 65 63 74 |n #[(lin|k-object|
|00000740| 20 64 65 73 74 69 6e 61 | 74 69 6f 6e 29 20 22 c0 | destina|tion) ".|
|00000750| c1 5c 6e 5c 22 41 ab 85 | c3 0c 5c 6e 5c 22 87 c5 |.\n\"A..|..\n\"..|
|00000760| 0c 5c 6e 5c 22 87 22 20 | 5b 61 73 73 6f 63 20 3a |.\n\"." |[assoc :|
|00000770| 72 65 67 69 6f 6e 2d 61 | 63 74 69 76 65 20 64 65 |region-a|ctive de|
|00000780| 73 74 69 6e 61 74 69 6f | 6e 20 68 6d 2d 2d 68 74 |stinatio|n hm--ht|
|00000790| 6d 6c 2d 69 64 64 2d 61 | 64 64 2d 6c 69 6e 6b 2d |ml-idd-a|dd-link-|
|000007a0| 74 6f 2d 72 65 67 69 6f | 6e 20 6c 69 6e 6b 2d 6f |to-regio|n link-o|
|000007b0| 62 6a 65 63 74 20 68 6d | 2d 2d 68 74 6d 6c 2d 69 |bject hm|--html-i|
|000007c0| 64 64 2d 61 64 64 2d 6c | 69 6e 6b 5d 20 33 20 28 |dd-add-l|ink] 3 (|
|000007d0| 23 24 20 2e 20 31 36 34 | 34 29 5d 29 0a 23 40 37 |#$ . 164|4)]).#@7|
|000007e0| 37 20 49 6e 73 65 72 74 | 73 20 61 20 66 69 6c 65 |7 Insert|s a file|
|000007f0| 20 6c 69 6e 6b 20 69 6e | 20 44 45 53 54 49 4e 41 | link in| DESTINA|
|00000800| 54 49 4f 4e 20 74 6f 20 | 74 68 65 20 66 69 6c 65 |TION to |the file|
|00000810| 20 6f 6e 20 74 68 65 20 | 64 69 72 65 64 20 6c 69 | on the |dired li|
|00000820| 6e 65 20 6f 66 20 53 4f | 55 52 43 45 2e 1f 0a 28 |ne of SO|URCE...(|
|00000830| 64 65 66 61 6c 69 61 73 | 20 27 68 6d 2d 2d 68 74 |defalias| 'hm--ht|
|00000840| 6d 6c 2d 69 64 64 2d 61 | 64 64 2d 66 69 6c 65 2d |ml-idd-a|dd-file-|
|00000850| 6c 69 6e 6b 2d 74 6f 2d | 66 69 6c 65 2d 6f 6e 2d |link-to-|file-on-|
|00000860| 64 69 72 65 64 2d 6c 69 | 6e 65 20 23 5b 28 73 6f |dired-li|ne #[(so|
|00000870| 75 72 63 65 20 64 65 73 | 74 69 6e 61 74 69 6f 6e |urce des|tination|
|00000880| 29 20 22 c0 09 21 88 5c | 6e ab 8a c3 c4 c5 0e 06 |) "..!.\|n.......|
|00000890| 21 21 09 5c 22 87 c3 c7 | c5 0e 06 21 50 09 5c 22 |!!.\"...|...!P.\"|
|000008a0| 87 22 20 5b 69 64 64 2d | 73 65 74 2d 70 6f 69 6e |." [idd-|set-poin|
|000008b0| 74 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 68 6d |t destin|ation hm|
|000008c0| 2d 2d 68 74 6d 6c 2d 69 | 64 64 2d 63 72 65 61 74 |--html-i|dd-creat|
|000008d0| 65 2d 72 65 6c 61 74 69 | 76 65 2d 6c 69 6e 6b 73 |e-relati|ve-links|
|000008e0| 20 68 6d 2d 2d 68 74 6d | 6c 2d 69 64 64 2d 61 64 | hm--htm|l-idd-ad|
|000008f0| 64 2d 6c 69 6e 6b 2d 74 | 6f 2d 70 6f 69 6e 74 2d |d-link-t|o-point-|
|00000900| 6f 72 2d 72 65 67 69 6f | 6e 20 66 69 6c 65 2d 72 |or-regio|n file-r|
|00000910| 65 6c 61 74 69 76 65 2d | 6e 61 6d 65 20 69 64 64 |elative-|name idd|
|00000920| 2d 67 65 74 2d 64 69 72 | 65 64 2d 66 69 6c 65 6e |-get-dir|ed-filen|
|00000930| 61 6d 65 2d 66 72 6f 6d | 2d 6c 69 6e 65 20 73 6f |ame-from|-line so|
|00000940| 75 72 63 65 20 22 66 69 | 6c 65 3a 2f 2f 22 5d 20 |urce "fi|le://"] |
|00000950| 34 20 28 23 24 20 2e 20 | 32 30 31 38 29 5d 29 0a |4 (#$ . |2018)]).|
|00000960| 23 40 37 30 20 49 6e 73 | 65 72 74 73 20 61 20 66 |#@70 Ins|erts a f|
|00000970| 69 6c 65 20 6c 69 6e 6b | 20 61 74 20 44 45 53 54 |ile link| at DEST|
|00000980| 49 4e 41 54 49 4f 4e 20 | 74 6f 20 74 68 65 20 66 |INATION |to the f|
|00000990| 69 6c 65 20 6f 66 20 74 | 68 65 20 53 4f 55 52 43 |ile of t|he SOURC|
|000009a0| 45 20 62 75 66 66 65 72 | 2e 1f 0a 28 64 65 66 61 |E buffer|...(defa|
|000009b0| 6c 69 61 73 20 27 68 6d | 2d 2d 68 74 6d 6c 2d 69 |lias 'hm|--html-i|
|000009c0| 64 64 2d 61 64 64 2d 66 | 69 6c 65 2d 6c 69 6e 6b |dd-add-f|ile-link|
|000009d0| 2d 74 6f 2d 62 75 66 66 | 65 72 20 23 5b 28 73 6f |-to-buff|er #[(so|
|000009e0| 75 72 63 65 20 64 65 73 | 74 69 6e 61 74 69 6f 6e |urce des|tination|
|000009f0| 29 20 22 c0 09 21 88 5c | 6e ab 8a c3 c4 c5 0e 06 |) "..!.\|n.......|
|00000a00| 21 21 09 5c 22 87 c3 c7 | c5 0e 06 21 50 09 5c 22 |!!.\"...|...!P.\"|
|00000a10| 87 22 20 5b 69 64 64 2d | 73 65 74 2d 70 6f 69 6e |." [idd-|set-poin|
|00000a20| 74 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 68 6d |t destin|ation hm|
|00000a30| 2d 2d 68 74 6d 6c 2d 69 | 64 64 2d 63 72 65 61 74 |--html-i|dd-creat|
|00000a40| 65 2d 72 65 6c 61 74 69 | 76 65 2d 6c 69 6e 6b 73 |e-relati|ve-links|
|00000a50| 20 68 6d 2d 2d 68 74 6d | 6c 2d 69 64 64 2d 61 64 | hm--htm|l-idd-ad|
|00000a60| 64 2d 6c 69 6e 6b 2d 74 | 6f 2d 70 6f 69 6e 74 2d |d-link-t|o-point-|
|00000a70| 6f 72 2d 72 65 67 69 6f | 6e 20 66 69 6c 65 2d 72 |or-regio|n file-r|
|00000a80| 65 6c 61 74 69 76 65 2d | 6e 61 6d 65 20 69 64 64 |elative-|name idd|
|00000a90| 2d 67 65 74 2d 6c 6f 63 | 61 6c 2d 66 69 6c 65 6e |-get-loc|al-filen|
|00000aa0| 61 6d 65 20 73 6f 75 72 | 63 65 20 22 66 69 6c 65 |ame sour|ce "file|
|00000ab0| 3a 2f 2f 22 5d 20 34 20 | 28 23 24 20 2e 20 32 34 |://"] 4 |(#$ . 24|
|00000ac0| 30 35 29 5d 29 0a 23 40 | 37 35 20 49 6e 73 65 72 |05)]).#@|75 Inser|
|00000ad0| 74 73 20 61 20 66 69 6c | 65 20 6c 69 6e 6b 20 61 |ts a fil|e link a|
|00000ae0| 74 20 44 45 53 54 49 4e | 41 54 49 4f 4e 20 74 6f |t DESTIN|ATION to|
|00000af0| 20 74 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 6f | the dir|ectory o|
|00000b00| 66 20 74 68 65 20 53 4f | 55 52 43 45 20 62 75 66 |f the SO|URCE buf|
|00000b10| 66 65 72 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |fer...(d|efalias |
|00000b20| 27 68 6d 2d 2d 68 74 6d | 6c 2d 69 64 64 2d 61 64 |'hm--htm|l-idd-ad|
|00000b30| 64 2d 66 69 6c 65 2d 6c | 69 6e 6b 2d 74 6f 2d 64 |d-file-l|ink-to-d|
|00000b40| 69 72 65 63 74 6f 72 79 | 2d 6f 66 2d 62 75 66 66 |irectory|-of-buff|
|00000b50| 65 72 20 23 5b 28 73 6f | 75 72 63 65 20 64 65 73 |er #[(so|urce des|
|00000b60| 74 69 6e 61 74 69 6f 6e | 29 20 22 c0 09 21 88 5c |tination|) "..!.\|
|00000b70| 6e ab 8a c3 c4 c5 0e 06 | 21 21 09 5c 22 87 c3 c7 |n.......|!!.\"...|
|00000b80| c5 0e 06 21 50 09 5c 22 | 87 22 20 5b 69 64 64 2d |...!P.\"|." [idd-|
|00000b90| 73 65 74 2d 70 6f 69 6e | 74 20 64 65 73 74 69 6e |set-poin|t destin|
|00000ba0| 61 74 69 6f 6e 20 68 6d | 2d 2d 68 74 6d 6c 2d 69 |ation hm|--html-i|
|00000bb0| 64 64 2d 63 72 65 61 74 | 65 2d 72 65 6c 61 74 69 |dd-creat|e-relati|
|00000bc0| 76 65 2d 6c 69 6e 6b 73 | 20 68 6d 2d 2d 68 74 6d |ve-links| hm--htm|
|00000bd0| 6c 2d 69 64 64 2d 61 64 | 64 2d 6c 69 6e 6b 2d 74 |l-idd-ad|d-link-t|
|00000be0| 6f 2d 70 6f 69 6e 74 2d | 6f 72 2d 72 65 67 69 6f |o-point-|or-regio|
|00000bf0| 6e 20 66 69 6c 65 2d 72 | 65 6c 61 74 69 76 65 2d |n file-r|elative-|
|00000c00| 6e 61 6d 65 20 69 64 64 | 2d 67 65 74 2d 64 69 72 |name idd|-get-dir|
|00000c10| 65 63 74 6f 72 79 2d 6f | 66 2d 62 75 66 66 65 72 |ectory-o|f-buffer|
|00000c20| 20 73 6f 75 72 63 65 20 | 22 66 69 6c 65 3a 2f 2f | source |"file://|
|00000c30| 22 5d 20 34 20 28 23 24 | 20 2e 20 32 37 36 33 29 |"] 4 (#$| . 2763)|
|00000c40| 5d 29 0a 23 40 31 34 31 | 20 49 6e 73 65 72 74 73 |]).#@141| Inserts|
|00000c50| 20 61 20 6c 69 6e 6b 20 | 61 74 20 44 45 53 54 49 | a link |at DESTI|
|00000c60| 4e 41 54 49 4f 4e 20 74 | 6f 20 74 68 65 20 77 33 |NATION t|o the w3|
|00000c70| 20 62 75 66 66 65 72 20 | 73 70 65 63 69 66 69 65 | buffer |specifie|
|00000c80| 64 20 62 79 20 74 68 65 | 20 53 4f 55 52 43 45 2e |d by the| SOURCE.|
|00000c90| 0a 4e 6f 74 65 3a 20 52 | 65 6c 61 74 69 76 65 20 |.Note: R|elative |
|00000ca0| 6c 69 6e 6b 73 20 61 72 | 65 20 63 75 72 72 65 6e |links ar|e curren|
|00000cb0| 74 6c 79 20 6e 6f 74 20 | 73 75 70 70 6f 72 74 65 |tly not |supporte|
|00000cc0| 64 20 66 6f 72 20 74 68 | 69 73 20 66 75 6e 63 74 |d for th|is funct|
|00000cd0| 69 6f 6e 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ion...(d|efalias |
|00000ce0| 27 68 6d 2d 2d 68 74 6d | 6c 2d 69 64 64 2d 61 64 |'hm--htm|l-idd-ad|
|00000cf0| 64 2d 68 74 6d 6c 2d 6c | 69 6e 6b 2d 74 6f 2d 77 |d-html-l|ink-to-w|
|00000d00| 33 2d 62 75 66 66 65 72 | 20 23 5b 28 73 6f 75 72 |3-buffer| #[(sour|
|00000d10| 63 65 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 29 20 |ce desti|nation) |
|00000d20| 22 c0 09 21 88 c2 c3 0c | 21 09 5c 22 87 22 20 5b |"..!....|!.\"." [|
|00000d30| 69 64 64 2d 73 65 74 2d | 70 6f 69 6e 74 20 64 65 |idd-set-|point de|
|00000d40| 73 74 69 6e 61 74 69 6f | 6e 20 68 6d 2d 2d 68 74 |stinatio|n hm--ht|
|00000d50| 6d 6c 2d 69 64 64 2d 61 | 64 64 2d 6c 69 6e 6b 2d |ml-idd-a|dd-link-|
|00000d60| 74 6f 2d 70 6f 69 6e 74 | 2d 6f 72 2d 72 65 67 69 |to-point|-or-regi|
|00000d70| 6f 6e 20 69 64 64 2d 67 | 65 74 2d 62 75 66 66 65 |on idd-g|et-buffe|
|00000d80| 72 2d 75 72 6c 20 73 6f | 75 72 63 65 5d 20 33 20 |r-url so|urce] 3 |
|00000d90| 28 23 24 20 2e 20 33 31 | 34 35 29 5d 29 0a 23 40 |(#$ . 31|45)]).#@|
|00000da0| 31 38 30 20 49 6e 73 65 | 72 74 73 20 61 20 6c 69 |180 Inse|rts a li|
|00000db0| 6e 6b 20 61 74 20 44 45 | 53 54 49 4e 41 54 49 4f |nk at DE|STINATIO|
|00000dc0| 4e 20 74 6f 20 61 20 6c | 69 6e 20 69 6e 20 74 68 |N to a l|in in th|
|00000dd0| 65 20 77 33 20 62 75 66 | 66 65 72 2e 0a 54 68 65 |e w3 buf|fer..The|
|00000de0| 20 6c 69 6e 6b 20 69 6e | 20 74 68 65 20 77 33 2d | link in| the w3-|
|00000df0| 62 75 66 66 65 72 20 69 | 73 20 73 70 65 63 69 66 |buffer i|s specif|
|00000e00| 69 65 64 20 62 79 20 74 | 68 65 20 53 4f 55 52 43 |ied by t|he SOURC|
|00000e10| 45 2e 0a 4e 6f 74 65 3a | 20 52 65 6c 61 74 69 76 |E..Note:| Relativ|
|00000e20| 65 20 6c 69 6e 6b 73 20 | 61 72 65 20 63 75 72 72 |e links |are curr|
|00000e30| 65 6e 74 6c 79 20 6e 6f | 74 20 73 75 70 70 6f 72 |ently no|t suppor|
|00000e40| 74 65 64 20 66 6f 72 20 | 74 68 69 73 20 66 75 6e |ted for |this fun|
|00000e50| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ction...|(defalia|
|00000e60| 73 20 27 68 6d 2d 2d 68 | 74 6d 6c 2d 69 64 64 2d |s 'hm--h|tml-idd-|
|00000e70| 61 64 64 2d 68 74 6d 6c | 2d 6c 69 6e 6b 2d 66 72 |add-html|-link-fr|
|00000e80| 6f 6d 2d 77 33 2d 62 75 | 66 66 65 72 2d 70 6f 69 |om-w3-bu|ffer-poi|
|00000e90| 6e 74 20 23 5b 28 73 6f | 75 72 63 65 20 64 65 73 |nt #[(so|urce des|
|00000ea0| 74 69 6e 61 74 69 6f 6e | 29 20 22 c0 09 21 88 c2 |tination|) "..!..|
|00000eb0| c3 0c 21 09 5c 22 87 22 | 20 5b 69 64 64 2d 73 65 |..!.\"."| [idd-se|
|00000ec0| 74 2d 70 6f 69 6e 74 20 | 64 65 73 74 69 6e 61 74 |t-point |destinat|
|00000ed0| 69 6f 6e 20 68 6d 2d 2d | 68 74 6d 6c 2d 69 64 64 |ion hm--|html-idd|
|00000ee0| 2d 61 64 64 2d 6c 69 6e | 6b 2d 74 6f 2d 70 6f 69 |-add-lin|k-to-poi|
|00000ef0| 6e 74 2d 6f 72 2d 72 65 | 67 69 6f 6e 20 69 64 64 |nt-or-re|gion idd|
|00000f00| 2d 67 65 74 2d 75 72 6c | 2d 61 74 2d 70 6f 69 6e |-get-url|-at-poin|
|00000f10| 74 20 73 6f 75 72 63 65 | 5d 20 33 20 28 23 24 20 |t source|] 3 (#$ |
|00000f20| 2e 20 33 34 39 32 29 5d | 29 0a 28 70 72 6f 76 69 |. 3492)]|).(provi|
|00000f30| 64 65 20 27 68 6d 2d 2d | 68 74 6d 6c 2d 64 72 61 |de 'hm--|html-dra|
|00000f40| 67 2d 61 6e 64 2d 64 72 | 6f 70 29 0a |g-and-dr|op). |
+--------+-------------------------+-------------------------+--------+--------+