InfoMagic Source Code 1993 July

home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / help-macro.elc < prev next >
Emacs Compiled Lisp | 1993-07-05 | 1.9 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: Emacs Compiled Lisp (other/emacsCompiledLisp).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	Emacs Compiled Lisp `(other/emacsCompiledLisp)`	magic	Unsupported
`1%`	dexvert	Combustion 2 Particle Library `(other/combustion2ParticleLibrary)`	ext	Unsupported
`100%`	file	Emacs/XEmacs v19 byte-compiled Lisp data	default
`99%`	file	data	default
`100%`	TrID	Emacs/XEmacs byte-compiled Lisp (generic)	default
`100%`	xdgMime	text/x-emacs-lisp	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 33 3a 31 36 3a 31 | 33 20 31 39 39 33 0a 3b | 23:16:1|3 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 68 65 6c | 70 2d 6d 61 63 72 6f 2e |lisp/hel|p-macro.|
|00000080| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000090| 73 69 6f 6e 20 31 39 2e | 31 35 2e 31 36 2e 0a 3b |sion 19.|15.16..;|
|000000a0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000b0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000c0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000d0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000e0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000f0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000100| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000110| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000120| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000130| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000140| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000150| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000170| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000180| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 |    (err|or "This|
|000001a0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 22 |ed for E|macs 19"|
|000001c0| 29 29 0a 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |))..(byt|e-code "|
|000001d0| c0 c1 21 88 c2 c3 21 87 | 22 20 5b 70 72 6f 76 69 |..!...!.|" [provi|
|000001e0| 64 65 20 68 65 6c 70 2d | 6d 61 63 72 6f 20 72 65 |de help-|macro re|
|000001f0| 71 75 69 72 65 20 62 61 | 63 6b 71 75 6f 74 65 5d |quire ba|ckquote]|
|00000200| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d | 2).(def|alias 'm|
|00000210| 61 6b 65 2d 68 65 6c 70 | 2d 73 63 72 65 65 6e 20 |ake-help|-screen |
|00000220| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 66 6e 61 |'(macro |. #[(fna|
|00000230| 6d 65 20 68 65 6c 70 2d | 6c 69 6e 65 20 68 65 6c |me help-|line hel|
|00000240| 70 2d 74 65 78 74 20 68 | 65 6c 70 65 64 2d 6d 61 |p-text h|elped-ma|
|00000250| 70 29 20 22 c0 09 c2 0b | c4 c5 c6 c7 0e 08 44 44 |p) "....|......DD|
|00000260| 43 c9 c5 ca cb cc cd ce | cc cf d0 d1 d2 d3 d4 09 |C.......|........|
|00000270| 44 44 44 d5 d6 af 07 45 | c5 d7 d8 d9 da 0e 1b 45 |DDD....E|.......E|
|00000280| 44 44 43 dc 45 45 dd 45 | 45 46 af 06 87 22 20 5b |DDC.EE.E|EF..." [|
|00000290| 64 65 66 75 6e 20 66 6e | 61 6d 65 20 6e 69 6c 20 |defun fn|ame nil |
|000002a0| 68 65 6c 70 2d 74 65 78 | 74 20 28 69 6e 74 65 72 |help-tex|t (inter|
|000002b0| 61 63 74 69 76 65 29 20 | 6c 65 74 20 6c 69 6e 65 |active) |let line|
|000002c0| 2d 70 72 6f 6d 70 74 20 | 73 75 62 73 74 69 74 75 |-prompt |substitu|
|000002d0| 74 65 2d 63 6f 6d 6d 61 | 6e 64 2d 6b 65 79 73 20 |te-comma|nd-keys |
|000002e0| 68 65 6c 70 2d 6c 69 6e | 65 20 28 6d 65 73 73 61 |help-lin|e (messa|
|000002f0| 67 65 20 6c 69 6e 65 2d | 70 72 6f 6d 70 74 29 20 |ge line-|prompt) |
|00000300| 28 28 63 68 61 72 20 28 | 72 65 61 64 2d 65 76 65 |((char (|read-eve|
|00000310| 6e 74 29 29 20 63 6f 6e | 66 69 67 29 20 75 6e 77 |nt)) con|fig) unw|
|00000320| 69 6e 64 2d 70 72 6f 74 | 65 63 74 20 70 72 6f 67 |ind-prot|ect prog|
|00000330| 6e 20 69 66 20 28 6f 72 | 20 28 65 71 20 63 68 61 |n if (or| (eq cha|
|00000340| 72 20 36 33 29 20 28 65 | 71 20 63 68 61 72 20 68 |r 63) (e|q char h|
|00000350| 65 6c 70 2d 63 68 61 72 | 29 29 20 28 73 65 74 71 |elp-char|)) (setq|
|00000360| 20 63 6f 6e 66 69 67 20 | 28 63 75 72 72 65 6e 74 | config |(current|
|00000370| 2d 77 69 6e 64 6f 77 2d | 63 6f 6e 66 69 67 75 72 |-window-|configur|
|00000380| 61 74 69 6f 6e 29 29 20 | 28 73 77 69 74 63 68 2d |ation)) |(switch-|
|00000390| 74 6f 2d 62 75 66 66 65 | 72 2d 6f 74 68 65 72 2d |to-buffe|r-other-|
|000003a0| 77 69 6e 64 6f 77 20 22 | 2a 48 65 6c 70 2a 22 29 |window "|*Help*")|
|000003b0| 20 28 65 72 61 73 65 2d | 62 75 66 66 65 72 29 20 | (erase-|buffer) |
|000003c0| 69 6e 73 65 72 74 20 64 | 6f 63 75 6d 65 6e 74 61 |insert d|ocumenta|
|000003d0| 74 69 6f 6e 20 71 75 6f | 74 65 20 28 67 6f 74 6f |tion quo|te (goto|
|000003e0| 2d 63 68 61 72 20 28 70 | 6f 69 6e 74 2d 6d 69 6e |-char (p|oint-min|
|000003f0| 29 29 20 28 77 68 69 6c | 65 20 28 6d 65 6d 71 20 |)) (whil|e (memq |
|00000400| 63 68 61 72 20 28 63 6f | 6e 73 20 68 65 6c 70 2d |char (co|ns help-|
|00000410| 63 68 61 72 20 28 71 75 | 6f 74 65 20 28 36 33 20 |char (qu|ote (63 |
|00000420| 32 32 20 33 32 20 31 32 | 37 20 2d 38 33 38 38 34 |22 32 12|7 -83884|
|00000430| 39 30 29 29 29 29 20 28 | 69 66 20 28 6d 65 6d 71 |90)))) (|if (memq|
|00000440| 20 63 68 61 72 20 28 71 | 75 6f 74 65 20 28 32 32 | char (q|uote (22|
|00000450| 20 33 32 29 29 29 20 28 | 73 63 72 6f 6c 6c 2d 75 | 32))) (|scroll-u|
|00000460| 70 29 29 20 28 69 66 20 | 28 6d 65 6d 71 20 63 68 |p)) (if |(memq ch|
|00000470| 61 72 20 28 71 75 6f 74 | 65 20 28 31 32 37 20 2d |ar (quot|e (127 -|
|00000480| 38 33 38 38 34 39 30 29 | 29 29 20 28 73 63 72 6f |8388490)|)) (scro|
|00000490| 6c 6c 2d 64 6f 77 6e 29 | 29 20 28 6d 65 73 73 61 |ll-down)|) (messa|
|000004a0| 67 65 20 22 25 73 25 73 | 3a 20 22 20 6c 69 6e 65 |ge "%s%s|: " line|
|000004b0| 2d 70 72 6f 6d 70 74 20 | 28 69 66 20 28 70 6f 73 |-prompt |(if (pos|
|000004c0| 2d 76 69 73 69 62 6c 65 | 2d 69 6e 2d 77 69 6e 64 |-visible|-in-wind|
|000004d0| 6f 77 2d 70 20 28 70 6f | 69 6e 74 2d 6d 61 78 29 |ow-p (po|int-max)|
|000004e0| 29 20 22 22 20 22 20 6f | 72 20 53 70 61 63 65 20 |) "" " o|r Space |
|000004f0| 74 6f 20 73 63 72 6f 6c | 6c 22 29 29 20 28 6c 65 |to scrol|l")) (le|
|00000500| 74 20 28 28 63 75 72 73 | 6f 72 2d 69 6e 2d 65 63 |t ((curs|or-in-ec|
|00000510| 68 6f 2d 61 72 65 61 20 | 74 29 29 20 28 73 65 74 |ho-area |t)) (set|
|00000520| 71 20 63 68 61 72 20 28 | 72 65 61 64 2d 65 76 65 |q char (|read-eve|
|00000530| 6e 74 29 29 29 29 20 64 | 65 66 6e 20 63 64 72 20 |nt)))) d|efn cdr |
|00000540| 61 73 73 71 20 28 69 66 | 20 28 69 6e 74 65 67 65 |assq (if| (intege|
|00000550| 72 70 20 63 68 61 72 29 | 20 28 64 6f 77 6e 63 61 |rp char)| (downca|
|00000560| 73 65 20 63 68 61 72 29 | 20 63 68 61 72 29 20 68 |se char)| char) h|
|00000570| 65 6c 70 65 64 2d 6d 61 | 70 20 28 69 66 20 64 65 |elped-ma|p (if de|
|00000580| 66 6e 20 28 69 66 20 28 | 6b 65 79 6d 61 70 70 20 |fn (if (|keymapp |
|00000590| 64 65 66 6e 29 20 28 65 | 72 72 6f 72 20 22 73 6f |defn) (e|rror "so|
|000005a0| 72 72 79 2c 20 74 68 69 | 73 20 63 6f 6d 6d 61 6e |rry, thi|s comman|
|000005b0| 64 20 63 61 6e 6e 6f 74 | 20 62 65 20 72 75 6e 20 |d cannot| be run |
|000005c0| 66 72 6f 6d 20 74 68 65 | 20 68 65 6c 70 20 73 63 |from the| help sc|
|000005d0| 72 65 65 6e 2e 20 20 53 | 74 61 72 74 20 6f 76 65 |reen.  S|tart ove|
|000005e0| 72 2e 22 29 20 28 69 66 | 20 63 6f 6e 66 69 67 20 |r.") (if| config |
|000005f0| 28 70 72 6f 67 6e 20 28 | 73 65 74 2d 77 69 6e 64 |(progn (|set-wind|
|00000600| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|00000610| 20 63 6f 6e 66 69 67 29 | 20 28 73 65 74 71 20 63 | config)| (setq c|
|00000620| 6f 6e 66 69 67 20 6e 69 | 6c 29 29 29 20 28 63 61 |onfig ni|l))) (ca|
|00000630| 6c 6c 2d 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |ll-inter|actively|
|00000640| 20 64 65 66 6e 29 29 20 | 28 69 66 20 28 6c 69 73 | defn)) |(if (lis|
|00000650| 74 70 20 63 68 61 72 29 | 20 28 73 65 74 71 20 75 |tp char)| (setq u|
|00000660| 6e 72 65 61 64 2d 63 6f | 6d 6d 61 6e 64 2d 65 76 |nread-co|mmand-ev|
|00000670| 65 6e 74 73 20 28 63 6f | 6e 73 20 63 68 61 72 20 |ents (co|ns char |
|00000680| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 65 |unread-c|ommand-e|
|00000690| 76 65 6e 74 73 29 20 63 | 6f 6e 66 69 67 20 6e 69 |vents) c|onfig ni|
|000006a0| 6c 29 20 28 64 69 6e 67 | 29 29 29 20 28 69 66 20 |l) (ding|))) (if |
|000006b0| 63 6f 6e 66 69 67 20 28 | 73 65 74 2d 77 69 6e 64 |config (|set-wind|
|000006c0| 6f 77 2d 63 6f 6e 66 69 | 67 75 72 61 74 69 6f 6e |ow-confi|guration|
|000006d0| 20 63 6f 6e 66 69 67 29 | 29 5d 20 32 32 20 22 5c | config)|)] 22 "\|
|000006e0| 0a 43 6f 6e 73 74 72 75 | 63 74 73 20 66 75 6e 63 |.Constru|cts func|
|000006f0| 74 69 6f 6e 20 46 4e 41 | 4d 45 20 74 68 61 74 20 |tion FNA|ME that |
|00000700| 77 68 65 6e 20 69 6e 76 | 6f 6b 65 64 20 73 68 6f |when inv|oked sho|
|00000710| 77 73 20 48 45 4c 50 2d | 4c 49 4e 45 20 61 6e 64 |ws HELP-|LINE and|
|00000720| 20 69 66 20 61 20 68 65 | 6c 70 0a 63 68 61 72 61 | if a he|lp.chara|
|00000730| 63 74 65 72 20 69 73 20 | 72 65 71 75 65 73 74 65 |cter is |requeste|
|00000740| 64 2c 20 73 68 6f 77 73 | 20 48 45 4c 50 2d 54 45 |d, shows| HELP-TE|
|00000750| 58 54 2e 20 54 68 65 20 | 75 73 65 72 20 69 73 20 |XT. The |user is |
|00000760| 70 72 6f 6d 70 74 65 64 | 20 66 6f 72 20 61 20 63 |prompted| for a c|
|00000770| 68 61 72 61 63 74 65 72 | 0a 66 72 6f 6d 20 74 68 |haracter|.from th|
|00000780| 65 20 48 45 4c 50 45 44 | 2d 4d 41 50 20 61 6e 64 |e HELPED|-MAP and|
|00000790| 20 74 68 65 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | the cor|respondi|
|000007a0| 6e 67 20 69 6e 74 65 72 | 61 63 74 69 76 65 20 66 |ng inter|active f|
|000007b0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 65 78 65 63 75 |unction |is execu|
|000007c0| 74 65 64 2e 22 5d 29 29 | 0a                      |ted."]))|.       |
+--------+-------------------------+-------------------------+--------+--------+