/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / novice.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 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 54 68 75 20 | 4d 61 79 20 20 35 20 30 | on Thu |May  5 0|
|00000040| 31 3a 33 33 3a 34 32 20 | 31 39 39 34 0a 3b 3b 3b |1:33:42 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6e 6f 76 69 63 65 | 2e 65 6c 0a 3b 3b 3b 20 |p/novice|.el.;;; |
|00000080| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|00000090| 2e 32 32 2e 39 31 2e 35 | 2e 0a 3b 3b 3b 20 62 79 |.22.91.5|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 60 | 2f 68 6f 6d 65 2f 66 73 |error "`|/home/fs|
|000001a0| 66 2f 72 6d 73 2f 65 31 | 39 2f 6c 69 73 70 2f 6e |f/rms/e1|9/lisp/n|
|000001b0| 6f 76 69 63 65 2e 65 6c | 27 20 77 61 73 20 63 6f |ovice.el|' was co|
|000001c0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001d0| 20 31 39 22 29 29 0a 0a | 28 62 79 74 65 2d 63 6f | 19"))..|(byte-co|
|000001e0| 64 65 20 22 c0 10 c1 c0 | c2 5c 22 87 22 20 5b 64 |de "....|.\"." [d|
|000001f0| 69 73 61 62 6c 65 64 2d | 63 6f 6d 6d 61 6e 64 2d |isabled-|command-|
|00000200| 68 6f 6f 6b 20 64 65 66 | 61 6c 69 61 73 20 23 5b |hook def|alias #[|
|00000210| 28 26 72 65 73 74 20 69 | 67 6e 6f 72 65 29 20 22 |(&rest i|gnore) "|
|00000220| c0 19 c2 8b 88 09 c3 55 | 83 2a 00 5c 66 83 23 00 |.......U|.*.\f.#.|
|00000230| 5c 66 c5 98 84 23 00 c6 | c7 21 83 23 00 c8 0e 09 |\f...#..|.!.#....|
|00000240| 21 88 82 2a 00 ca 0e 09 | cb c0 23 88 09 cc 55 3f |!..*....|..#...U?|
|00000250| 85 35 00 cd 0e 09 21 29 | 87 22 20 5b 6e 69 6c 20 |.5....!)|." [nil |
|00000260| 63 68 61 72 20 28 28 62 | 79 74 65 2d 63 6f 64 65 |char ((b|yte-code|
|00000270| 20 22 c0 90 c1 20 c2 48 | c1 20 3b 83 12 00 c3 c2 | "... .H|. ;.....|
|00000280| 48 82 13 00 c4 3d 83 1e | 00 c5 c6 21 88 82 2d 00 |H....=..|...!..-.|
|00000290| c5 c7 21 88 c5 c8 c1 20 | 21 21 88 c5 c9 21 88 c5 |..!.... |!!...!..|
|000002a0| 0e 5c 6e 21 88 c5 cb 21 | 88 0e 5c 6e cc 4e 3b 83 |.\n!...!|..\n.N;.|
|000002b0| 45 00 c5 0e 5c 6e cc 4e | 21 88 c5 cd ce cf 8f 86 |E...\n.N|!.......|
|000002c0| 4e 00 d0 21 88 8a c0 71 | 88 65 62 88 d1 d2 cd d3 |N..!...q|.eb.....|
|000002d0| 23 83 67 00 60 53 64 7c | 88 82 6a 00 64 62 88 29 |#.g.`Sd||..j.db.)|
|000002e0| c5 d2 21 88 c5 d4 21 91 | 88 d5 d6 21 88 d3 1e 17 |..!...!.|...!....|
|000002f0| d8 20 97 89 16 19 da 3e | 84 90 00 db 20 88 d5 dc |. .....>|.... ...|
|00000300| 21 88 82 7b 00 29 cd 87 | 22 20 5b 22 2a 48 65 6c |!..{.)..|" ["*Hel|
|00000310| 70 2a 22 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |p*" this|-command|
|00000320| 2d 6b 65 79 73 20 30 20 | 22 f8 22 20 2d 38 33 38 |-keys 0 |"." -838|
|00000330| 38 34 38 38 20 70 72 69 | 6e 63 20 22 59 6f 75 20 |8488 pri|nc "You |
|00000340| 68 61 76 65 20 69 6e 76 | 6f 6b 65 64 20 74 68 65 |have inv|oked the|
|00000350| 20 64 69 73 61 62 6c 65 | 64 20 63 6f 6d 6d 61 6e | disable|d comman|
|00000360| 64 20 22 20 22 59 6f 75 | 20 68 61 76 65 20 74 79 |d " "You| have ty|
|00000370| 70 65 64 20 22 20 6b 65 | 79 2d 64 65 73 63 72 69 |ped " ke|y-descri|
|00000380| 70 74 69 6f 6e 20 22 2c | 20 69 6e 76 6f 6b 69 6e |ption ",| invokin|
|00000390| 67 20 64 69 73 61 62 6c | 65 64 20 63 6f 6d 6d 61 |g disabl|ed comma|
|000003a0| 6e 64 20 22 20 74 68 69 | 73 2d 63 6f 6d 6d 61 6e |nd " thi|s-comman|
|000003b0| 64 20 22 3a 5c 6e 22 20 | 64 69 73 61 62 6c 65 64 |d ":\n" |disabled|
|000003c0| 20 6e 69 6c 20 28 64 6f | 63 75 6d 65 6e 74 61 74 | nil (do|cumentat|
|000003d0| 69 6f 6e 20 74 68 69 73 | 2d 63 6f 6d 6d 61 6e 64 |ion this|-command|
|000003e0| 29 20 28 28 65 72 72 6f | 72 29 29 20 22 3c 3c 20 |) ((erro|r)) "<< |
|000003f0| 6e 6f 74 20 64 6f 63 75 | 6d 65 6e 74 65 64 20 3e |not docu|mented >|
|00000400| 3e 22 20 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |>" searc|h-forwar|
|00000410| 64 20 22 5c 6e 5c 6e 22 | 20 74 20 22 59 6f 75 20 |d "\n\n"| t "You |
|00000420| 63 61 6e 20 6e 6f 77 20 | 74 79 70 65 5c 6e 53 70 |can now |type\nSp|
|00000430| 61 63 65 20 74 6f 20 74 | 72 79 20 74 68 65 20 63 |ace to t|ry the c|
|00000440| 6f 6d 6d 61 6e 64 20 6a | 75 73 74 20 74 68 69 73 |ommand j|ust this|
|00000450| 20 6f 6e 63 65 2c 5c 6e | 20 20 20 20 20 20 62 75 | once,\n|      bu|
|00000460| 74 20 6c 65 61 76 65 20 | 69 74 20 64 69 73 61 62 |t leave |it disab|
|00000470| 6c 65 64 2c 5c 6e 59 20 | 74 6f 20 74 72 79 20 69 |led,\nY |to try i|
|00000480| 74 20 61 6e 64 20 65 6e | 61 62 6c 65 20 69 74 20 |t and en|able it |
|00000490| 28 6e 6f 20 71 75 65 73 | 74 69 6f 6e 73 20 69 66 |(no ques|tions if|
|000004a0| 20 79 6f 75 20 75 73 65 | 20 69 74 20 61 67 61 69 | you use| it agai|
|000004b0| 6e 29 2c 5c 6e 4e 20 74 | 6f 20 64 6f 20 6e 6f 74 |n),\nN t|o do not|
|000004c0| 68 69 6e 67 20 28 63 6f | 6d 6d 61 6e 64 20 72 65 |hing (co|mmand re|
|000004d0| 6d 61 69 6e 73 20 64 69 | 73 61 62 6c 65 64 29 2e |mains di|sabled).|
|000004e0| 22 20 6d 65 73 73 61 67 | 65 20 22 54 79 70 65 20 |" messag|e "Type |
|000004f0| 79 2c 20 6e 20 6f 72 20 | 53 70 61 63 65 3a 20 22 |y, n or |Space: "|
|00000500| 20 63 75 72 73 6f 72 2d | 69 6e 2d 65 63 68 6f 2d | cursor-|in-echo-|
|00000510| 61 72 65 61 20 72 65 61 | 64 2d 63 68 61 72 20 63 |area rea|d-char c|
|00000520| 68 61 72 20 28 33 32 20 | 31 32 31 20 31 31 30 29 |har (32 |121 110)|
|00000530| 20 64 69 6e 67 20 22 50 | 6c 65 61 73 65 20 74 79 | ding "P|lease ty|
|00000540| 70 65 20 79 2c 20 6e 20 | 6f 72 20 53 70 61 63 65 |pe y, n |or Space|
|00000550| 3a 20 22 5d 20 35 29 29 | 20 31 32 31 20 75 73 65 |: "] 5))| 121 use|
|00000560| 72 2d 69 6e 69 74 2d 66 | 69 6c 65 20 22 22 20 79 |r-init-f|ile "" y|
|00000570| 2d 6f 72 2d 6e 2d 70 20 | 22 45 6e 61 62 6c 65 20 |-or-n-p |"Enable |
|00000580| 63 6f 6d 6d 61 6e 64 20 | 66 6f 72 20 66 75 74 75 |command |for futu|
|00000590| 72 65 20 65 64 69 74 69 | 6e 67 20 73 65 73 73 69 |re editi|ng sessi|
|000005a0| 6f 6e 73 20 61 6c 73 6f | 3f 20 22 20 65 6e 61 62 |ons also|? " enab|
|000005b0| 6c 65 2d 63 6f 6d 6d 61 | 6e 64 20 74 68 69 73 2d |le-comma|nd this-|
|000005c0| 63 6f 6d 6d 61 6e 64 20 | 70 75 74 20 64 69 73 61 |command |put disa|
|000005d0| 62 6c 65 64 20 31 31 30 | 20 63 61 6c 6c 2d 69 6e |bled 110| call-in|
|000005e0| 74 65 72 61 63 74 69 76 | 65 6c 79 5d 20 34 5d 5d |teractiv|ely] 4]]|
|000005f0| 20 33 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 | 3).(def|alias 'e|
|00000600| 6e 61 62 6c 65 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |nable-co|mmand #[|
|00000610| 28 63 6f 6d 6d 61 6e 64 | 29 20 22 c0 09 c2 c3 23 |(command|) "....#|
|00000620| 88 8a c4 c5 0e 06 21 21 | 71 88 65 62 88 c7 c8 c9 |......!!|q.eb....|
|00000630| 09 21 ca 51 c3 cb 23 83 | 2c 00 cc 79 88 60 cd 79 |.!.Q..#.|,..y.`.y|
|00000640| 88 60 7c 88 82 37 00 64 | 62 88 ce c9 09 21 cf b1 |.`|..7.d|b....!..|
|00000650| 03 88 d0 20 29 87 22 20 | 5b 70 75 74 20 63 6f 6d |... )." |[put com|
|00000660| 6d 61 6e 64 20 64 69 73 | 61 62 6c 65 64 20 6e 69 |mand dis|abled ni|
|00000670| 6c 20 66 69 6e 64 2d 66 | 69 6c 65 2d 6e 6f 73 65 |l find-f|ile-nose|
|00000680| 6c 65 63 74 20 73 75 62 | 73 74 69 74 75 74 65 2d |lect sub|stitute-|
|00000690| 69 6e 2d 66 69 6c 65 2d | 6e 61 6d 65 20 75 73 65 |in-file-|name use|
|000006a0| 72 2d 69 6e 69 74 2d 66 | 69 6c 65 20 73 65 61 72 |r-init-f|ile sear|
|000006b0| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 28 70 75 74 |ch-forwa|rd "(put|
|000006c0| 20 27 22 20 73 79 6d 62 | 6f 6c 2d 6e 61 6d 65 20 | '" symb|ol-name |
|000006d0| 22 20 22 20 74 20 30 20 | 31 20 22 5c 6e 28 70 75 |" " t 0 |1 "\n(pu|
|000006e0| 74 20 27 22 20 22 20 27 | 64 69 73 61 62 6c 65 64 |t '" " '|disabled|
|000006f0| 20 6e 69 6c 29 5c 6e 22 | 20 73 61 76 65 2d 62 75 | nil)\n"| save-bu|
|00000700| 66 66 65 72 5d 20 34 20 | 22 5c 0a 41 6c 6c 6f 77 |ffer] 4 |"\.Allow|
|00000710| 20 43 4f 4d 4d 41 4e 44 | 20 74 6f 20 62 65 20 65 | COMMAND| to be e|
|00000720| 78 65 63 75 74 65 64 20 | 77 69 74 68 6f 75 74 20 |xecuted |without |
|00000730| 73 70 65 63 69 61 6c 20 | 63 6f 6e 66 69 72 6d 61 |special |confirma|
|00000740| 74 69 6f 6e 20 66 72 6f | 6d 20 6e 6f 77 20 6f 6e |tion fro|m now on|
|00000750| 2e 0a 54 68 65 20 75 73 | 65 72 27 73 20 2e 65 6d |..The us|er's .em|
|00000760| 61 63 73 20 66 69 6c 65 | 20 69 73 20 61 6c 74 65 |acs file| is alte|
|00000770| 72 65 64 20 73 6f 20 74 | 68 61 74 20 74 68 69 73 |red so t|hat this|
|00000780| 20 77 69 6c 6c 20 61 70 | 70 6c 79 0a 74 6f 20 66 | will ap|ply.to f|
|00000790| 75 74 75 72 65 20 73 65 | 73 73 69 6f 6e 73 2e 22 |uture se|ssions."|
|000007a0| 20 22 43 45 6e 61 62 6c | 65 20 63 6f 6d 6d 61 6e | "CEnabl|e comman|
|000007b0| 64 3a 20 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |d: "]).(|defalias|
|000007c0| 20 27 64 69 73 61 62 6c | 65 2d 63 6f 6d 6d 61 6e | 'disabl|e-comman|
|000007d0| 64 20 23 5b 28 63 6f 6d | 6d 61 6e 64 29 20 22 c0 |d #[(com|mand) ".|
|000007e0| 09 21 84 0b 00 c2 c3 09 | 5c 22 88 c4 09 c5 c6 23 |.!......|\".....#|
|000007f0| 88 8a c7 c8 0e 09 21 21 | 71 88 65 62 88 ca cb cc |......!!|q.eb....|
|00000800| 09 21 cd 51 ce c6 23 83 | 34 00 cf 79 88 60 d0 79 |.!.Q..#.|4..y.`.y|
|00000810| 88 60 7c 88 64 62 88 cb | cc 09 21 d1 b1 03 88 d2 |.`|.db..|..!.....|
|00000820| 20 29 87 22 20 5b 63 6f | 6d 6d 61 6e 64 70 20 63 | )." [co|mmandp c|
|00000830| 6f 6d 6d 61 6e 64 20 65 | 72 72 6f 72 20 22 49 6e |ommand e|rror "In|
|00000840| 76 61 6c 69 64 20 63 6f | 6d 6d 61 6e 64 20 6e 61 |valid co|mmand na|
|00000850| 6d 65 20 60 25 73 27 22 | 20 70 75 74 20 64 69 73 |me `%s'"| put dis|
|00000860| 61 62 6c 65 64 20 74 20 | 66 69 6e 64 2d 66 69 6c |abled t |find-fil|
|00000870| 65 2d 6e 6f 73 65 6c 65 | 63 74 20 73 75 62 73 74 |e-nosele|ct subst|
|00000880| 69 74 75 74 65 2d 69 6e | 2d 66 69 6c 65 2d 6e 61 |itute-in|-file-na|
|00000890| 6d 65 20 75 73 65 72 2d | 69 6e 69 74 2d 66 69 6c |me user-|init-fil|
|000008a0| 65 20 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e search|-forward|
|000008b0| 20 22 28 70 75 74 20 27 | 22 20 73 79 6d 62 6f 6c | "(put '|" symbol|
|000008c0| 2d 6e 61 6d 65 20 22 20 | 22 20 6e 69 6c 20 30 20 |-name " |" nil 0 |
|000008d0| 31 20 22 20 27 64 69 73 | 61 62 6c 65 64 20 74 29 |1 " 'dis|abled t)|
|000008e0| 5c 6e 22 20 73 61 76 65 | 2d 62 75 66 66 65 72 5d |\n" save|-buffer]|
|000008f0| 20 34 20 22 5c 0a 52 65 | 71 75 69 72 65 20 73 70 | 4 "\.Re|quire sp|
|00000900| 65 63 69 61 6c 20 63 6f | 6e 66 69 72 6d 61 74 69 |ecial co|nfirmati|
|00000910| 6f 6e 20 74 6f 20 65 78 | 65 63 75 74 65 20 43 4f |on to ex|ecute CO|
|00000920| 4d 4d 41 4e 44 20 66 72 | 6f 6d 20 6e 6f 77 20 6f |MMAND fr|om now o|
|00000930| 6e 2e 0a 54 68 65 20 75 | 73 65 72 27 73 20 2e 65 |n..The u|ser's .e|
|00000940| 6d 61 63 73 20 66 69 6c | 65 20 69 73 20 61 6c 74 |macs fil|e is alt|
|00000950| 65 72 65 64 20 73 6f 20 | 74 68 61 74 20 74 68 69 |ered so |that thi|
|00000960| 73 20 77 69 6c 6c 20 61 | 70 70 6c 79 0a 74 6f 20 |s will a|pply.to |
|00000970| 66 75 74 75 72 65 20 73 | 65 73 73 69 6f 6e 73 2e |future s|essions.|
|00000980| 22 20 22 43 44 69 73 61 | 62 6c 65 20 63 6f 6d 6d |" "CDisa|ble comm|
|00000990| 61 6e 64 3a 20 22 5d 29 | 0a                      |and: "])|.       |
+--------+-------------------------+-------------------------+--------+--------+