/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / dired / dired-link.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 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 38 3a 34 30 3a 30 36 20 |Feb  1 1|8:40:06 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 64 69 72 | 65 64 2f 64 69 72 65 64 |lisp/dir|ed/dired|
|00000080| 2d 6c 69 6e 6b 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |-link.el|.;;; ema|
|00000090| 63 73 20 76 65 72 73 69 | 6f 6e 20 31 39 2e 34 2e |cs versi|on 19.4.|
|000000a0| 31 33 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |13 Lucid|..;;; by|
|000000b0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000c0| 2e 31 30 3b 20 20 31 2d | 66 65 62 2d 39 33 2e 0a |.10;  1-|feb-93..|
|000000d0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000e0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000f0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000100| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000110| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 31 38 |exist in| Emacs18|
|00000120| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000130| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000140| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000150| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000160| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000170| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000180| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000190| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001a0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |).    (e|rror "Th|
|000001b0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001c0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 31 39 |iled for| Emacs19|
|000001d0| 2e 22 29 29 0a 0a 28 72 | 65 71 75 69 72 65 20 27 |."))..(r|equire '|
|000001e0| 64 69 72 65 64 29 0a 28 | 66 73 65 74 20 27 64 69 |dired).(|fset 'di|
|000001f0| 72 65 64 2d 6c 69 6e 6b | 2d 6e 6f 73 65 6c 65 63 |red-link|-noselec|
|00000200| 74 2d 63 6c 61 73 73 69 | 63 20 23 5b 28 64 69 72 |t-classi|c #[(dir|
|00000210| 6e 61 6d 65 29 20 22 08 | ac 82 09 10 c2 c3 08 21 |name) ".|.......!|
|00000220| 21 89 10 c4 9a 3f ad ac | 08 c5 48 c6 55 ab 84 c7 |!....?..|..H.U...|
|00000230| 08 21 10 c8 08 21 ab 84 | c9 08 21 10 ca 08 21 89 |.!...!..|..!...!.|
|00000240| 1e 0b 71 88 cc 08 0e 0b | 5c 22 88 cd 20 88 ce 08 |..q.....|\".. ...|
|00000250| 21 88 0e 0b 29 87 22 20 | 5b 64 69 72 6e 61 6d 65 |!...)." |[dirname|
|00000260| 20 64 65 66 61 75 6c 74 | 2d 64 69 72 65 63 74 6f | default|-directo|
|00000270| 72 79 20 64 69 72 65 64 | 2d 6c 69 6e 6b 2d 72 65 |ry dired|-link-re|
|00000280| 66 65 72 65 6e 74 20 64 | 69 72 65 63 74 6f 72 79 |ferent d|irectory|
|00000290| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 22 20 30 20 |-file-na|me "" 0 |
|000002a0| 31 32 36 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |126 expa|nd-file-|
|000002b0| 6e 61 6d 65 20 66 69 6c | 65 2d 64 69 72 65 63 74 |name fil|e-direct|
|000002c0| 6f 72 79 2d 70 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |ory-p fi|le-name-|
|000002d0| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 64 69 72 |as-direc|tory dir|
|000002e0| 65 64 2d 66 69 6e 64 2d | 62 75 66 66 65 72 20 62 |ed-find-|buffer b|
|000002f0| 75 66 66 65 72 20 64 69 | 72 65 64 2d 72 65 61 64 |uffer di|red-read|
|00000300| 69 6e 20 64 69 72 65 64 | 2d 6d 6f 76 65 2d 74 6f |in dired|-move-to|
|00000310| 2d 66 69 6c 65 6e 61 6d | 65 20 64 69 72 65 64 2d |-filenam|e dired-|
|00000320| 6d 6f 64 65 5d 20 34 20 | 22 5c 0a 4c 69 6b 65 20 |mode] 4 |"\.Like |
|00000330| 4d 2d 78 20 64 69 72 65 | 64 20 62 75 74 20 72 65 |M-x dire|d but re|
|00000340| 74 75 72 6e 73 20 74 68 | 65 20 64 69 72 65 64 20 |turns th|e dired |
|00000350| 62 75 66 66 65 72 20 61 | 73 20 76 61 6c 75 65 2c |buffer a|s value,|
|00000360| 20 64 6f 65 73 20 6e 6f | 74 20 73 65 6c 65 63 74 | does no|t select|
|00000370| 20 69 74 2e 22 5d 29 0a | 28 66 73 65 74 20 27 64 | it."]).|(fset 'd|
|00000380| 69 72 65 64 2d 6c 69 6e | 6b 2d 6e 6f 73 65 6c 65 |ired-lin|k-nosele|
|00000390| 63 74 2d 74 72 65 65 20 | 23 5b 28 64 69 72 6e 61 |ct-tree |#[(dirna|
|000003a0| 6d 65 20 26 6f 70 74 69 | 6f 6e 61 6c 20 73 77 69 |me &opti|onal swi|
|000003b0| 74 63 68 65 73 29 20 22 | 08 ac 82 09 10 c2 c3 c4 |tches) "|........|
|000003c0| 08 21 21 21 10 c5 08 21 | ab 84 c6 08 21 10 c7 08 |.!!!...!|....!...|
|000003d0| 0e 08 5c 22 87 22 20 5b | 64 69 72 6e 61 6d 65 20 |..\"." [|dirname |
|000003e0| 64 65 66 61 75 6c 74 2d | 64 69 72 65 63 74 6f 72 |default-|director|
|000003f0| 79 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |y expand|-file-na|
|00000400| 6d 65 20 64 69 72 65 64 | 2d 6c 69 6e 6b 2d 72 65 |me dired|-link-re|
|00000410| 66 65 72 65 6e 74 20 64 | 69 72 65 63 74 6f 72 79 |ferent d|irectory|
|00000420| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 2d |-file-na|me file-|
|00000430| 64 69 72 65 63 74 6f 72 | 79 2d 70 20 66 69 6c 65 |director|y-p file|
|00000440| 2d 6e 61 6d 65 2d 61 73 | 2d 64 69 72 65 63 74 6f |-name-as|-directo|
|00000450| 72 79 20 64 69 72 65 64 | 2d 69 6e 74 65 72 6e 61 |ry dired|-interna|
|00000460| 6c 2d 6e 6f 73 65 6c 65 | 63 74 20 73 77 69 74 63 |l-nosele|ct switc|
|00000470| 68 65 73 5d 20 34 20 22 | 5c 0a 4c 69 6b 65 20 60 |hes] 4 "|\.Like `|
|00000480| 64 69 72 65 64 27 20 62 | 75 74 20 72 65 74 75 72 |dired' b|ut retur|
|00000490| 6e 73 20 74 68 65 20 64 | 69 72 65 64 20 62 75 66 |ns the d|ired buf|
|000004a0| 66 65 72 20 61 73 20 76 | 61 6c 75 65 2c 20 64 6f |fer as v|alue, do|
|000004b0| 65 73 20 6e 6f 74 20 73 | 65 6c 65 63 74 20 69 74 |es not s|elect it|
|000004c0| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|000004d0| 22 c0 c1 c2 21 ab 83 c3 | aa 81 c4 4d 87 22 20 5b |"...!...|...M." [|
|000004e0| 64 69 72 65 64 2d 6e 6f | 73 65 6c 65 63 74 20 66 |dired-no|select f|
|000004f0| 62 6f 75 6e 64 70 20 64 | 69 72 65 64 2d 69 6e 74 |boundp d|ired-int|
|00000500| 65 72 6e 61 6c 2d 6e 6f | 73 65 6c 65 63 74 20 64 |ernal-no|select d|
|00000510| 69 72 65 64 2d 6c 69 6e | 6b 2d 6e 6f 73 65 6c 65 |ired-lin|k-nosele|
|00000520| 63 74 2d 74 72 65 65 20 | 64 69 72 65 64 2d 6c 69 |ct-tree |dired-li|
|00000530| 6e 6b 2d 6e 6f 73 65 6c | 65 63 74 2d 63 6c 61 73 |nk-nosel|ect-clas|
|00000540| 73 69 63 5d 20 33 29 0a | 28 66 73 65 74 20 27 64 |sic] 3).|(fset 'd|
|00000550| 69 72 65 64 2d 6c 69 6e | 6b 2d 72 65 66 65 72 65 |ired-lin|k-refere|
|00000560| 6e 74 20 23 5b 28 6c 69 | 6e 6b 6e 61 6d 65 29 20 |nt #[(li|nkname) |
|00000570| 22 08 3b 3f 3f ad 99 c1 | 1a c3 08 21 89 12 ab 89 |".;??...|...!....|
|00000580| c4 5c 6e c5 08 21 5c 22 | 10 aa 70 29 c4 08 c5 08 |.\n..!\"|..p)....|
|00000590| 21 5c 22 87 22 20 5b 6c | 69 6e 6b 6e 61 6d 65 20 |!\"." [l|inkname |
|000005a0| 6e 69 6c 20 72 65 66 65 | 72 65 6e 74 20 66 69 6c |nil refe|rent fil|
|000005b0| 65 2d 73 79 6d 6c 69 6e | 6b 2d 70 20 64 69 72 65 |e-symlin|k-p dire|
|000005c0| 64 2d 6c 69 6e 6b 2d 65 | 78 70 61 6e 64 20 66 69 |d-link-e|xpand fi|
|000005d0| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|000005e0| 79 5d 20 34 20 22 5c 0a | 52 65 74 75 72 6e 73 20 |y] 4 "\.|Returns |
|000005f0| 65 78 70 61 6e 64 65 64 | 20 66 69 6c 65 20 6f 72 |expanded| file or|
|00000600| 20 64 69 72 65 63 74 6f | 72 79 20 72 65 66 65 72 | directo|ry refer|
|00000610| 65 6e 74 20 6f 66 20 4c | 49 4e 4b 4e 41 4d 45 2e |ent of L|INKNAME.|
|00000620| 0a 4c 49 4e 4b 4e 41 4d | 45 20 73 68 6f 75 6c 64 |.LINKNAM|E should|
|00000630| 20 6e 6f 74 20 65 6e 64 | 20 77 69 74 68 20 61 20 | not end| with a |
|00000640| 64 69 72 65 63 74 6f 72 | 79 20 64 65 6c 69 6d 69 |director|y delimi|
|00000650| 74 65 72 2e 0a 49 66 20 | 4c 49 4e 4b 4e 41 4d 45 |ter..If |LINKNAME|
|00000660| 20 69 73 20 6e 6f 74 20 | 61 20 73 74 72 69 6e 67 | is not |a string|
|00000670| 2c 20 72 65 74 75 72 6e | 73 20 6e 69 6c 2e 0a 49 |, return|s nil..I|
|00000680| 66 20 4c 49 4e 4b 4e 41 | 4d 45 20 69 73 20 6e 6f |f LINKNA|ME is no|
|00000690| 74 20 61 20 6c 69 6e 6b | 2c 20 69 74 20 69 73 20 |t a link|, it is |
|000006a0| 73 69 6d 70 6c 79 20 65 | 78 70 61 6e 64 65 64 20 |simply e|xpanded |
|000006b0| 61 6e 64 20 72 65 74 75 | 72 6e 65 64 2e 22 5d 29 |and retu|rned."])|
|000006c0| 0a 28 66 73 65 74 20 27 | 64 69 72 65 64 2d 6c 69 |.(fset '|dired-li|
|000006d0| 6e 6b 2d 65 78 70 61 6e | 64 20 23 5b 28 72 65 66 |nk-expan|d #[(ref|
|000006e0| 65 72 65 6e 74 20 64 69 | 72 6e 61 6d 65 29 20 22 |erent di|rname) "|
|000006f0| c0 09 1a 1b c4 c5 0e 06 | 5c 22 ab 9c c7 0e 06 c8 |........|\"......|
|00000700| 94 c8 95 4f 21 13 0e 06 | c9 89 94 4f 0b 0e 06 c9 |...O!...|...O....|
|00000710| 95 c0 4f 51 16 06 aa 5d | c4 ca 0e 06 5c 22 89 1e |..OQ...]|....\"..|
|00000720| 0b ab 9a 0e 0b c9 55 ab | 94 c4 cc 09 5c 22 ad 85 |......U.|....\"..|
|00000730| 09 c9 89 95 4f cd 0e 06 | c8 c0 4f 51 16 06 29 c4 |....O...|..OQ..).|
|00000740| ce 0e 06 5c 22 ab c2 c4 | cf 0e 06 5c 22 ab 8a 0e |...\"...|...\"...|
|00000750| 06 c8 95 c0 4f 16 06 aa | 6f c4 d0 0e 06 5c 22 ab |....O...|o....\".|
|00000760| 92 d1 d2 5c 6e 21 21 89 | 12 0e 06 c9 95 c0 4f 50 |...\n!!.|......OP|
|00000770| 16 06 aa 67 c4 d3 0e 06 | 5c 22 ab 48 0e 06 c9 89 |...g....|\".H....|
|00000780| 94 4f 0e 06 c9 95 c0 4f | 50 16 06 aa 68 0e 06 c9 |.O.....O|P...h...|
|00000790| 48 d4 55 ac 8e 0e 06 c9 | 48 d5 55 ac 86 09 0e 06 |H.U.....|H.U.....|
|000007a0| 50 16 06 2a 0e 06 87 22 | 20 5b 6e 69 6c 20 64 69 |P..*..."| [nil di|
|000007b0| 72 6e 61 6d 65 20 64 69 | 72 20 76 61 72 2d 6c 69 |rname di|r var-li|
|000007c0| 6e 6b 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |nk strin|g-match |
|000007d0| 22 5c 5c 24 28 5c 5c 28 | 5b 5e 29 5d 2a 5c 5c 29 |"\\$(\\(|[^)]*\\)|
|000007e0| 29 22 20 72 65 66 65 72 | 65 6e 74 20 67 65 74 65 |)" refer|ent gete|
|000007f0| 6e 76 20 31 20 30 20 22 | 60 6e 6f 64 65 5f 64 61 |nv 1 0 "|`node_da|
|00000800| 74 61 22 20 6e 64 2d 61 | 62 62 72 65 76 20 22 5e |ta" nd-a|bbrev "^|
|00000810| 2f 2f 5b 5e 2f 5d 2b 22 | 20 22 2f 73 79 73 2f 22 |//[^/]+"| "/sys/"|
|00000820| 20 22 5c 5c 2e 5c 5c 2e | 22 20 22 5e 5c 5c 28 2f | "\\.\\.|" "^\\(/|
|00000830| 2f 5c 5c 2e 5c 5c 2e 5c | 5c 7c 2f 5c 5c 2e 5c 5c |/\\.\\.\|\|/\\.\\|
|00000840| 2e 5c 5c 29 5c 5c 28 2f | 5c 5c 7c 24 5c 5c 29 22 |.\\)\\(/|\\|$\\)"|
|00000850| 20 22 5e 5c 5c 2e 5c 5c | 2e 5c 5c 28 2f 5c 5c 7c | "^\\.\\|.\\(/\\||
|00000860| 24 5c 5c 29 22 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |$\\)" fi|le-name-|
|00000870| 64 69 72 65 63 74 6f 72 | 79 20 64 69 72 65 63 74 |director|y direct|
|00000880| 6f 72 79 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 22 5b |ory-file|-name "[|
|00000890| 5e 2f 5d 2b 2f 5c 5c 2e | 5c 5c 2e 2f 22 20 31 32 |^/]+/\\.|\\./" 12|
|000008a0| 36 20 34 37 5d 20 36 20 | 22 5c 0a 45 78 70 61 6e |6 47] 6 |"\.Expan|
|000008b0| 64 73 20 52 45 46 45 52 | 45 4e 54 20 72 65 6c 61 |ds REFER|ENT rela|
|000008c0| 74 69 76 65 20 74 6f 20 | 44 49 52 4e 41 4d 45 20 |tive to |DIRNAME |
|000008d0| 61 6e 64 20 72 65 74 75 | 72 6e 73 2e 22 5d 29 0a |and retu|rns."]).|
|000008e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|000008f0| c0 c2 21 87 22 20 5b 70 | 72 6f 76 69 64 65 20 64 |..!." [p|rovide d|
|00000900| 69 72 2d 6c 69 6e 6b 73 | 20 64 69 72 65 64 2d 6c |ir-links| dired-l|
|00000910| 69 6e 6b 5d 20 32 29 0a |                         |ink] 2).|        |
+--------+-------------------------+-------------------------+--------+--------+