/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / buffer.elc.z / buffer.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 35 3a 32 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:45:29 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 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 70 | 72 69 6d 2f 62 75 66 66 |3/lisp/p|rim/buff|
|000000a0| 65 72 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |er.el.;;|; emacs |
|000000b0| 76 65 72 73 69 6f 6e 20 | 32 30 2e 33 20 22 56 61 |version |20.3 "Va|
|000000c0| 74 69 63 61 6e 20 43 69 | 74 79 22 20 58 45 6d 61 |tican Ci|ty" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 62 75 66 66 65 72 2e 65 |error "`|buffer.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 23 40 33 38 35 20 53 | 65 6c 65 63 74 20 62 75 |.#@385 S|elect bu|
|00000260| 66 66 65 72 20 42 55 46 | 4e 41 4d 45 20 69 6e 20 |ffer BUF|NAME in |
|00000270| 74 68 65 20 63 75 72 72 | 65 6e 74 20 77 69 6e 64 |the curr|ent wind|
|00000280| 6f 77 2e 0a 42 55 46 4e | 41 4d 45 20 6d 61 79 20 |ow..BUFN|AME may |
|00000290| 62 65 20 61 20 62 75 66 | 66 65 72 20 6f 72 20 61 |be a buf|fer or a|
|000002a0| 20 62 75 66 66 65 72 20 | 6e 61 6d 65 2e 0a 4f 70 | buffer |name..Op|
|000002b0| 74 69 6f 6e 61 6c 20 73 | 65 63 6f 6e 64 20 61 72 |tional s|econd ar|
|000002c0| 67 20 4e 4f 52 45 43 4f | 52 44 20 6e 6f 6e 2d 6e |g NORECO|RD non-n|
|000002d0| 69 6c 20 6d 65 61 6e 73 | 0a 64 6f 20 6e 6f 74 20 |il means|.do not |
|000002e0| 70 75 74 20 74 68 69 73 | 20 62 75 66 66 65 72 20 |put this| buffer |
|000002f0| 61 74 20 74 68 65 20 66 | 72 6f 6e 74 20 6f 66 20 |at the f|ront of |
|00000300| 74 68 65 20 6c 69 73 74 | 20 6f 66 20 72 65 63 65 |the list| of rece|
|00000310| 6e 74 6c 79 20 73 65 6c | 65 63 74 65 64 20 6f 6e |ntly sel|ected on|
|00000320| 65 73 2e 0a 0a 57 41 52 | 4e 49 4e 47 3a 20 54 68 |es...WAR|NING: Th|
|00000330| 69 73 20 69 73 20 4e 4f | 54 20 74 68 65 20 77 61 |is is NO|T the wa|
|00000340| 79 20 74 6f 20 77 6f 72 | 6b 20 6f 6e 20 61 6e 6f |y to wor|k on ano|
|00000350| 74 68 65 72 20 62 75 66 | 66 65 72 20 74 65 6d 70 |ther buf|fer temp|
|00000360| 6f 72 61 72 69 6c 79 0a | 77 69 74 68 69 6e 20 61 |orarily.|within a|
|00000370| 20 4c 69 73 70 20 70 72 | 6f 67 72 61 6d 21 20 20 | Lisp pr|ogram!  |
|00000380| 55 73 65 20 60 73 65 74 | 2d 62 75 66 66 65 72 27 |Use `set|-buffer'|
|00000390| 20 69 6e 73 74 65 61 64 | 2e 20 20 54 68 61 74 20 | instead|.  That |
|000003a0| 61 76 6f 69 64 73 20 6d | 65 73 73 69 6e 67 20 77 |avoids m|essing w|
|000003b0| 69 74 68 0a 74 68 65 20 | 77 69 6e 64 6f 77 2d 62 |ith.the |window-b|
|000003c0| 75 66 66 65 72 20 63 6f | 72 72 65 73 70 6f 6e 64 |uffer co|rrespond|
|000003d0| 65 6e 63 65 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ences...|(defalia|
|000003e0| 73 20 27 73 77 69 74 63 | 68 2d 74 6f 2d 62 75 66 |s 'switc|h-to-buf|
|000003f0| 66 65 72 20 23 5b 28 62 | 75 66 6e 61 6d 65 20 26 |fer #[(b|ufname &|
|00000400| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 72 65 63 6f 72 |optional| norecor|
|00000410| 64 29 20 22 c0 20 c1 20 | 61 ab 84 c2 c3 21 88 c4 |d) ". . |a....!..|
|00000420| c1 20 21 ab 84 c2 c5 21 | 88 c6 1e 07 0e 08 ac 87 |. !....!|........|
|00000430| c9 70 21 16 07 aa 94 ca | 0e 08 21 89 16 07 ac 8b |.p!.....|..!.....|
|00000440| cb 0e 08 21 16 07 cc 0e | 07 21 88 cd 20 88 0e 07 |...!....|.!.. ...|
|00000450| 71 88 0e 0e ac 85 cf 0e | 07 21 88 d0 c1 20 c0 20 |q.......|.!... . |
|00000460| 61 ab 86 d1 c0 20 21 aa | 82 c1 20 0e 07 5c 22 88 |a.... !.|.. ..\".|
|00000470| 0e 07 29 87 22 20 5b 6d | 69 6e 69 62 75 66 66 65 |..)." [m|inibuffe|
|00000480| 72 2d 77 69 6e 64 6f 77 | 20 73 65 6c 65 63 74 65 |r-window| selecte|
|00000490| 64 2d 77 69 6e 64 6f 77 | 20 65 72 72 6f 72 20 22 |d-window| error "|
|000004a0| 43 61 6e 6e 6f 74 20 73 | 77 69 74 63 68 20 62 75 |Cannot s|witch bu|
|000004b0| 66 66 65 72 73 20 69 6e | 20 6d 69 6e 69 62 75 66 |ffers in| minibuf|
|000004c0| 66 65 72 20 77 69 6e 64 | 6f 77 22 20 77 69 6e 64 |fer wind|ow" wind|
|000004d0| 6f 77 2d 64 65 64 69 63 | 61 74 65 64 2d 70 20 22 |ow-dedic|ated-p "|
|000004e0| 43 61 6e 6e 6f 74 20 73 | 77 69 74 63 68 20 62 75 |Cannot s|witch bu|
|000004f0| 66 66 65 72 73 20 69 6e | 20 61 20 64 65 64 69 63 |ffers in| a dedic|
|00000500| 61 74 65 64 20 77 69 6e | 64 6f 77 22 20 6e 69 6c |ated win|dow" nil|
|00000510| 20 62 75 66 20 62 75 66 | 6e 61 6d 65 20 6f 74 68 | buf buf|name oth|
|00000520| 65 72 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |er-buffe|r get-bu|
|00000530| 66 66 65 72 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ffer get|-buffer-|
|00000540| 63 72 65 61 74 65 20 73 | 65 74 2d 62 75 66 66 65 |create s|et-buffe|
|00000550| 72 2d 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 70 75 73 |r-major-|mode pus|
|00000560| 68 2d 77 69 6e 64 6f 77 | 2d 63 6f 6e 66 69 67 75 |h-window|-configu|
|00000570| 72 61 74 69 6f 6e 20 6e | 6f 72 65 63 6f 72 64 20 |ration n|orecord |
|00000580| 72 65 63 6f 72 64 2d 62 | 75 66 66 65 72 20 73 65 |record-b|uffer se|
|00000590| 74 2d 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |t-window|-buffer |
|000005a0| 6e 65 78 74 2d 77 69 6e | 64 6f 77 5d 20 34 20 28 |next-win|dow] 4 (|
|000005b0| 23 24 20 2e 20 35 39 39 | 29 20 22 42 53 77 69 74 |#$ . 599|) "BSwit|
|000005c0| 63 68 20 74 6f 20 62 75 | 66 66 65 72 3a 20 22 5d |ch to bu|ffer: "]|
|000005d0| 29 0a 23 40 34 37 37 20 | 53 65 6c 65 63 74 20 62 |).#@477 |Select b|
|000005e0| 75 66 66 65 72 20 42 55 | 46 4e 41 4d 45 20 69 6e |uffer BU|FNAME in|
|000005f0| 20 73 6f 6d 65 20 77 69 | 6e 64 6f 77 2c 20 70 72 | some wi|ndow, pr|
|00000600| 65 66 65 72 61 62 6c 79 | 20 61 20 64 69 66 66 65 |eferably| a diffe|
|00000610| 72 65 6e 74 20 6f 6e 65 | 2e 0a 49 66 20 42 55 46 |rent one|..If BUF|
|00000620| 4e 41 4d 45 20 69 73 20 | 6e 69 6c 2c 20 74 68 65 |NAME is |nil, the|
|00000630| 6e 20 73 6f 6d 65 20 6f | 74 68 65 72 20 62 75 66 |n some o|ther buf|
|00000640| 66 65 72 20 69 73 20 63 | 68 6f 73 65 6e 2e 0a 49 |fer is c|hosen..I|
|00000650| 66 20 60 70 6f 70 2d 75 | 70 2d 77 69 6e 64 6f 77 |f `pop-u|p-window|
|00000660| 73 27 20 69 73 20 6e 6f | 6e 2d 6e 69 6c 2c 20 77 |s' is no|n-nil, w|
|00000670| 69 6e 64 6f 77 73 20 63 | 61 6e 20 62 65 20 73 70 |indows c|an be sp|
|00000680| 6c 69 74 20 74 6f 20 64 | 6f 20 74 68 69 73 2e 0a |lit to d|o this..|
|00000690| 49 66 20 6f 70 74 69 6f | 6e 61 6c 20 73 65 63 6f |If optio|nal seco|
|000006a0| 6e 64 20 61 72 67 20 4e | 4f 54 2d 54 48 49 53 2d |nd arg N|OT-THIS-|
|000006b0| 57 49 4e 44 4f 57 2d 50 | 20 69 73 20 6e 6f 6e 2d |WINDOW-P| is non-|
|000006c0| 6e 69 6c 2c 20 69 6e 73 | 69 73 74 20 6f 6e 20 66 |nil, ins|ist on f|
|000006d0| 69 6e 64 69 6e 67 0a 61 | 6e 6f 74 68 65 72 20 77 |inding.a|nother w|
|000006e0| 69 6e 64 6f 77 20 65 76 | 65 6e 20 69 66 20 42 55 |indow ev|en if BU|
|000006f0| 46 4e 41 4d 45 20 69 73 | 20 61 6c 72 65 61 64 79 |FNAME is| already|
|00000700| 20 76 69 73 69 62 6c 65 | 20 69 6e 20 74 68 65 20 | visible| in the |
|00000710| 73 65 6c 65 63 74 65 64 | 20 77 69 6e 64 6f 77 2e |selected| window.|
|00000720| 0a 49 66 20 6f 70 74 69 | 6f 6e 61 6c 20 74 68 69 |.If opti|onal thi|
|00000730| 72 64 20 61 72 67 20 69 | 73 20 6e 6f 6e 2d 6e 69 |rd arg i|s non-ni|
|00000740| 6c 2c 20 69 74 20 69 73 | 20 74 68 65 20 66 72 61 |l, it is| the fra|
|00000750| 6d 65 20 74 6f 20 70 6f | 70 20 74 6f 20 74 68 69 |me to po|p to thi|
|00000760| 73 0a 62 75 66 66 65 72 | 20 6f 6e 2e 0a 49 66 20 |s.buffer| on..If |
|00000770| 60 66 6f 63 75 73 2d 66 | 6f 6c 6c 6f 77 73 2d 6d |`focus-f|ollows-m|
|00000780| 6f 75 73 65 27 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |ouse' is| non-nil|
|00000790| 2c 20 6b 65 79 62 6f 61 | 72 64 20 66 6f 63 75 73 |, keyboa|rd focus|
|000007a0| 20 69 73 20 6c 65 66 74 | 20 75 6e 63 68 61 6e 67 | is left| unchang|
|000007b0| 65 64 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ed...(de|falias '|
|000007c0| 70 6f 70 2d 74 6f 2d 62 | 75 66 66 65 72 20 23 5b |pop-to-b|uffer #[|
|000007d0| 28 62 75 66 6e 61 6d 65 | 20 26 6f 70 74 69 6f 6e |(bufname| &option|
|000007e0| 61 6c 20 6e 6f 74 2d 74 | 68 69 73 2d 77 69 6e 64 |al not-t|his-wind|
|000007f0| 6f 77 2d 70 20 6f 6e 2d | 66 72 61 6d 65 29 20 22 |ow-p on-|frame) "|
|00000800| 70 c0 89 89 19 1a 1b 1c | 0d ac 86 c6 70 21 13 aa |p.......|....p!..|
|00000810| 8f c7 0d 21 89 13 ac 88 | c8 0d 21 13 c9 0b 21 88 |...!....|..!...!.|
|00000820| ca 20 88 0b 71 88 cb 0b | 0e 0c 0e 0d 23 12 ce 5c |. ..q...|....#..\|
|00000830| 6e 21 11 0e 0f ac 8a 09 | d0 20 61 ac 84 d1 09 21 |n!......|. a....!|
|00000840| 88 d2 0b 21 88 0e 0f ab | 90 0e 0d ab 8c 0e 0d d0 |...!....|........|
|00000850| 20 61 ac 85 0c 71 88 aa | 84 d3 5c 6e 21 88 0b 2c | a...q..|..\n!..,|
|00000860| 87 22 20 5b 6e 69 6c 20 | 66 72 61 6d 65 20 77 69 |." [nil |frame wi|
|00000870| 6e 64 6f 77 20 62 75 66 | 20 6f 6c 64 62 75 66 20 |ndow buf| oldbuf |
|00000880| 62 75 66 6e 61 6d 65 20 | 6f 74 68 65 72 2d 62 75 |bufname |other-bu|
|00000890| 66 66 65 72 20 67 65 74 | 2d 62 75 66 66 65 72 20 |ffer get|-buffer |
|000008a0| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|000008b0| 65 20 73 65 74 2d 62 75 | 66 66 65 72 2d 6d 61 6a |e set-bu|ffer-maj|
|000008c0| 6f 72 2d 6d 6f 64 65 20 | 70 75 73 68 2d 77 69 6e |or-mode |push-win|
|000008d0| 64 6f 77 2d 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |dow-conf|iguratio|
|000008e0| 6e 20 64 69 73 70 6c 61 | 79 2d 62 75 66 66 65 72 |n displa|y-buffer|
|000008f0| 20 6e 6f 74 2d 74 68 69 | 73 2d 77 69 6e 64 6f 77 | not-thi|s-window|
|00000900| 2d 70 20 6f 6e 2d 66 72 | 61 6d 65 20 77 69 6e 64 |-p on-fr|ame wind|
|00000910| 6f 77 2d 66 72 61 6d 65 | 20 66 6f 63 75 73 2d 66 |ow-frame| focus-f|
|00000920| 6f 6c 6c 6f 77 73 2d 6d | 6f 75 73 65 20 73 65 6c |ollows-m|ouse sel|
|00000930| 65 63 74 65 64 2d 66 72 | 61 6d 65 20 73 65 6c 65 |ected-fr|ame sele|
|00000940| 63 74 2d 66 72 61 6d 65 | 20 72 65 63 6f 72 64 2d |ct-frame| record-|
|00000950| 62 75 66 66 65 72 20 73 | 65 6c 65 63 74 2d 77 69 |buffer s|elect-wi|
|00000960| 6e 64 6f 77 5d 20 35 20 | 28 23 24 20 2e 20 31 34 |ndow] 5 |(#$ . 14|
|00000970| 39 36 29 5d 29 0a       |                         |96)]).  |        |
+--------+-------------------------+-------------------------+--------+--------+