home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 26.2 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
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 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 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 35 39 3a 30 33 20 |Feb 1 1|8:59:03 |
|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 6d 6f 64 | 65 73 2f 66 6f 72 74 72 |lisp/mod|es/fortr|
|00000080| 61 6e 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |an.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 34 2e 31 33 20 |version |19.4.13 |
|000000a0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000b0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 31 30 |omp vers|ion 2.10|
|000000c0| 3b 20 20 31 2d 66 65 62 | 2d 39 33 2e 0a 3b 3b 3b |; 1-feb|-93..;;;|
|000000d0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000e0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000f0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000100| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000110| 73 74 20 69 6e 20 45 6d | 61 63 73 31 38 2e 0a 0a |st in Em|acs18...|
|00000120| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000130| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000140| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000150| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000160| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000170| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|00000180| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000190| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001a0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 | (erro|r "This |
|000001b0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001c0| 64 20 66 6f 72 20 45 6d | 61 63 73 31 39 2e 22 29 |d for Em|acs19.")|
|000001d0| 29 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)..(byte|-code ".|
|000001e0| 11 c2 87 22 20 5b 22 76 | 65 72 73 69 6f 6e 20 31 |..." ["v|ersion 1|
|000001f0| 2e 32 38 2e 37 22 20 66 | 6f 72 74 72 61 6e 2d 6d |.28.7" f|ortran-m|
|00000200| 6f 64 65 2d 76 65 72 73 | 69 6f 6e 20 6e 69 6c 5d |ode-vers|ion nil]|
|00000210| 20 31 29 0a 28 64 65 66 | 76 61 72 20 66 6f 72 74 | 1).(def|var fort|
|00000220| 72 61 6e 2d 74 61 62 2d | 6d 6f 64 65 2d 64 65 66 |ran-tab-|mode-def|
|00000230| 61 75 6c 74 20 6e 69 6c | 20 22 5c 0a 2a 44 65 66 |ault nil| "\.*Def|
|00000240| 61 75 6c 74 20 74 61 62 | 62 69 6e 67 2f 63 61 72 |ault tab|bing/car|
|00000250| 72 69 61 67 65 20 63 6f | 6e 74 72 6f 6c 20 73 74 |riage co|ntrol st|
|00000260| 79 6c 65 20 66 6f 72 20 | 65 6d 70 74 79 20 66 69 |yle for |empty fi|
|00000270| 6c 65 73 20 69 6e 20 66 | 6f 72 74 72 61 6e 20 6d |les in f|ortran m|
|00000280| 6f 64 65 2e 0a 74 20 69 | 6e 64 69 63 61 74 65 73 |ode..t i|ndicates|
|00000290| 20 74 68 61 74 20 74 61 | 62 2d 64 69 67 69 74 20 | that ta|b-digit |
|000002a0| 73 74 79 6c 65 20 6f 66 | 20 63 6f 6e 74 69 6e 75 |style of| continu|
|000002b0| 61 74 69 6f 6e 20 63 6f | 6e 74 72 6f 6c 20 77 69 |ation co|ntrol wi|
|000002c0| 6c 6c 20 62 65 20 75 73 | 65 64 2e 0a 6e 69 6c 20 |ll be us|ed..nil |
|000002d0| 69 6e 64 69 63 61 74 65 | 73 20 74 68 61 74 20 63 |indicate|s that c|
|000002e0| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 20 6c 69 6e 65 |ontinuat|ion line|
|000002f0| 73 20 61 72 65 20 6d 61 | 72 6b 65 64 20 77 69 74 |s are ma|rked wit|
|00000300| 68 20 61 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |h a char|acter in|
|00000310| 0a 63 6f 6c 75 6d 6e 20 | 36 2e 22 29 0a 28 64 65 |.column |6.").(de|
|00000320| 66 76 61 72 20 66 6f 72 | 74 72 61 6e 2d 64 6f 2d |fvar for|tran-do-|
|00000330| 69 6e 64 65 6e 74 20 33 | 20 22 5c 0a 2a 45 78 74 |indent 3| "\.*Ext|
|00000340| 72 61 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 61 |ra inden|tation a|
|00000350| 70 70 6c 69 65 64 20 74 | 6f 20 60 64 6f 27 20 62 |pplied t|o `do' b|
|00000360| 6c 6f 63 6b 73 2e 22 29 | 0a 28 64 65 66 76 61 72 |locks.")|.(defvar|
|00000370| 20 66 6f 72 74 72 61 6e | 2d 69 66 2d 69 6e 64 65 | fortran|-if-inde|
|00000380| 6e 74 20 33 20 22 5c 0a | 2a 45 78 74 72 61 20 69 |nt 3 "\.|*Extra i|
|00000390| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 61 70 70 6c 69 |ndentati|on appli|
|000003a0| 65 64 20 74 6f 20 60 69 | 66 27 20 62 6c 6f 63 6b |ed to `i|f' block|
|000003b0| 73 2e 22 29 0a 28 64 65 | 66 76 61 72 20 66 6f 72 |s.").(de|fvar for|
|000003c0| 74 72 61 6e 2d 73 74 72 | 75 63 74 75 72 65 2d 69 |tran-str|ucture-i|
|000003d0| 6e 64 65 6e 74 20 33 20 | 22 5c 0a 2a 45 78 74 72 |ndent 3 |"\.*Extr|
|000003e0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 61 70 |a indent|ation ap|
|000003f0| 70 6c 69 65 64 20 74 6f | 20 60 73 74 72 75 63 74 |plied to| `struct|
|00000400| 75 72 65 27 2c 20 60 75 | 6e 69 6f 6e 27 20 61 6e |ure', `u|nion' an|
|00000410| 64 20 60 6d 61 70 27 20 | 62 6c 6f 63 6b 73 2e 22 |d `map' |blocks."|
|00000420| 29 0a 28 64 65 66 76 61 | 72 20 66 6f 72 74 72 61 |).(defva|r fortra|
|00000430| 6e 2d 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 2d 69 |n-contin|uation-i|
|00000440| 6e 64 65 6e 74 20 35 20 | 22 5c 0a 2a 45 78 74 72 |ndent 5 |"\.*Extr|
|00000450| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 61 70 |a indent|ation ap|
|00000460| 70 6c 69 65 64 20 74 6f | 20 60 63 6f 6e 74 69 6e |plied to| `contin|
|00000470| 75 61 74 69 6f 6e 27 20 | 6c 69 6e 65 73 2e 22 29 |uation' |lines.")|
|00000480| 0a 28 64 65 66 76 61 72 | 20 66 6f 72 74 72 61 6e |.(defvar| fortran|
|00000490| 2d 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 2d |-comment|-indent-|
|000004a0| 73 74 79 6c 65 20 27 66 | 69 78 65 64 20 22 5c 0a |style 'f|ixed "\.|
|000004b0| 2a 6e 69 6c 20 66 6f 72 | 63 65 73 20 63 6f 6d 6d |*nil for|ces comm|
|000004c0| 65 6e 74 20 6c 69 6e 65 | 73 20 6e 6f 74 20 74 6f |ent line|s not to|
|000004d0| 20 62 65 20 74 6f 75 63 | 68 65 64 2c 0a 27 66 69 | be touc|hed,.'fi|
|000004e0| 78 65 64 20 70 72 6f 64 | 75 63 65 73 20 66 69 78 |xed prod|uces fix|
|000004f0| 65 64 20 63 6f 6d 6d 65 | 6e 74 20 69 6e 64 65 6e |ed comme|nt inden|
|00000500| 74 61 74 69 6f 6e 20 74 | 6f 20 66 6f 72 74 72 61 |tation t|o fortra|
|00000510| 6e 2d 63 6f 6d 6d 65 6e | 74 2d 6c 69 6e 65 2d 63 |n-commen|t-line-c|
|00000520| 6f 6c 75 6d 6e 0a 62 65 | 79 6f 6e 64 20 66 6f 72 |olumn.be|yond for|
|00000530| 74 72 61 6e 2d 6d 69 6e | 69 6d 75 6d 2d 73 74 61 |tran-min|imum-sta|
|00000540| 74 65 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 2c 20 61 |tement-i|ndent, a|
|00000550| 6e 64 20 27 72 65 6c 61 | 74 69 76 65 20 69 6e 64 |nd 'rela|tive ind|
|00000560| 65 6e 74 73 20 74 6f 20 | 63 75 72 72 65 6e 74 0a |ents to |current.|
|00000570| 66 6f 72 74 72 61 6e 20 | 69 6e 64 65 6e 74 61 74 |fortran |indentat|
|00000580| 69 6f 6e 20 70 6c 75 73 | 20 66 6f 72 74 72 61 6e |ion plus| fortran|
|00000590| 2d 63 6f 6d 6d 65 6e 74 | 2d 6c 69 6e 65 2d 63 6f |-comment|-line-co|
|000005a0| 6c 75 6d 6e 2e 22 29 0a | 28 64 65 66 76 61 72 20 |lumn.").|(defvar |
|000005b0| 66 6f 72 74 72 61 6e 2d | 63 6f 6d 6d 65 6e 74 2d |fortran-|comment-|
|000005c0| 6c 69 6e 65 2d 63 6f 6c | 75 6d 6e 20 30 20 22 5c |line-col|umn 0 "\|
|000005d0| 0a 2a 41 6d 6f 75 6e 74 | 20 6f 66 20 65 78 74 72 |.*Amount| of extr|
|000005e0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 66 6f |a indent|ation fo|
|000005f0| 72 20 74 65 78 74 20 77 | 69 74 68 69 6e 20 66 75 |r text w|ithin fu|
|00000600| 6c 6c 2d 6c 69 6e 65 20 | 63 6f 6d 6d 65 6e 74 73 |ll-line |comments|
|00000610| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 6d |.").(def|var comm|
|00000620| 65 6e 74 2d 6c 69 6e 65 | 2d 73 74 61 72 74 20 6e |ent-line|-start n|
|00000630| 69 6c 20 22 5c 0a 2a 44 | 65 6c 69 6d 69 74 65 72 |il "\.*D|elimiter|
|00000640| 20 69 6e 73 65 72 74 65 | 64 20 74 6f 20 73 74 61 | inserte|d to sta|
|00000650| 72 74 20 6e 65 77 20 66 | 75 6c 6c 2d 6c 69 6e 65 |rt new f|ull-line|
|00000660| 20 63 6f 6d 6d 65 6e 74 | 2e 22 29 0a 28 64 65 66 | comment|.").(def|
|00000670| 76 61 72 20 63 6f 6d 6d | 65 6e 74 2d 6c 69 6e 65 |var comm|ent-line|
|00000680| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 6e 69 6c 20 |-start-s|kip nil |
|00000690| 22 5c 0a 2a 52 65 67 65 | 78 70 20 74 6f 20 6d 61 |"\.*Rege|xp to ma|
|000006a0| 74 63 68 20 74 68 65 20 | 73 74 61 72 74 20 6f 66 |tch the |start of|
|000006b0| 20 61 20 66 75 6c 6c 2d | 6c 69 6e 65 20 63 6f 6d | a full-|line com|
|000006c0| 6d 65 6e 74 2e 22 29 0a | 28 64 65 66 76 61 72 20 |ment.").|(defvar |
|000006d0| 66 6f 72 74 72 61 6e 2d | 6d 69 6e 69 6d 75 6d 2d |fortran-|minimum-|
|000006e0| 73 74 61 74 65 6d 65 6e | 74 2d 69 6e 64 65 6e 74 |statemen|t-indent|
|000006f0| 20 36 20 22 5c 0a 2a 4d | 69 6e 69 6d 75 6d 20 69 | 6 "\.*M|inimum i|
|00000700| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 66 |ndentati|on for f|
|00000710| 6f 72 74 72 61 6e 20 73 | 74 61 74 65 6d 65 6e 74 |ortran s|tatement|
|00000720| 73 2e 22 29 0a 28 64 65 | 66 76 61 72 20 66 6f 72 |s.").(de|fvar for|
|00000730| 74 72 61 6e 2d 63 6f 6d | 6d 65 6e 74 2d 69 6e 64 |tran-com|ment-ind|
|00000740| 65 6e 74 2d 63 68 61 72 | 20 22 20 22 20 22 5c 0a |ent-char| " " "\.|
|00000750| 2a 53 69 6e 67 6c 65 2d | 63 68 61 72 61 63 74 65 |*Single-|characte|
|00000760| 72 20 73 74 72 69 6e 67 | 20 69 6e 73 65 72 74 65 |r string| inserte|
|00000770| 64 20 66 6f 72 20 46 6f | 72 74 72 61 6e 20 63 6f |d for Fo|rtran co|
|00000780| 6d 6d 65 6e 74 20 69 6e | 64 65 6e 74 61 74 69 6f |mment in|dentatio|
|00000790| 6e 2e 0a 4e 6f 72 6d 61 | 6c 6c 79 20 61 20 73 70 |n..Norma|lly a sp|
|000007a0| 61 63 65 2e 22 29 0a 28 | 64 65 66 76 61 72 20 66 |ace.").(|defvar f|
|000007b0| 6f 72 74 72 61 6e 2d 6c | 69 6e 65 2d 6e 75 6d 62 |ortran-l|ine-numb|
|000007c0| 65 72 2d 69 6e 64 65 6e | 74 20 31 20 22 5c 0a 2a |er-inden|t 1 "\.*|
|000007d0| 4d 61 78 69 6d 75 6d 20 | 69 6e 64 65 6e 74 61 74 |Maximum |indentat|
|000007e0| 69 6f 6e 20 66 6f 72 20 | 46 6f 72 74 72 61 6e 20 |ion for |Fortran |
|000007f0| 6c 69 6e 65 20 6e 75 6d | 62 65 72 73 2e 0a 35 20 |line num|bers..5 |
|00000800| 6d 65 61 6e 73 20 72 69 | 67 68 74 2d 6a 75 73 74 |means ri|ght-just|
|00000810| 69 66 79 20 74 68 65 6d | 20 77 69 74 68 69 6e 20 |ify them| within |
|00000820| 74 68 65 69 72 20 66 69 | 76 65 2d 63 6f 6c 75 6d |their fi|ve-colum|
|00000830| 6e 20 66 69 65 6c 64 2e | 22 29 0a 28 64 65 66 76 |n field.|").(defv|
|00000840| 61 72 20 66 6f 72 74 72 | 61 6e 2d 63 68 65 63 6b |ar fortr|an-check|
|00000850| 2d 61 6c 6c 2d 6e 75 6d | 2d 66 6f 72 2d 6d 61 74 |-all-num|-for-mat|
|00000860| 63 68 69 6e 67 2d 64 6f | 20 6e 69 6c 20 22 5c 0a |ching-do| nil "\.|
|00000870| 2a 4e 6f 6e 2d 6e 69 6c | 20 63 61 75 73 65 73 20 |*Non-nil| causes |
|00000880| 61 6c 6c 20 6e 75 6d 62 | 65 72 65 64 20 6c 69 6e |all numb|ered lin|
|00000890| 65 73 20 74 6f 20 62 65 | 20 74 72 65 61 74 65 64 |es to be| treated|
|000008a0| 20 61 73 20 70 6f 73 73 | 69 62 6c 65 20 64 6f 2d | as poss|ible do-|
|000008b0| 6c 6f 6f 70 20 65 6e 64 | 73 2e 22 29 0a 28 64 65 |loop end|s.").(de|
|000008c0| 66 76 61 72 20 66 6f 72 | 74 72 61 6e 2d 62 6c 69 |fvar for|tran-bli|
|000008d0| 6e 6b 2d 6d 61 74 63 68 | 69 6e 67 2d 69 66 20 6e |nk-match|ing-if n|
|000008e0| 69 6c 20 22 5c 0a 2a 46 | 72 6f 6d 20 61 20 66 6f |il "\.*F|rom a fo|
|000008f0| 72 74 72 61 6e 20 60 65 | 6e 64 69 66 27 20 73 74 |rtran `e|ndif' st|
|00000900| 61 74 65 6d 65 6e 74 2c | 20 62 6c 69 6e 6b 20 74 |atement,| blink t|
|00000910| 68 65 20 6d 61 74 63 68 | 69 6e 67 20 60 69 66 27 |he match|ing `if'|
|00000920| 20 73 74 61 74 65 6d 65 | 6e 74 2e 22 29 0a 28 64 | stateme|nt.").(d|
|00000930| 65 66 76 61 72 20 66 6f | 72 74 72 61 6e 2d 63 6f |efvar fo|rtran-co|
|00000940| 6e 74 69 6e 75 61 74 69 | 6f 6e 2d 73 74 72 69 6e |ntinuati|on-strin|
|00000950| 67 20 22 24 22 20 22 5c | 0a 2a 53 69 6e 67 6c 65 |g "$" "\|.*Single|
|00000960| 2d 63 68 61 72 61 63 74 | 65 72 20 73 74 72 69 6e |-charact|er strin|
|00000970| 67 20 75 73 65 64 20 66 | 6f 72 20 66 6f 72 74 72 |g used f|or fortr|
|00000980| 61 6e 20 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 20 |an conti|nuation |
|00000990| 6c 69 6e 65 73 2e 0a 49 | 6e 20 66 69 78 65 64 20 |lines..I|n fixed |
|000009a0| 66 6f 72 6d 61 74 20 63 | 6f 6e 74 69 6e 75 61 74 |format c|ontinuat|
|000009b0| 69 6f 6e 20 73 74 79 6c | 65 2c 20 74 68 69 73 20 |ion styl|e, this |
|000009c0| 63 68 61 72 61 63 74 65 | 72 20 69 73 20 69 6e 73 |characte|r is ins|
|000009d0| 65 72 74 65 64 20 69 6e | 0a 63 6f 6c 75 6d 6e 20 |erted in|.column |
|000009e0| 36 20 62 79 20 5c 5c 5b | 66 6f 72 74 72 61 6e 2d |6 by \\[|fortran-|
|000009f0| 73 70 6c 69 74 2d 6c 69 | 6e 65 5d 20 74 6f 20 62 |split-li|ne] to b|
|00000a00| 65 67 69 6e 20 61 20 63 | 6f 6e 74 69 6e 75 61 74 |egin a c|ontinuat|
|00000a10| 69 6f 6e 20 6c 69 6e 65 | 2e 0a 41 6c 73 6f 2c 20 |ion line|..Also, |
|00000a20| 69 66 20 5c 5c 5b 66 6f | 72 74 72 61 6e 2d 69 6e |if \\[fo|rtran-in|
|00000a30| 64 65 6e 74 2d 6c 69 6e | 65 5d 20 66 69 6e 64 73 |dent-lin|e] finds|
|00000a40| 20 74 68 69 73 20 61 74 | 20 74 68 65 20 62 65 67 | this at| the beg|
|00000a50| 69 6e 6e 69 6e 67 20 6f | 66 20 61 20 6c 69 6e 65 |inning o|f a line|
|00000a60| 2c 20 69 74 20 77 69 6c | 6c 0a 63 6f 6e 76 65 72 |, it wil|l.conver|
|00000a70| 74 20 74 68 65 20 6c 69 | 6e 65 20 69 6e 74 6f 20 |t the li|ne into |
|00000a80| 61 20 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 20 6c |a contin|uation l|
|00000a90| 69 6e 65 20 6f 66 20 74 | 68 65 20 61 70 70 72 6f |ine of t|he appro|
|00000aa0| 70 72 69 61 74 65 20 73 | 74 79 6c 65 2e 0a 4e 6f |priate s|tyle..No|
|00000ab0| 72 6d 61 6c 6c 79 20 24 | 2e 22 29 0a 28 64 65 66 |rmally $|.").(def|
|00000ac0| 76 61 72 20 66 6f 72 74 | 72 61 6e 2d 63 6f 6d 6d |var fort|ran-comm|
|00000ad0| 65 6e 74 2d 72 65 67 69 | 6f 6e 20 22 63 24 24 24 |ent-regi|on "c$$$|
|00000ae0| 22 20 22 5c 0a 2a 53 74 | 72 69 6e 67 20 69 6e 73 |" "\.*St|ring ins|
|00000af0| 65 72 74 65 64 20 62 79 | 20 5c 5c 5b 66 6f 72 74 |erted by| \\[fort|
|00000b00| 72 61 6e 2d 63 6f 6d 6d | 65 6e 74 2d 72 65 67 69 |ran-comm|ent-regi|
|00000b10| 6f 6e 5d 20 61 74 20 73 | 74 61 72 74 20 6f 66 20 |on] at s|tart of |
|00000b20| 65 61 63 68 20 6c 69 6e | 65 20 69 6e 20 72 65 67 |each lin|e in reg|
|00000b30| 69 6f 6e 2e 22 29 0a 28 | 64 65 66 76 61 72 20 66 |ion.").(|defvar f|
|00000b40| 6f 72 74 72 61 6e 2d 65 | 6c 65 63 74 72 69 63 2d |ortran-e|lectric-|
|00000b50| 6c 69 6e 65 2d 6e 75 6d | 62 65 72 20 74 20 22 5c |line-num|ber t "\|
|00000b60| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 63 61 75 73 65 73 |.*Non-ni|l causes|
|00000b70| 20 6c 69 6e 65 20 6e 75 | 6d 62 65 72 20 64 69 67 | line nu|mber dig|
|00000b80| 69 74 73 20 74 6f 20 62 | 65 20 6d 6f 76 65 64 20 |its to b|e moved |
|00000b90| 74 6f 20 74 68 65 20 63 | 6f 72 72 65 63 74 20 63 |to the c|orrect c|
|00000ba0| 6f 6c 75 6d 6e 20 61 73 | 20 74 79 70 65 64 2e 22 |olumn as| typed."|
|00000bb0| 29 0a 28 64 65 66 76 61 | 72 20 66 6f 72 74 72 61 |).(defva|r fortra|
|00000bc0| 6e 2d 73 74 61 72 74 75 | 70 2d 6d 65 73 73 61 67 |n-startu|p-messag|
|00000bd0| 65 20 74 20 22 5c 0a 2a | 4e 6f 6e 2d 6e 69 6c 20 |e t "\.*|Non-nil |
|00000be0| 64 69 73 70 6c 61 79 73 | 20 61 20 73 74 61 72 74 |displays| a start|
|00000bf0| 75 70 20 6d 65 73 73 61 | 67 65 20 77 68 65 6e 20 |up messa|ge when |
|00000c00| 46 6f 72 74 72 61 6e 20 | 6d 6f 64 65 20 69 73 20 |Fortran |mode is |
|00000c10| 66 69 72 73 74 20 63 61 | 6c 6c 65 64 2e 22 29 0a |first ca|lled.").|
|00000c20| 28 64 65 66 76 61 72 20 | 66 6f 72 74 72 61 6e 2d |(defvar |fortran-|
|00000c30| 63 6f 6c 75 6d 6e 2d 72 | 75 6c 65 72 20 22 20 22 |column-r|uler " "|
|00000c40| 20 22 5c 0a 2a 53 74 72 | 69 6e 67 20 64 69 73 70 | "\.*Str|ing disp|
|00000c50| 6c 61 79 65 64 20 61 62 | 6f 76 65 20 63 75 72 72 |layed ab|ove curr|
|00000c60| 65 6e 74 20 6c 69 6e 65 | 20 62 79 20 5c 5c 5b 66 |ent line| by \\[f|
|00000c70| 6f 72 74 72 61 6e 2d 63 | 6f 6c 75 6d 6e 2d 72 75 |ortran-c|olumn-ru|
|00000c80| 6c 65 72 5d 2e 22 29 0a | 28 64 65 66 63 6f 6e 73 |ler].").|(defcons|
|00000c90| 74 20 62 75 67 2d 66 6f | 72 74 72 61 6e 2d 6d 6f |t bug-fo|rtran-mo|
|00000ca0| 64 65 20 22 62 75 67 2d | 66 6f 72 74 72 61 6e 2d |de "bug-|fortran-|
|00000cb0| 6d 6f 64 65 40 65 72 6c | 2e 6d 69 74 2e 65 64 75 |mode@erl|.mit.edu|
|00000cc0| 22 20 22 5c 0a 41 64 64 | 72 65 73 73 20 6f 66 20 |" "\.Add|ress of |
|00000cd0| 6d 61 69 6c 69 6e 67 20 | 6c 69 73 74 20 66 6f 72 |mailing |list for|
|00000ce0| 20 46 6f 72 74 72 61 6e | 20 6d 6f 64 65 20 62 75 | Fortran| mode bu|
|00000cf0| 67 73 2e 22 29 0a 28 64 | 65 66 76 61 72 20 66 6f |gs.").(d|efvar fo|
|00000d00| 72 74 72 61 6e 2d 6d 6f | 64 65 2d 73 79 6e 74 61 |rtran-mo|de-synta|
|00000d10| 78 2d 74 61 62 6c 65 20 | 6e 69 6c 20 22 5c 0a 53 |x-table |nil "\.S|
|00000d20| 79 6e 74 61 78 20 74 61 | 62 6c 65 20 69 6e 20 75 |yntax ta|ble in u|
|00000d30| 73 65 20 69 6e 20 46 6f | 72 74 72 61 6e 20 6d 6f |se in Fo|rtran mo|
|00000d40| 64 65 20 62 75 66 66 65 | 72 73 2e 22 29 0a 28 64 |de buffe|rs.").(d|
|00000d50| 65 66 76 61 72 20 66 6f | 72 74 72 61 6e 2d 61 6e |efvar fo|rtran-an|
|00000d60| 61 6c 79 7a 65 2d 64 65 | 70 74 68 20 31 30 30 20 |alyze-de|pth 100 |
|00000d70| 22 5c 0a 4e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |"\.Numbe|r of lin|
|00000d80| 65 73 20 74 6f 20 73 63 | 61 6e 20 74 6f 20 64 65 |es to sc|an to de|
|00000d90| 74 65 72 6d 69 6e 65 20 | 77 68 65 74 68 65 72 20 |termine |whether |
|00000da0| 74 6f 20 75 73 65 20 66 | 69 78 65 64 20 6f 72 20 |to use f|ixed or |
|00000db0| 74 61 62 20 66 6f 72 6d | 61 74 20 73 74 79 6c 65 |tab form|at style|
|00000dc0| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 66 6f 72 74 |.").(def|var fort|
|00000dd0| 72 61 6e 2d 62 72 65 61 | 6b 2d 62 65 66 6f 72 65 |ran-brea|k-before|
|00000de0| 2d 64 65 6c 69 6d 69 74 | 65 72 73 20 74 20 22 5c |-delimit|ers t "\|
|00000df0| 0a 4e 6f 6e 2d 6e 69 6c | 20 63 61 75 73 65 73 20 |.Non-nil| causes |
|00000e00| 66 6f 72 74 72 61 6e 2d | 64 6f 2d 61 75 74 6f 2d |fortran-|do-auto-|
|00000e10| 66 69 6c 6c 20 62 72 65 | 61 6b 73 20 6c 69 6e 65 |fill bre|aks line|
|00000e20| 73 20 62 65 66 6f 72 65 | 20 64 65 6c 69 6d 65 74 |s before| delimet|
|00000e30| 65 72 73 2e 22 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ers.").(|byte-cod|
|00000e40| 65 20 22 08 ac d1 c1 20 | 10 c2 c3 c4 08 23 88 c2 |e ".... |.....#..|
|00000e50| c5 c6 08 23 88 c2 c7 c8 | 08 23 88 c2 c9 c8 08 23 |...#....|.#.....#|
|00000e60| 88 c2 ca c8 08 23 88 c2 | cb c8 08 23 88 c2 cc c8 |.....#..|...#....|
|00000e70| 08 23 88 c2 cd ce 08 23 | 88 c2 cf ce 08 23 88 c2 |.#.....#|.....#..|
|00000e80| d0 d1 08 23 88 c2 d2 c4 | 08 23 88 c2 d3 c4 08 23 |...#....|.#.....#|
|00000e90| 88 c2 d4 d5 08 23 88 c1 | 87 22 20 5b 66 6f 72 74 |.....#..|." [fort|
|00000ea0| 72 61 6e 2d 6d 6f 64 65 | 2d 73 79 6e 74 61 78 2d |ran-mode|-syntax-|
|00000eb0| 74 61 62 6c 65 20 6d 61 | 6b 65 2d 73 79 6e 74 61 |table ma|ke-synta|
|00000ec0| 78 2d 74 61 62 6c 65 20 | 6d 6f 64 69 66 79 2d 73 |x-table |modify-s|
|00000ed0| 79 6e 74 61 78 2d 65 6e | 74 72 79 20 35 39 20 22 |yntax-en|try 59 "|
|00000ee0| 77 22 20 31 33 20 22 20 | 22 20 34 33 20 22 2e 22 |w" 13 " |" 43 "."|
|00000ef0| 20 34 35 20 36 31 20 34 | 32 20 34 37 20 33 39 20 | 45 61 4|2 47 39 |
|00000f00| 22 5c 22 22 20 33 34 20 | 39 32 20 22 2f 22 20 34 |"\"" 34 |92 "/" 4|
|00000f10| 36 20 39 35 20 31 30 20 | 22 3e 22 5d 20 34 29 0a |6 95 10 |">"] 4).|
|00000f20| 28 64 65 66 76 61 72 20 | 66 6f 72 74 72 61 6e 2d |(defvar |fortran-|
|00000f30| 6d 6f 64 65 2d 6d 61 70 | 20 6e 69 6c 20 22 5c 0a |mode-map| nil "\.|
|00000f40| 4b 65 79 6d 61 70 20 75 | 73 65 64 20 69 6e 20 66 |Keymap u|sed in f|
|00000f50| 6f 72 74 72 61 6e 20 6d | 6f 64 65 2e 22 29 0a 28 |ortran m|ode.").(|
|00000f60| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 84 97 00 c1 |byte-cod|e ".....|
|00000f70| 20 10 c2 08 c3 c4 23 88 | c2 08 c5 c6 23 88 c2 08 | .....#.|....#...|
|00000f80| c7 c8 23 88 c2 08 c9 ca | 23 88 c2 08 cb cc 23 88 |..#.....|#.....#.|
|00000f90| c2 08 cd ce 23 88 c2 08 | cf d0 23 88 c2 08 d1 d2 |....#...|..#.....|
|00000fa0| 23 88 c2 08 d3 d4 23 88 | c2 08 d5 d6 23 88 c2 08 |#.....#.|....#...|
|00000fb0| d7 d8 23 88 c2 08 d9 da | 23 88 c2 08 db dc 23 88 |..#.....|#.....#.|
|00000fc0| c2 08 dd de 23 88 c2 08 | df e0 23 88 c2 08 e1 e0 |....#...|..#.....|
|00000fd0| 23 88 c2 08 e2 e0 23 88 | c2 08 e3 e0 23 88 c2 08 |#.....#.|....#...|
|00000fe0| e4 e0 23 88 c2 08 e5 e0 | 23 88 c2 08 e6 e0 23 88 |..#.....|#.....#.|
|00000ff0| c2 08 e7 e0 23 88 c2 08 | e8 e0 23 88 c2 08 e9 e0 |....#...|..#.....|
|00001000| 23 88 ea eb 21 ac 83 ec | 16 2b 0e 2b 84 4c 03 0e |#...!...|.+.+.L..|
|00001010| 2d 1e 2e ef eb ec 5c 22 | 88 f0 0e 2b f1 f2 ec 24 |-.....\"|...+...$|
|00001020| 88 f0 0e 2b f3 f4 ec 24 | 88 f0 0e 2b f5 f6 ec 24 |...+...$|...+...$|
|00001030| 88 f0 0e 2b f7 f8 ec 24 | 88 f0 0e 2b f9 fa ec 24 |...+...$|...+...$|
|00001040| 88 f0 0e 2b fb fc ec 24 | 88 f0 0e 2b fd fe ec 24 |...+...$|...+...$|
|00001050| 88 f0 0e 2b ff 81 40 00 | ec 24 88 f0 0e 2b 81 41 |...+..@.|.$...+.A|
|00001060| 00 81 42 00 ec 24 88 f0 | 0e 2b 81 43 00 81 44 00 |..B..$..|.+.C..D.|
|00001070| ec 24 88 f0 0e 2b 81 45 | 00 81 46 00 ec 24 88 f0 |.$...+.E|..F..$..|
|00001080| 0e 2b 81 47 00 81 48 00 | ec 24 88 f0 0e 2b 81 49 |.+.G..H.|.$...+.I|
|00001090| 00 81 4a 00 ec 24 88 f0 | 0e 2b 81 4b 00 81 4c 00 |..J..$..|.+.K..L.|
|000010a0| ec 24 88 f0 0e 2b 81 4d | 00 81 4e 00 ec 24 88 f0 |.$...+.M|..N..$..|
|000010b0| 0e 2b 81 4f 00 81 50 00 | ec 24 88 f0 0e 2b 81 51 |.+.O..P.|.$...+.Q|
|000010c0| 00 81 52 00 ec 24 88 f0 | 0e 2b 81 53 00 81 54 00 |..R..$..|.+.S..T.|
|000010d0| ec 24 88 f0 0e 2b 81 55 | 00 81 56 00 ec 24 88 f0 |.$...+.U|..V..$..|
|000010e0| 0e 2b 81 57 00 81 58 00 | ec 24 88 f0 0e 2b 81 59 |.+.W..X.|.$...+.Y|
|000010f0| 00 81 5a 00 ec 24 88 f0 | 0e 2b 81 5b 00 81 5c 5c |..Z..$..|.+.[..\\|
|00001100| 00 ec 24 88 f0 0e 2b 81 | 5d 00 81 5e 00 ec 24 88 |..$...+.|]..^..$.|
|00001110| f0 0e 2b 81 5f 00 81 60 | 00 ec 24 88 f0 0e 2b 81 |..+._..`|..$...+.|
|00001120| 61 00 81 62 00 ec 24 88 | f0 0e 2b 81 63 00 81 64 |a..b..$.|..+.c..d|
|00001130| 00 ec 24 88 f0 0e 2b 81 | 65 00 81 66 00 ec 24 88 |..$...+.|e..f..$.|
|00001140| f0 0e 2b 81 67 00 81 68 | 00 ec 24 88 f0 0e 2b 81 |..+.g..h|..$...+.|
|00001150| 69 00 81 6a 00 ec 24 88 | f0 0e 2b 81 6b 00 81 6c |i..j..$.|..+.k..l|
|00001160| 00 ec 24 88 f0 0e 2b 81 | 6d 00 81 6e 00 ec 24 88 |..$...+.|m..n..$.|
|00001170| f0 0e 2b 81 6f 00 81 70 | 00 ec 24 88 f0 0e 2b 81 |..+.o..p|..$...+.|
|00001180| 71 00 81 72 00 ec 24 88 | f0 0e 2b 81 73 00 81 74 |q..r..$.|..+.s..t|
|00001190| 00 ec 24 88 f0 0e 2b 81 | 75 00 81 76 00 ec 24 88 |..$...+.|u..v..$.|
|000011a0| f0 0e 2b 81 77 00 81 78 | 00 ec 24 88 f0 0e 2b 81 |..+.w..x|..$...+.|
|000011b0| 79 00 81 7a 00 ec 24 88 | f0 0e 2b 81 7b 00 81 7c |y..z..$.|..+.{..||
|000011c0| 00 ec 24 88 f0 0e 2b 81 | 7d 00 81 7e 00 ec 24 88 |..$...+.|}..~..$.|
|000011d0| f0 0e 2b 81 7f 00 81 80 | 00 ec 24 88 f0 0e 2b 81 |..+.....|..$...+.|
|000011e0| 81 00 81 82 00 ec 24 88 | f0 0e 2b 81 83 00 81 84 |......$.|..+.....|
|000011f0| 00 ec 24 88 f0 0e 2b 81 | 85 00 81 86 00 ec 24 88 |..$...+.|......$.|
|00001200| f0 0e 2b 81 87 00 81 88 | 00 ec 24 88 f0 0e 2b 81 |..+.....|..$...+.|
|00001210| 89 00 81 8a 00 ec 24 88 | f0 0e 2b 81 8b 00 81 8c |......$.|..+.....|
|00001220| 00 ec 24 88 f0 0e 2b 81 | 8d 00 81 8e 00 ec 24 88 |..$...+.|......$.|
|00001230| f0 0e 2b 81 8f 00 81 90 | 00 ec 24 88 f0 0e 2b 81 |..+.....|..$...+.|
|00001240| 91 00 81 92 00 ec 24 88 | f0 0e 2b 81 93 00 81 94 |......$.|..+.....|
|00001250| 00 ec 24 88 f0 0e 2b 81 | 95 00 81 96 00 ec 24 88 |..$...+.|......$.|
|00001260| f0 0e 2b 81 97 00 81 98 | 00 ec 24 88 f0 0e 2b 81 |..+.....|..$...+.|
|00001270| 99 00 81 9a 00 ec 24 88 | f0 0e 2b 81 9b 00 81 9c |......$.|..+.....|
|00001280| 00 ec 24 88 f0 0e 2b 81 | 9d 00 81 9e 00 ec 24 88 |..$...+.|......$.|
|00001290| f0 0e 2b 81 9f 00 81 a0 | 00 ec 24 88 f0 0e 2b 81 |..+.....|..$...+.|
|000012a0| a1 00 81 a2 00 ec 24 88 | f0 0e 2b 81 a3 00 81 a4 |......$.|..+.....|
|000012b0| 00 ec 24 88 0e 2e 16 2d | 29 ec 87 22 20 5b 66 6f |..$....-|).." [fo|
|000012c0| 72 74 72 61 6e 2d 6d 6f | 64 65 2d 6d 61 70 20 6d |rtran-mo|de-map m|
|000012d0| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|000012e0| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 3b 22 |p define|-key ";"|
|000012f0| 20 66 6f 72 74 72 61 6e | 2d 61 62 62 72 65 76 2d | fortran|-abbrev-|
|00001300| 73 74 61 72 74 20 22 03 | 3b 22 20 66 6f 72 74 72 |start ".|;" fortr|
|00001310| 61 6e 2d 63 6f 6d 6d 65 | 6e 74 2d 72 65 67 69 6f |an-comme|nt-regio|
|00001320| 6e 20 22 1b 01 22 20 62 | 65 67 69 6e 6e 69 6e 67 |n ".." b|eginning|
|00001330| 2d 6f 66 2d 66 6f 72 74 | 72 61 6e 2d 73 75 62 70 |-of-fort|ran-subp|
|00001340| 72 6f 67 72 61 6d 20 22 | 1b 05 22 20 65 6e 64 2d |rogram "|.." end-|
|00001350| 6f 66 2d 66 6f 72 74 72 | 61 6e 2d 73 75 62 70 72 |of-fortr|an-subpr|
|00001360| 6f 67 72 61 6d 20 22 1b | 3b 22 20 66 6f 72 74 72 |ogram ".|;" fortr|
|00001370| 61 6e 2d 69 6e 64 65 6e | 74 2d 63 6f 6d 6d 65 6e |an-inden|t-commen|
|00001380| 74 20 22 1b 08 22 20 6d | 61 72 6b 2d 66 6f 72 74 |t ".." m|ark-fort|
|00001390| 72 61 6e 2d 73 75 62 70 | 72 6f 67 72 61 6d 20 22 |ran-subp|rogram "|
|000013a0| 1b 5c 6e 22 20 66 6f 72 | 74 72 61 6e 2d 73 70 6c |.\n" for|tran-spl|
|000013b0| 69 74 2d 6c 69 6e 65 20 | 22 5c 6e 22 20 66 6f 72 |it-line |"\n" for|
|000013c0| 74 72 61 6e 2d 72 65 69 | 6e 64 65 6e 74 2d 74 68 |tran-rei|ndent-th|
|000013d0| 65 6e 2d 6e 65 77 6c 69 | 6e 65 2d 61 6e 64 2d 69 |en-newli|ne-and-i|
|000013e0| 6e 64 65 6e 74 20 22 1b | 11 22 20 66 6f 72 74 72 |ndent ".|." fortr|
|000013f0| 61 6e 2d 69 6e 64 65 6e | 74 2d 73 75 62 70 72 6f |an-inden|t-subpro|
|00001400| 67 72 61 6d 20 22 03 17 | 22 20 66 6f 72 74 72 61 |gram "..|" fortra|
|00001410| 6e 2d 77 69 6e 64 6f 77 | 2d 63 72 65 61 74 65 2d |n-window|-create-|
|00001420| 6d 6f 6d 65 6e 74 61 72 | 69 6c 79 20 22 03 12 22 |momentar|ily ".."|
|00001430| 20 66 6f 72 74 72 61 6e | 2d 63 6f 6c 75 6d 6e 2d | fortran|-column-|
|00001440| 72 75 6c 65 72 20 22 03 | 10 22 20 66 6f 72 74 72 |ruler ".|." fortr|
|00001450| 61 6e 2d 70 72 65 76 69 | 6f 75 73 2d 73 74 61 74 |an-previ|ous-stat|
|00001460| 65 6d 65 6e 74 20 22 03 | 0e 22 20 66 6f 72 74 72 |ement ".|." fortr|
|00001470| 61 6e 2d 6e 65 78 74 2d | 73 74 61 74 65 6d 65 6e |an-next-|statemen|
|00001480| 74 20 22 09 22 20 66 6f | 72 74 72 61 6e 2d 69 6e |t "." fo|rtran-in|
|00001490| 64 65 6e 74 2d 6c 69 6e | 65 20 22 30 22 20 66 6f |dent-lin|e "0" fo|
|000014a0| 72 74 72 61 6e 2d 65 6c | 65 63 74 72 69 63 2d 6c |rtran-el|ectric-l|
|000014b0| 69 6e 65 2d 6e 75 6d 62 | 65 72 20 22 31 22 20 22 |ine-numb|er "1" "|
|000014c0| 32 22 20 22 33 22 20 22 | 34 22 20 22 35 22 20 22 |2" "3" "|4" "5" "|
|000014d0| 36 22 20 22 37 22 20 22 | 38 22 20 22 39 22 20 62 |6" "7" "|8" "9" b|
|000014e0| 6f 75 6e 64 70 20 66 6f | 72 74 72 61 6e 2d 6d 6f |oundp fo|rtran-mo|
|000014f0| 64 65 2d 61 62 62 72 65 | 76 2d 74 61 62 6c 65 20 |de-abbre|v-table |
|00001500| 6e 69 6c 20 61 62 62 72 | 65 76 73 2d 63 68 61 6e |nil abbr|evs-chan|
|00001510| 67 65 64 20 61 63 20 64 | 65 66 69 6e 65 2d 61 62 |ged ac d|efine-ab|
|00001520| 62 72 65 76 2d 74 61 62 | 6c 65 20 64 65 66 69 6e |brev-tab|le defin|
|00001530| 65 2d 61 62 62 72 65 76 | 20 22 3b 61 75 22 20 22 |e-abbrev| ";au" "|
|00001540| 61 75 74 6f 6d 61 74 69 | 63 22 20 22 3b 62 22 20 |automati|c" ";b" |
|00001550| 22 62 79 74 65 22 20 22 | 3b 62 44 22 20 22 62 6c |"byte" "|;bD" "bl|
|00001560| 6f 63 6b 20 64 61 74 61 | 22 20 22 3b 63 68 22 20 |ock data|" ";ch" |
|00001570| 22 63 68 61 72 61 63 74 | 65 72 22 20 22 3b 63 6c |"charact|er" ";cl|
|00001580| 22 20 22 63 6c 6f 73 65 | 22 20 22 3b 63 22 20 22 |" "close|" ";c" "|
|00001590| 63 6f 6e 74 69 6e 75 65 | 22 20 22 3b 63 6d 22 20 |continue|" ";cm" |
|000015a0| 22 63 6f 6d 6d 6f 6e 22 | 20 22 3b 63 78 22 20 22 |"common"| ";cx" "|
|000015b0| 63 6f 6d 70 6c 65 78 22 | 20 22 3b 64 66 22 20 22 |complex"| ";df" "|
|000015c0| 64 65 66 69 6e 65 22 20 | 22 3b 64 69 22 20 22 64 |define" |";di" "d|
|000015d0| 69 6d 65 6e 73 69 6f 6e | 22 20 22 3b 64 6f 22 20 |imension|" ";do" |
|000015e0| 22 64 6f 75 62 6c 65 22 | 20 22 3b 64 63 22 20 22 |"double"| ";dc" "|
|000015f0| 64 6f 75 62 6c 65 20 63 | 6f 6d 70 6c 65 78 22 20 |double c|omplex" |
|00001600| 22 3b 64 70 22 20 22 64 | 6f 75 62 6c 65 20 70 72 |";dp" "d|ouble pr|
|00001610| 65 63 69 73 69 6f 6e 22 | 20 22 3b 64 77 22 20 22 |ecision"| ";dw" "|
|00001620| 64 6f 20 77 68 69 6c 65 | 22 20 22 3b 65 22 20 22 |do while|" ";e" "|
|00001630| 65 6c 73 65 22 20 22 3b | 65 64 22 20 22 65 6e 64 |else" ";|ed" "end|
|00001640| 64 6f 22 20 22 3b 65 6c | 22 20 22 65 6c 73 65 69 |do" ";el|" "elsei|
|00001650| 66 22 20 22 3b 65 6e 22 | 20 22 65 6e 64 69 66 22 |f" ";en"| "endif"|
|00001660| 20 22 3b 65 71 22 20 22 | 65 71 75 69 76 61 6c 65 | ";eq" "|equivale|
|00001670| 6e 63 65 22 20 22 3b 65 | 57 22 20 22 65 6e 64 77 |nce" ";e|W" "endw|
|00001680| 68 65 72 65 22 20 22 3b | 65 78 22 20 22 65 78 74 |here" ";|ex" "ext|
|00001690| 65 72 6e 61 6c 22 20 22 | 3b 65 79 22 20 22 65 6e |ernal" "|;ey" "en|
|000016a0| 74 72 79 22 20 22 3b 66 | 22 20 22 66 6f 72 6d 61 |try" ";f|" "forma|
|000016b0| 74 22 20 22 3b 66 61 22 | 20 22 2e 66 61 6c 73 65 |t" ";fa"| ".false|
|000016c0| 2e 22 20 22 3b 66 75 22 | 20 22 66 75 6e 63 74 69 |." ";fu"| "functi|
|000016d0| 6f 6e 22 20 22 3b 67 22 | 20 22 67 6f 74 6f 22 20 |on" ";g"| "goto" |
|000016e0| 22 3b 69 6d 22 20 22 69 | 6d 70 6c 69 63 69 74 22 |";im" "i|mplicit"|
|000016f0| 20 22 3b 69 62 22 20 22 | 69 6d 70 6c 69 63 69 74 | ";ib" "|implicit|
|00001700| 20 62 79 74 65 22 20 22 | 3b 69 63 22 20 22 69 6d | byte" "|;ic" "im|
|00001710| 70 6c 69 63 69 74 20 63 | 6f 6d 70 6c 65 78 22 20 |plicit c|omplex" |
|00001720| 22 3b 69 63 68 22 20 22 | 69 6d 70 6c 69 63 69 74 |";ich" "|implicit|
|00001730| 20 63 68 61 72 61 63 74 | 65 72 22 20 22 3b 69 69 | charact|er" ";ii|
|00001740| 22 20 22 69 6d 70 6c 69 | 63 69 74 20 69 6e 74 65 |" "impli|cit inte|
|00001750| 67 65 72 22 20 22 3b 69 | 6c 22 20 22 69 6d 70 6c |ger" ";i|l" "impl|
|00001760| 69 63 69 74 20 6c 6f 67 | 69 63 61 6c 22 20 22 3b |icit log|ical" ";|
|00001770| 69 72 22 20 22 69 6d 70 | 6c 69 63 69 74 20 72 65 |ir" "imp|licit re|
|00001780| 61 6c 22 20 22 3b 69 6e | 63 22 20 22 69 6e 63 6c |al" ";in|c" "incl|
|00001790| 75 64 65 22 20 22 3b 69 | 6e 22 20 22 69 6e 74 65 |ude" ";i|n" "inte|
|000017a0| 67 65 72 22 20 22 3b 69 | 6e 74 72 22 20 22 69 6e |ger" ";i|ntr" "in|
|000017b0| 74 72 69 6e 73 69 63 22 | 20 22 3b 6c 22 20 22 6c |trinsic"| ";l" "l|
|000017c0| 6f 67 69 63 61 6c 22 20 | 22 3b 6e 22 20 22 6e 61 |ogical" |";n" "na|
|000017d0| 6d 65 6c 69 73 74 22 20 | 22 3b 6f 22 20 22 6f 70 |melist" |";o" "op|
|000017e0| 65 6e 22 20 22 3b 70 61 | 22 20 22 70 61 72 61 6d |en" ";pa|" "param|
|000017f0| 65 74 65 72 22 20 22 3b | 70 72 22 20 22 70 72 6f |eter" ";|pr" "pro|
|00001800| 67 72 61 6d 22 20 22 3b | 70 73 22 20 22 70 61 75 |gram" ";|ps" "pau|
|00001810| 73 65 22 20 22 3b 70 22 | 20 22 70 72 69 6e 74 22 |se" ";p"| "print"|
|00001820| 20 22 3b 72 63 22 20 22 | 72 65 63 6f 72 64 22 20 | ";rc" "|record" |
|00001830| 22 3b 72 65 22 20 22 72 | 65 61 6c 22 20 22 3b 72 |";re" "r|eal" ";r|
|00001840| 22 20 22 72 65 61 64 22 | 20 22 3b 72 74 22 20 22 |" "read"| ";rt" "|
|00001850| 72 65 74 75 72 6e 22 20 | 22 3b 72 77 22 20 22 72 |return" |";rw" "r|
|00001860| 65 77 69 6e 64 22 20 22 | 3b 73 22 20 22 73 74 6f |ewind" "|;s" "sto|
|00001870| 70 22 20 22 3b 73 61 22 | 20 22 73 61 76 65 22 20 |p" ";sa"| "save" |
|00001880| 22 3b 73 74 22 20 22 73 | 74 72 75 63 74 75 72 65 |";st" "s|tructure|
|00001890| 22 20 22 3b 73 63 22 20 | 22 73 74 61 74 69 63 22 |" ";sc" |"static"|
|000018a0| 20 22 3b 73 75 22 20 22 | 73 75 62 72 6f 75 74 69 | ";su" "|subrouti|
|000018b0| 6e 65 22 20 22 3b 74 72 | 22 20 22 2e 74 72 75 65 |ne" ";tr|" ".true|
|000018c0| 2e 22 20 22 3b 74 79 22 | 20 22 74 79 70 65 22 20 |." ";ty"| "type" |
|000018d0| 22 3b 76 6f 22 20 22 76 | 6f 6c 61 74 69 6c 65 22 |";vo" "v|olatile"|
|000018e0| 20 22 3b 77 22 20 22 77 | 72 69 74 65 22 20 22 3b | ";w" "w|rite" ";|
|000018f0| 77 68 22 20 22 77 68 65 | 72 65 22 5d 20 35 29 0a |wh" "whe|re"] 5).|
|00001900| 28 66 73 65 74 20 27 66 | 6f 72 74 72 61 6e 2d 6d |(fset 'f|ortran-m|
|00001910| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 09 ab |ode #[ni|l ". ...|
|00001920| 86 c2 c3 0c 0d 23 88 c6 | 11 0e 07 16 08 c9 0e 5c |.....#..|.......\|
|00001930| 6e 21 88 cb cc 21 88 cd | 16 0c cb ce 21 88 cf 16 |n!...!..|....!...|
|00001940| 0e cb d0 21 88 d1 16 10 | cb d2 21 88 d3 16 12 cb |...!....|..!.....|
|00001950| d4 21 88 d5 16 14 cb d6 | 21 88 d7 16 16 cb d8 21 |.!......|!......!|
|00001960| 88 c6 16 18 cb d9 21 88 | cd 16 19 cb da 21 88 cd |......!.|.....!..|
|00001970| 16 1a cb db 21 88 c6 16 | 1b cd 16 1c dd 16 1e df |....!...|........|
|00001980| 0e 20 21 88 e1 16 5c 22 | e3 16 24 cb e5 21 88 cb |. !...\"|..$..!..|
|00001990| e6 21 88 cb e7 21 88 cb | e8 21 88 cb e9 21 88 e5 |.!...!..|.!...!..|
|000019a0| ea 20 21 88 eb ec 21 87 | 22 20 5b 6b 69 6c 6c 2d |. !...!.|" [kill-|
|000019b0| 61 6c 6c 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |all-loca|l-variab|
|000019c0| 6c 65 73 20 66 6f 72 74 | 72 61 6e 2d 73 74 61 72 |les fort|ran-star|
|000019d0| 74 75 70 2d 6d 65 73 73 | 61 67 65 20 6d 65 73 73 |tup-mess|age mess|
|000019e0| 61 67 65 20 22 45 6d 61 | 63 73 20 46 6f 72 74 72 |age "Ema|cs Fortr|
|000019f0| 61 6e 20 6d 6f 64 65 20 | 25 73 2e 20 20 42 75 67 |an mode |%s. Bug|
|00001a00| 73 20 74 6f 20 25 73 22 | 20 66 6f 72 74 72 61 6e |s to %s"| fortran|
|00001a10| 2d 6d 6f 64 65 2d 76 65 | 72 73 69 6f 6e 20 62 75 |-mode-ve|rsion bu|
|00001a20| 67 2d 66 6f 72 74 72 61 | 6e 2d 6d 6f 64 65 20 6e |g-fortra|n-mode n|
|00001a30| 69 6c 20 66 6f 72 74 72 | 61 6e 2d 6d 6f 64 65 2d |il fortr|an-mode-|
|00001a40| 61 62 62 72 65 76 2d 74 | 61 62 6c 65 20 6c 6f 63 |abbrev-t|able loc|
|00001a50| 61 6c 2d 61 62 62 72 65 | 76 2d 74 61 62 6c 65 20 |al-abbre|v-table |
|00001a60| 73 65 74 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |set-synt|ax-table|
|00001a70| 20 66 6f 72 74 72 61 6e | 2d 6d 6f 64 65 2d 73 79 | fortran|-mode-sy|
|00001a80| 6e 74 61 78 2d 74 61 62 | 6c 65 20 6d 61 6b 65 2d |ntax-tab|le make-|
|00001a90| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 20 66 |local-va|riable f|
|00001aa0| 6f 72 74 72 61 6e 2d 62 | 72 65 61 6b 2d 62 65 66 |ortran-b|reak-bef|
|00001ab0| 6f 72 65 2d 64 65 6c 69 | 6d 69 74 65 72 73 20 74 |ore-deli|miters t|
|00001ac0| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|00001ad0| 63 74 69 6f 6e 20 66 6f | 72 74 72 61 6e 2d 69 6e |ction fo|rtran-in|
|00001ae0| 64 65 6e 74 2d 6c 69 6e | 65 20 63 6f 6d 6d 65 6e |dent-lin|e commen|
|00001af0| 74 2d 69 6e 64 65 6e 74 | 2d 68 6f 6f 6b 20 66 6f |t-indent|-hook fo|
|00001b00| 72 74 72 61 6e 2d 63 6f | 6d 6d 65 6e 74 2d 68 6f |rtran-co|mment-ho|
|00001b10| 6f 6b 20 63 6f 6d 6d 65 | 6e 74 2d 6c 69 6e 65 2d |ok comme|nt-line-|
|00001b20| 73 74 61 72 74 2d 73 6b | 69 70 20 22 5e 5b 43 63 |start-sk|ip "^[Cc|
|00001b30| 2a 5d 5c 5c 28 5c 5c 28 | 5b 5e 20 09 5c 6e 5d 5c |*]\\(\\(|[^ .\n]\|
|00001b40| 5c 29 5c 5c 32 5c 5c 32 | 2a 5c 5c 29 3f 5b 20 09 |\)\\2\\2|*\\)?[ .|
|00001b50| 5d 2a 5c 5c 7c 5e 23 2e | 2a 22 20 63 6f 6d 6d 65 |]*\\|^#.|*" comme|
|00001b60| 6e 74 2d 6c 69 6e 65 2d | 73 74 61 72 74 20 22 63 |nt-line-|start "c|
|00001b70| 22 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |" commen|t-start-|
|00001b80| 73 6b 69 70 20 22 21 5b | 20 09 5d 2a 22 20 63 6f |skip "![| .]*" co|
|00001b90| 6d 6d 65 6e 74 2d 73 74 | 61 72 74 20 72 65 71 75 |mment-st|art requ|
|00001ba0| 69 72 65 2d 66 69 6e 61 | 6c 2d 6e 65 77 6c 69 6e |ire-fina|l-newlin|
|00001bb0| 65 20 61 62 62 72 65 76 | 2d 61 6c 6c 2d 63 61 70 |e abbrev|-all-cap|
|00001bc0| 73 20 69 6e 64 65 6e 74 | 2d 74 61 62 73 2d 6d 6f |s indent|-tabs-mo|
|00001bd0| 64 65 20 61 62 62 72 65 | 76 2d 6d 6f 64 65 20 37 |de abbre|v-mode 7|
|00001be0| 32 20 66 69 6c 6c 2d 63 | 6f 6c 75 6d 6e 20 75 73 |2 fill-c|olumn us|
|00001bf0| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 66 6f 72 74 |e-local-|map fort|
|00001c00| 72 61 6e 2d 6d 6f 64 65 | 2d 6d 61 70 20 22 46 6f |ran-mode|-map "Fo|
|00001c10| 72 74 72 61 6e 22 20 6d | 6f 64 65 2d 6e 61 6d 65 |rtran" m|ode-name|
|00001c20| 20 66 6f 72 74 72 61 6e | 2d 6d 6f 64 65 20 6d 61 | fortran|-mode ma|
|00001c30| 6a 6f 72 2d 6d 6f 64 65 | 20 66 6f 72 74 72 61 6e |jor-mode| fortran|
|00001c40| 2d 74 61 62 2d 6d 6f 64 | 65 20 66 6f 72 74 72 61 |-tab-mod|e fortra|
|00001c50| 6e 2d 63 6f 6d 6d 65 6e | 74 2d 6c 69 6e 65 2d 63 |n-commen|t-line-c|
|00001c60| 6f 6c 75 6d 6e 20 66 6f | 72 74 72 61 6e 2d 6d 69 |olumn fo|rtran-mi|
|00001c70| 6e 69 6d 75 6d 2d 73 74 | 61 74 65 6d 65 6e 74 2d |nimum-st|atement-|
|00001c80| 69 6e 64 65 6e 74 20 66 | 6f 72 74 72 61 6e 2d 63 |indent f|ortran-c|
|00001c90| 6f 6c 75 6d 6e 2d 72 75 | 6c 65 72 20 66 6f 72 74 |olumn-ru|ler fort|
|00001ca0| 72 61 6e 2d 74 61 62 2d | 6d 6f 64 65 2d 73 74 72 |ran-tab-|mode-str|
|00001cb0| 69 6e 67 20 66 6f 72 74 | 72 61 6e 2d 61 6e 61 6c |ing fort|ran-anal|
|00001cc0| 79 7a 65 2d 66 69 6c 65 | 2d 66 6f 72 6d 61 74 20 |yze-file|-format |
|00001cd0| 72 75 6e 2d 68 6f 6f 6b | 73 20 66 6f 72 74 72 61 |run-hook|s fortra|
|00001ce0| 6e 2d 6d 6f 64 65 2d 68 | 6f 6f 6b 5d 20 34 20 22 |n-mode-h|ook] 4 "|
|00001cf0| 5c 0a 4d 61 6a 6f 72 20 | 6d 6f 64 65 20 66 6f 72 |\.Major |mode for|
|00001d00| 20 65 64 69 74 69 6e 67 | 20 66 6f 72 74 72 61 6e | editing| fortran|
|00001d10| 20 63 6f 64 65 2e 0a 54 | 61 62 20 69 6e 64 65 6e | code..T|ab inden|
|00001d20| 74 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 66 |ts the c|urrent f|
|00001d30| 6f 72 74 72 61 6e 20 6c | 69 6e 65 20 63 6f 72 72 |ortran l|ine corr|
|00001d40| 65 63 74 6c 79 2e 20 0a | 60 64 6f 27 20 73 74 61 |ectly. .|`do' sta|
|00001d50| 74 65 6d 65 6e 74 73 20 | 6d 75 73 74 20 6e 6f 74 |tements |must not|
|00001d60| 20 73 68 61 72 65 20 61 | 20 63 6f 6d 6d 6f 6e 20 | share a| common |
|00001d70| 60 63 6f 6e 74 69 6e 75 | 65 27 2e 0a 0a 54 79 70 |`continu|e'...Typ|
|00001d80| 65 20 60 3b 3f 27 20 6f | 72 20 60 3b 5c 5c 5b 68 |e `;?' o|r `;\\[h|
|00001d90| 65 6c 70 2d 63 6f 6d 6d | 61 6e 64 5d 27 20 74 6f |elp-comm|and]' to|
|00001da0| 20 64 69 73 70 6c 61 79 | 20 61 20 6c 69 73 74 20 | display| a list |
|00001db0| 6f 66 20 62 75 69 6c 74 | 2d 69 6e 20 61 62 62 72 |of built|-in abbr|
|00001dc0| 65 76 73 20 66 6f 72 20 | 46 6f 72 74 72 61 6e 20 |evs for |Fortran |
|00001dd0| 6b 65 79 77 6f 72 64 73 | 2e 0a 0a 4b 65 79 20 64 |keywords|...Key d|
|00001de0| 65 66 69 6e 69 74 69 6f | 6e 73 3a 0a 5c 5c 7b 66 |efinitio|ns:.\\{f|
|00001df0| 6f 72 74 72 61 6e 2d 6d | 6f 64 65 2d 6d 61 70 7d |ortran-m|ode-map}|
|00001e00| 0a 0a 56 61 72 69 61 62 | 6c 65 73 20 63 6f 6e 74 |..Variab|les cont|
|00001e10| 72 6f 6c 6c 69 6e 67 20 | 69 6e 64 65 6e 74 61 74 |rolling |indentat|
|00001e20| 69 6f 6e 20 73 74 79 6c | 65 20 61 6e 64 20 65 78 |ion styl|e and ex|
|00001e30| 74 72 61 20 66 65 61 74 | 75 72 65 73 3a 0a 0a 20 |tra feat|ures:.. |
|00001e40| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 0a 20 20 |comment-|start. |
|00001e50| 20 20 4e 6f 72 6d 61 6c | 6c 79 20 6e 69 6c 20 69 | Normal|ly nil i|
|00001e60| 6e 20 46 6f 72 74 72 61 | 6e 20 6d 6f 64 65 2e 20 |n Fortra|n mode. |
|00001e70| 20 49 66 20 79 6f 75 20 | 77 61 6e 74 20 74 6f 20 | If you |want to |
|00001e80| 75 73 65 20 63 6f 6d 6d | 65 6e 74 73 0a 20 20 20 |use comm|ents. |
|00001e90| 20 73 74 61 72 74 69 6e | 67 20 77 69 74 68 20 60 | startin|g with `|
|00001ea0| 21 27 2c 20 73 65 74 20 | 74 68 69 73 20 74 6f 20 |!', set |this to |
|00001eb0| 74 68 65 20 73 74 72 69 | 6e 67 20 5c 22 21 5c 22 |the stri|ng \"!\"|
|00001ec0| 2e 0a 20 66 6f 72 74 72 | 61 6e 2d 64 6f 2d 69 6e |.. fortr|an-do-in|
|00001ed0| 64 65 6e 74 0a 20 20 20 | 20 45 78 74 72 61 20 69 |dent. | Extra i|
|00001ee0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 77 69 74 68 69 |ndentati|on withi|
|00001ef0| 6e 20 64 6f 20 62 6c 6f | 63 6b 73 2e 20 20 28 64 |n do blo|cks. (d|
|00001f00| 65 66 61 75 6c 74 20 33 | 29 0a 20 66 6f 72 74 72 |efault 3|). fortr|
|00001f10| 61 6e 2d 69 66 2d 69 6e | 64 65 6e 74 0a 20 20 20 |an-if-in|dent. |
|00001f20| 20 45 78 74 72 61 20 69 | 6e 64 65 6e 74 61 74 69 | Extra i|ndentati|
|00001f30| 6f 6e 20 77 69 74 68 69 | 6e 20 69 66 20 62 6c 6f |on withi|n if blo|
|00001f40| 63 6b 73 2e 20 20 28 64 | 65 66 61 75 6c 74 20 33 |cks. (d|efault 3|
|00001f50| 29 0a 20 66 6f 72 74 72 | 61 6e 2d 73 74 72 75 63 |). fortr|an-struc|
|00001f60| 74 75 72 65 2d 69 6e 64 | 65 6e 74 0a 20 20 20 20 |ture-ind|ent. |
|00001f70| 45 78 74 72 61 20 69 6e | 64 65 6e 74 61 74 69 6f |Extra in|dentatio|
|00001f80| 6e 20 77 69 74 68 69 6e | 20 73 74 72 75 63 74 75 |n within| structu|
|00001f90| 72 65 2c 20 75 6e 69 6f | 6e 20 61 6e 64 20 6d 61 |re, unio|n and ma|
|00001fa0| 70 20 62 6c 6f 63 6b 73 | 2e 20 20 28 64 65 66 61 |p blocks|. (defa|
|00001fb0| 75 6c 74 20 33 29 0a 20 | 66 6f 72 74 72 61 6e 2d |ult 3). |fortran-|
|00001fc0| 63 6f 6e 74 69 6e 75 61 | 74 69 6f 6e 2d 69 6e 64 |continua|tion-ind|
|00001fd0| 65 6e 74 0a 20 20 20 20 | 45 78 74 72 61 20 69 6e |ent. |Extra in|
|00001fe0| 64 65 6e 74 61 74 69 6f | 6e 20 61 70 70 6c 69 65 |dentatio|n applie|
|00001ff0| 64 20 74 6f 20 63 6f 6e | 74 69 6e 75 61 74 69 6f |d to con|tinuatio|
|00002000| 6e 20 73 74 61 74 65 6d | 65 6e 74 73 2e 20 20 28 |n statem|ents. (|
|00002010| 64 65 66 61 75 6c 74 20 | 35 29 0a 20 66 6f 72 74 |default |5). fort|
|00002020| 72 61 6e 2d 63 6f 6d 6d | 65 6e 74 2d 6c 69 6e 65 |ran-comm|ent-line|
|00002030| 2d 63 6f 6c 75 6d 6e 0a | 20 20 20 20 41 6d 6f 75 |-column.| Amou|
|00002040| 6e 74 20 6f 66 20 65 78 | 74 72 61 20 69 6e 64 65 |nt of ex|tra inde|
|00002050| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 74 65 78 74 |ntation |for text|
|00002060| 20 77 69 74 68 69 6e 20 | 66 75 6c 6c 2d 6c 69 6e | within |full-lin|
|00002070| 65 20 63 6f 6d 6d 65 6e | 74 73 2e 20 28 64 65 66 |e commen|ts. (def|
|00002080| 61 75 6c 74 20 30 29 0a | 20 66 6f 72 74 72 61 6e |ault 0).| fortran|
|00002090| 2d 63 6f 6d 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 2d |-comment|-indent-|
|000020a0| 73 74 79 6c 65 0a 20 20 | 20 20 6e 69 6c 20 20 20 |style. | nil |
|000020b0| 20 6d 65 61 6e 73 20 64 | 6f 6e 27 74 20 63 68 61 | means d|on't cha|
|000020c0| 6e 67 65 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |nge inde|ntation |
|000020d0| 6f 66 20 74 65 78 74 20 | 69 6e 20 66 75 6c 6c 2d |of text |in full-|
|000020e0| 6c 69 6e 65 20 63 6f 6d | 6d 65 6e 74 73 2c 0a 20 |line com|ments,. |
|000020f0| 20 20 20 66 69 78 65 64 | 20 20 6d 65 61 6e 73 20 | fixed| means |
|00002100| 69 6e 64 65 6e 74 20 74 | 68 61 74 20 74 65 78 74 |indent t|hat text|
|00002110| 20 61 74 20 66 6f 72 74 | 72 61 6e 2d 63 6f 6d 6d | at fort|ran-comm|
|00002120| 65 6e 74 2d 6c 69 6e 65 | 2d 63 6f 6c 75 6d 6e 20 |ent-line|-column |
|00002130| 62 65 79 6f 6e 64 0a 20 | 20 20 20 20 20 20 20 20 |beyond. | |
|00002140| 20 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 66 | the va|lue of f|
|00002150| 6f 72 74 72 61 6e 2d 6d | 69 6e 69 6d 75 6d 2d 73 |ortran-m|inimum-s|
|00002160| 74 61 74 65 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 2c |tatement|-indent,|
|00002170| 0a 20 20 20 20 72 65 6c | 61 74 69 76 65 20 20 6d |. rel|ative m|
|00002180| 65 61 6e 73 20 69 6e 64 | 65 6e 74 20 61 74 20 66 |eans ind|ent at f|
|00002190| 6f 72 74 72 61 6e 2d 63 | 6f 6d 6d 65 6e 74 2d 6c |ortran-c|omment-l|
|000021a0| 69 6e 65 2d 63 6f 6c 75 | 6d 6e 20 62 65 79 6f 6e |ine-colu|mn beyon|
|000021b0| 64 20 74 68 65 0a 20 09 | 20 20 20 20 20 20 69 6e |d the. .| in|
|000021c0| 64 65 6e 74 61 74 69 6f | 6e 20 66 6f 72 20 61 20 |dentatio|n for a |
|000021d0| 6c 69 6e 65 20 6f 66 20 | 63 6f 64 65 2e 0a 20 20 |line of |code.. |
|000021e0| 20 20 28 64 65 66 61 75 | 6c 74 20 27 66 69 78 65 | (defau|lt 'fixe|
|000021f0| 64 29 0a 20 66 6f 72 74 | 72 61 6e 2d 63 6f 6d 6d |d). fort|ran-comm|
|00002200| 65 6e 74 2d 69 6e 64 65 | 6e 74 2d 63 68 61 72 0a |ent-inde|nt-char.|
|00002210| 20 20 20 20 53 69 6e 67 | 6c 65 2d 63 68 61 72 61 | Sing|le-chara|
|00002220| 63 74 65 72 20 73 74 72 | 69 6e 67 20 62 65 20 69 |cter str|ing be i|
|00002230| 6e 73 65 72 74 65 64 20 | 69 6e 73 74 65 61 64 20 |nserted |instead |
|00002240| 6f 66 20 73 70 61 63 65 | 20 66 6f 72 0a 20 20 20 |of space| for. |
|00002250| 20 66 75 6c 6c 2d 6c 69 | 6e 65 20 63 6f 6d 6d 65 | full-li|ne comme|
|00002260| 6e 74 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2e 20 |nt inden|tation. |
|00002270| 20 28 64 65 66 61 75 6c | 74 20 5c 22 20 5c 22 29 | (defaul|t \" \")|
|00002280| 0a 20 66 6f 72 74 72 61 | 6e 2d 6d 69 6e 69 6d 75 |. fortra|n-minimu|
|00002290| 6d 2d 73 74 61 74 65 6d | 65 6e 74 2d 69 6e 64 65 |m-statem|ent-inde|
|000022a0| 6e 74 0a 20 20 20 20 4d | 69 6e 69 6d 75 6d 20 69 |nt. M|inimum i|
|000022b0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 66 |ndentati|on for f|
|000022c0| 6f 72 74 72 61 6e 20 73 | 74 61 74 65 6d 65 6e 74 |ortran s|tatement|
|000022d0| 73 2e 20 28 64 65 66 61 | 75 6c 74 20 36 29 0a 20 |s. (defa|ult 6). |
|000022e0| 66 6f 72 74 72 61 6e 2d | 6c 69 6e 65 2d 6e 75 6d |fortran-|line-num|
|000022f0| 62 65 72 2d 69 6e 64 65 | 6e 74 0a 20 20 20 20 4d |ber-inde|nt. M|
|00002300| 61 78 69 6d 75 6d 20 69 | 6e 64 65 6e 74 61 74 69 |aximum i|ndentati|
|00002310| 6f 6e 20 66 6f 72 20 6c | 69 6e 65 20 6e 75 6d 62 |on for l|ine numb|
|00002320| 65 72 73 2e 20 20 41 20 | 6c 69 6e 65 20 6e 75 6d |ers. A |line num|
|00002330| 62 65 72 20 77 69 6c 6c | 20 67 65 74 0a 20 20 20 |ber will| get. |
|00002340| 20 6c 65 73 73 20 74 68 | 61 6e 20 74 68 69 73 20 | less th|an this |
|00002350| 6d 75 63 68 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |much ind|entation|
|00002360| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 20 74 6f | if nece|ssary to|
|00002370| 20 61 76 6f 69 64 20 72 | 65 61 63 68 69 6e 67 0a | avoid r|eaching.|
|00002380| 20 20 20 20 63 6f 6c 75 | 6d 6e 20 35 2e 20 20 28 | colu|mn 5. (|
|00002390| 64 65 66 61 75 6c 74 20 | 31 29 0a 20 66 6f 72 74 |default |1). fort|
|000023a0| 72 61 6e 2d 63 68 65 63 | 6b 2d 61 6c 6c 2d 6e 75 |ran-chec|k-all-nu|
|000023b0| 6d 2d 66 6f 72 2d 6d 61 | 74 63 68 69 6e 67 2d 64 |m-for-ma|tching-d|
|000023c0| 6f 0a 20 20 20 20 4e 6f | 6e 2d 6e 69 6c 20 63 61 |o. No|n-nil ca|
|000023d0| 75 73 65 73 20 61 6c 6c | 20 6e 75 6d 62 65 72 65 |uses all| numbere|
|000023e0| 64 20 6c 69 6e 65 73 20 | 74 6f 20 62 65 20 74 72 |d lines |to be tr|
|000023f0| 65 61 74 65 64 20 61 73 | 20 70 6f 73 73 69 62 6c |eated as| possibl|
|00002400| 65 20 27 63 6f 6e 74 69 | 6e 75 65 27 0a 20 20 20 |e 'conti|nue'. |
|00002410| 20 73 74 61 74 65 6d 65 | 6e 74 73 2e 20 20 28 64 | stateme|nts. (d|
|00002420| 65 66 61 75 6c 74 20 6e | 69 6c 29 0a 20 66 6f 72 |efault n|il). for|
|00002430| 74 72 61 6e 2d 62 6c 69 | 6e 6b 2d 6d 61 74 63 68 |tran-bli|nk-match|
|00002440| 69 6e 67 2d 69 66 20 0a | 20 20 20 20 46 72 6f 6d |ing-if .| From|
|00002450| 20 61 20 66 6f 72 74 72 | 61 6e 20 60 65 6e 64 69 | a fortr|an `endi|
|00002460| 66 27 20 73 74 61 74 65 | 6d 65 6e 74 2c 20 62 6c |f' state|ment, bl|
|00002470| 69 6e 6b 20 74 68 65 20 | 6d 61 74 63 68 69 6e 67 |ink the |matching|
|00002480| 20 60 69 66 27 20 73 74 | 61 74 65 6d 65 6e 74 2e | `if' st|atement.|
|00002490| 0a 20 20 20 20 28 64 65 | 66 61 75 6c 74 20 6e 69 |. (de|fault ni|
|000024a0| 6c 29 0a 20 66 6f 72 74 | 72 61 6e 2d 63 6f 6e 74 |l). fort|ran-cont|
|000024b0| 69 6e 75 61 74 69 6f 6e | 2d 73 74 72 69 6e 67 0a |inuation|-string.|
|000024c0| 20 20 20 20 53 69 6e 67 | 6c 65 2d 63 68 61 72 61 | Sing|le-chara|
|000024d0| 63 74 65 72 20 73 74 72 | 69 6e 67 20 74 6f 20 62 |cter str|ing to b|
|000024e0| 65 20 69 6e 73 65 72 74 | 65 64 20 69 6e 20 63 6f |e insert|ed in co|
|000024f0| 6c 75 6d 6e 20 35 20 6f | 66 20 61 20 63 6f 6e 74 |lumn 5 o|f a cont|
|00002500| 69 6e 75 61 74 69 6f 6e | 0a 20 20 20 20 6c 69 6e |inuation|. lin|
|00002510| 65 2e 20 20 28 64 65 66 | 61 75 6c 74 20 5c 22 24 |e. (def|ault \"$|
|00002520| 5c 22 29 0a 20 66 6f 72 | 74 72 61 6e 2d 63 6f 6d |\"). for|tran-com|
|00002530| 6d 65 6e 74 2d 72 65 67 | 69 6f 6e 0a 20 20 20 20 |ment-reg|ion. |
|00002540| 53 74 72 69 6e 67 20 69 | 6e 73 65 72 74 65 64 20 |String i|nserted |
|00002550| 62 79 20 5c 5c 5b 66 6f | 72 74 72 61 6e 2d 63 6f |by \\[fo|rtran-co|
|00002560| 6d 6d 65 6e 74 2d 72 65 | 67 69 6f 6e 5d 20 61 74 |mment-re|gion] at|
|00002570| 20 73 74 61 72 74 20 6f | 66 20 65 61 63 68 20 6c | start o|f each l|
|00002580| 69 6e 65 20 69 6e 20 0a | 20 20 20 20 72 65 67 69 |ine in .| regi|
|00002590| 6f 6e 2e 20 20 28 64 65 | 66 61 75 6c 74 20 5c 22 |on. (de|fault \"|
|000025a0| 63 24 24 24 5c 22 29 0a | 20 66 6f 72 74 72 61 6e |c$$$\").| fortran|
|000025b0| 2d 65 6c 65 63 74 72 69 | 63 2d 6c 69 6e 65 2d 6e |-electri|c-line-n|
|000025c0| 75 6d 62 65 72 0a 20 20 | 20 20 4e 6f 6e 2d 6e 69 |umber. | Non-ni|
|000025d0| 6c 20 63 61 75 73 65 73 | 20 6c 69 6e 65 20 6e 75 |l causes| line nu|
|000025e0| 6d 62 65 72 20 64 69 67 | 69 74 73 20 74 6f 20 62 |mber dig|its to b|
|000025f0| 65 20 6d 6f 76 65 64 20 | 74 6f 20 74 68 65 20 63 |e moved |to the c|
|00002600| 6f 72 72 65 63 74 20 63 | 6f 6c 75 6d 6e 20 0a 20 |orrect c|olumn . |
|00002610| 20 20 20 61 73 20 74 79 | 70 65 64 2e 20 20 28 64 | as ty|ped. (d|
|00002620| 65 66 61 75 6c 74 20 74 | 29 0a 20 66 6f 72 74 72 |efault t|). fortr|
|00002630| 61 6e 2d 62 72 65 61 6b | 2d 62 65 66 6f 72 65 2d |an-break|-before-|
|00002640| 64 65 6c 69 6d 69 74 65 | 72 73 0a 20 20 20 20 4e |delimite|rs. N|
|00002650| 6f 6e 2d 6e 69 6c 20 63 | 61 75 73 65 73 20 66 6f |on-nil c|auses fo|
|00002660| 72 74 72 61 6e 2d 64 6f | 2d 61 75 74 6f 2d 66 69 |rtran-do|-auto-fi|
|00002670| 6c 6c 20 62 72 65 61 6b | 73 20 6c 69 6e 65 73 20 |ll break|s lines |
|00002680| 62 65 66 6f 72 65 20 64 | 65 6c 69 6d 65 74 65 72 |before d|elimeter|
|00002690| 73 2e 0a 20 20 20 20 28 | 64 65 66 61 75 6c 74 20 |s.. (|default |
|000026a0| 74 29 0a 20 66 6f 72 74 | 72 61 6e 2d 73 74 61 72 |t). fort|ran-star|
|000026b0| 74 75 70 2d 6d 65 73 73 | 61 67 65 0a 20 20 20 20 |tup-mess|age. |
|000026c0| 53 65 74 20 74 6f 20 6e | 69 6c 20 74 6f 20 69 6e |Set to n|il to in|
|000026d0| 68 69 62 69 74 20 6d 65 | 73 73 61 67 65 20 66 69 |hibit me|ssage fi|
|000026e0| 72 73 74 20 74 69 6d 65 | 20 46 6f 72 74 72 61 6e |rst time| Fortran|
|000026f0| 20 6d 6f 64 65 20 69 73 | 20 75 73 65 64 2e 0a 0a | mode is| used...|
|00002700| 54 75 72 6e 69 6e 67 20 | 6f 6e 20 46 6f 72 74 72 |Turning |on Fortr|
|00002710| 61 6e 20 6d 6f 64 65 20 | 63 61 6c 6c 73 20 74 68 |an mode |calls th|
|00002720| 65 20 76 61 6c 75 65 20 | 6f 66 20 74 68 65 20 76 |e value |of the v|
|00002730| 61 72 69 61 62 6c 65 20 | 66 6f 72 74 72 61 6e 2d |ariable |fortran-|
|00002740| 6d 6f 64 65 2d 68 6f 6f | 6b 20 0a 77 69 74 68 20 |mode-hoo|k .with |
|00002750| 6e 6f 20 61 72 67 73 2c | 20 69 66 20 74 68 61 74 |no args,| if that|
|00002760| 20 76 61 6c 75 65 20 69 | 73 20 6e 6f 6e 2d 6e 69 | value i|s non-ni|
|00002770| 6c 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |l." nil]|).(fset |
|00002780| 27 66 6f 72 74 72 61 6e | 2d 63 6f 6d 6d 65 6e 74 |'fortran|-comment|
|00002790| 2d 68 6f 6f 6b 20 23 5b | 6e 69 6c 20 22 8a c0 c1 |-hook #[|nil "...|
|000027a0| 78 88 69 c2 5c 5c 0b 5d | 29 87 22 20 5b 22 20 09 |x.i.\\.]|)." [" .|
|000027b0| 22 20 6e 69 6c 20 31 20 | 63 6f 6d 6d 65 6e 74 2d |" nil 1 |comment-|
|000027c0| 63 6f 6c 75 6d 6e 5d 20 | 32 5d 29 0a 28 66 73 65 |column] |2]).(fse|
|000027d0| 74 20 27 66 6f 72 74 72 | 61 6e 2d 69 6e 64 65 6e |t 'fortr|an-inden|
|000027e0| 74 2d 63 6f 6d 6d 65 6e | 74 20 23 5b 6e 69 6c 20 |t-commen|t #[nil |
|000027f0| 22 c0 79 88 c1 5c 6e 21 | ab 83 c3 20 87 c4 20 ab |".y..\n!|... .. .|
|00002800| 98 0d ab 92 c0 94 62 88 | 69 c6 20 55 3f ad 89 c7 |......b.|i. U?...|
|00002810| 20 88 c6 20 6a 87 c8 7f | 87 0e 09 ab 93 c1 ca 21 | .. j...|.......!|
|00002820| ac 8e c8 7f 88 c7 20 88 | c6 20 6a 88 0e 09 63 87 |...... .|. j...c.|
|00002830| c1 ca 21 ab 85 c7 20 88 | aa 89 c0 79 88 cb 63 88 |..!... .|...y..c.|
|00002840| cc 75 88 0e 0d 63 88 ce | 0e 0f 3b ab 86 0e 0f c0 |.u...c..|..;.....|
|00002850| 48 aa 82 0e 0f d0 20 69 | 5a 5c 22 87 22 20 5b 30 |H..... i|Z\"." [0|
|00002860| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 63 6f 6d 6d | looking|-at comm|
|00002870| 65 6e 74 2d 6c 69 6e 65 | 2d 73 74 61 72 74 2d 73 |ent-line|-start-s|
|00002880| 6b 69 70 20 66 6f 72 74 | 72 61 6e 2d 69 6e 64 65 |kip fort|ran-inde|
|00002890| 6e 74 2d 6c 69 6e 65 20 | 66 69 6e 64 2d 63 6f 6d |nt-line |find-com|
|000028a0| 6d 65 6e 74 2d 73 74 61 | 72 74 2d 73 6b 69 70 20 |ment-sta|rt-skip |
|000028b0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 2d 73 6b |comment-|start-sk|
|000028c0| 69 70 20 66 6f 72 74 72 | 61 6e 2d 63 6f 6d 6d 65 |ip fortr|an-comme|
|000028d0| 6e 74 2d 68 6f 6f 6b 20 | 64 65 6c 65 74 65 2d 68 |nt-hook |delete-h|
|000028e0| 6f 72 69 7a 6f 6e 74 61 | 6c 2d 73 70 61 63 65 20 |orizonta|l-space |
|000028f0| 6e 69 6c 20 63 6f 6d 6d | 65 6e 74 2d 73 74 61 72 |nil comm|ent-star|
|00002900| 74 20 22 5e 5b 20 09 5d | 2a 24 22 20 22 5c 6e 22 |t "^[ .]|*$" "\n"|
|00002910| 20 2d 31 20 63 6f 6d 6d | 65 6e 74 2d 6c 69 6e 65 | -1 comm|ent-line|
|00002920| 2d 73 74 61 72 74 20 69 | 6e 73 65 72 74 2d 63 68 |-start i|nsert-ch|
|00002930| 61 72 20 66 6f 72 74 72 | 61 6e 2d 63 6f 6d 6d 65 |ar fortr|an-comme|
|00002940| 6e 74 2d 69 6e 64 65 6e | 74 2d 63 68 61 72 20 63 |nt-inden|t-char c|
|00002950| 61 6c 63 75 6c 61 74 65 | 2d 66 6f 72 74 72 61 6e |alculate|-fortran|
|00002960| 2d 69 6e 64 65 6e 74 5d | 20 34 20 22 5c 0a 41 6c |-indent]| 4 "\.Al|
|00002970| 69 67 6e 20 6f 72 20 63 | 72 65 61 74 65 20 63 6f |ign or c|reate co|
|00002980| 6d 6d 65 6e 74 20 6f 6e | 20 63 75 72 72 65 6e 74 |mment on| current|
|00002990| 20 6c 69 6e 65 2e 0a 45 | 78 69 73 74 69 6e 67 20 | line..E|xisting |
|000029a0| 63 6f 6d 6d 65 6e 74 73 | 20 6f 66 20 61 6c 6c 20 |comments| of all |
|000029b0| 74 79 70 65 73 20 61 72 | 65 20 72 65 63 6f 67 6e |types ar|e recogn|
|000029c0| 69 7a 65 64 20 61 6e 64 | 20 61 6c 69 67 6e 65 64 |ized and| aligned|
|000029d0| 2e 0a 49 66 20 74 68 65 | 20 6c 69 6e 65 20 68 61 |..If the| line ha|
|000029e0| 73 20 6e 6f 20 63 6f 6d | 6d 65 6e 74 2c 20 61 20 |s no com|ment, a |
|000029f0| 73 69 64 65 2d 62 79 2d | 73 69 64 65 20 63 6f 6d |side-by-|side com|
|00002a00| 6d 65 6e 74 20 69 73 20 | 69 6e 73 65 72 74 65 64 |ment is |inserted|
|00002a10| 20 61 6e 64 20 61 6c 69 | 67 6e 65 64 0a 69 66 20 | and ali|gned.if |
|00002a20| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 20 63 6f |the valu|e of co|
|00002a30| 6d 6d 65 6e 74 2d 73 74 | 61 72 74 20 20 69 73 20 |mment-st|art is |
|00002a40| 6e 6f 74 20 6e 69 6c 2e | 0a 4f 74 68 65 72 77 69 |not nil.|.Otherwi|
|00002a50| 73 65 2c 20 61 20 73 65 | 70 61 72 61 74 65 2d 6c |se, a se|parate-l|
|00002a60| 69 6e 65 20 63 6f 6d 6d | 65 6e 74 20 69 73 20 69 |ine comm|ent is i|
|00002a70| 6e 73 65 72 74 65 64 2c | 20 6f 6e 20 74 68 69 73 |nserted,| on this|
|00002a80| 20 6c 69 6e 65 0a 6f 72 | 20 6f 6e 20 61 20 6e 65 | line.or| on a ne|
|00002a90| 77 20 6c 69 6e 65 20 69 | 6e 73 65 72 74 65 64 20 |w line i|nserted |
|00002aa0| 62 65 66 6f 72 65 20 74 | 68 69 73 20 6c 69 6e 65 |before t|his line|
|00002ab0| 20 69 66 20 74 68 69 73 | 20 6c 69 6e 65 20 69 73 | if this| line is|
|00002ac0| 20 6e 6f 74 20 62 6c 61 | 6e 6b 2e 22 20 6e 69 6c | not bla|nk." nil|
|00002ad0| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|00002ae0| 6e 2d 63 6f 6d 6d 65 6e | 74 2d 72 65 67 69 6f 6e |n-commen|t-region|
|00002af0| 20 23 5b 28 62 65 67 2d | 72 65 67 69 6f 6e 20 65 | #[(beg-|region e|
|00002b00| 6e 64 2d 72 65 67 69 6f | 6e 20 61 72 67 29 20 22 |nd-regio|n arg) "|
|00002b10| c0 20 c1 20 1a 89 1b 0c | c5 93 88 0e 06 62 88 c7 |. . ....|.....b..|
|00002b20| 79 88 0e 08 ac 95 0e 09 | 63 88 ca 79 c7 55 ab b5 |y.......|c..y.U..|
|00002b30| 60 0b 57 ab b0 0e 09 63 | 88 aa 6f cb 0e 09 21 1e |`.W....c|..o...!.|
|00002b40| 0c cd 0e 0c 21 ab 85 60 | c7 95 7c 88 ca 79 c7 55 |....!..`|..|..y.U|
|00002b50| ab 92 60 0b 57 ab 8d cd | 0e 0c 21 ab 6f 60 c7 95 |..`.W...|..!.o`..|
|00002b60| 7c 88 aa 68 29 5c 6e 62 | 88 0b c5 89 93 88 5c 6e ||..h)\nb|......\n|
|00002b70| c5 89 93 2a 87 22 20 5b | 6d 61 6b 65 2d 6d 61 72 |...*." [|make-mar|
|00002b80| 6b 65 72 20 70 6f 69 6e | 74 2d 6d 61 72 6b 65 72 |ker poin|t-marker|
|00002b90| 20 73 61 76 65 2d 70 6f | 69 6e 74 20 65 6e 64 2d | save-po|int end-|
|00002ba0| 72 65 67 69 6f 6e 2d 6d | 61 72 6b 20 65 6e 64 2d |region-m|ark end-|
|00002bb0| 72 65 67 69 6f 6e 20 6e | 69 6c 20 62 65 67 2d 72 |region n|il beg-r|
|00002bc0| 65 67 69 6f 6e 20 30 20 | 61 72 67 20 66 6f 72 74 |egion 0 |arg fort|
|00002bd0| 72 61 6e 2d 63 6f 6d 6d | 65 6e 74 2d 72 65 67 69 |ran-comm|ent-regi|
|00002be0| 6f 6e 20 31 20 72 65 67 | 65 78 70 2d 71 75 6f 74 |on 1 reg|exp-quot|
|00002bf0| 65 20 63 6f 6d 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |e com lo|oking-at|
|00002c00| 5d 20 34 20 22 5c 0a 43 | 6f 6d 6d 65 6e 74 73 20 |] 4 "\.C|omments |
|00002c10| 65 76 65 72 79 20 6c 69 | 6e 65 20 69 6e 20 74 68 |every li|ne in th|
|00002c20| 65 20 72 65 67 69 6f 6e | 2e 0a 50 75 74 73 20 66 |e region|..Puts f|
|00002c30| 6f 72 74 72 61 6e 2d 63 | 6f 6d 6d 65 6e 74 2d 72 |ortran-c|omment-r|
|00002c40| 65 67 69 6f 6e 20 61 74 | 20 74 68 65 20 62 65 67 |egion at| the beg|
|00002c50| 69 6e 6e 69 6e 67 20 6f | 66 20 65 76 65 72 79 20 |inning o|f every |
|00002c60| 6c 69 6e 65 20 69 6e 20 | 74 68 65 20 72 65 67 69 |line in |the regi|
|00002c70| 6f 6e 2e 20 0a 42 45 47 | 2d 52 45 47 49 4f 4e 20 |on. .BEG|-REGION |
|00002c80| 61 6e 64 20 45 4e 44 2d | 52 45 47 49 4f 4e 20 61 |and END-|REGION a|
|00002c90| 72 65 20 61 72 67 73 20 | 77 68 69 63 68 20 73 70 |re args |which sp|
|00002ca0| 65 63 69 66 79 20 74 68 | 65 20 72 65 67 69 6f 6e |ecify th|e region|
|00002cb0| 20 62 6f 75 6e 64 61 72 | 69 65 73 2e 20 0a 57 69 | boundar|ies. .Wi|
|00002cc0| 74 68 20 6e 6f 6e 2d 6e | 69 6c 20 41 52 47 2c 20 |th non-n|il ARG, |
|00002cd0| 75 6e 63 6f 6d 6d 65 6e | 74 73 20 74 68 65 20 72 |uncommen|ts the r|
|00002ce0| 65 67 69 6f 6e 2e 22 20 | 22 2a 72 5c 6e 50 22 5d |egion." |"*r\nP"]|
|00002cf0| 29 0a 28 66 73 65 74 20 | 27 66 6f 72 74 72 61 6e |).(fset |'fortran|
|00002d00| 2d 61 62 62 72 65 76 2d | 73 74 61 72 74 20 23 5b |-abbrev-|start #[|
|00002d10| 6e 69 6c 20 22 c0 19 5c | 6e 63 88 c3 20 89 11 c4 |nil "..\|nc.. ...|
|00002d20| 55 ac 85 09 0d 55 ab 84 | c6 20 aa 84 09 89 16 07 |U....U..|. ......|
|00002d30| 29 87 22 20 5b 6e 69 6c | 20 63 20 6c 61 73 74 2d |)." [nil| c last-|
|00002d40| 63 6f 6d 6d 61 6e 64 2d | 63 68 61 72 20 72 65 61 |command-|char rea|
|00002d50| 64 2d 63 68 61 72 20 36 | 33 20 68 65 6c 70 2d 63 |d-char 6|3 help-c|
|00002d60| 68 61 72 20 66 6f 72 74 | 72 61 6e 2d 61 62 62 72 |har fort|ran-abbr|
|00002d70| 65 76 2d 68 65 6c 70 20 | 75 6e 72 65 61 64 2d 63 |ev-help |unread-c|
|00002d80| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 5d 20 32 20 22 |ommand-c|har] 2 "|
|00002d90| 5c 0a 54 79 70 69 6e 67 | 20 5c 22 3b 5c 5c 5b 68 |\.Typing| \";\\[h|
|00002da0| 65 6c 70 2d 63 6f 6d 6d | 61 6e 64 5d 5c 22 20 6f |elp-comm|and]\" o|
|00002db0| 72 20 5c 22 3b 3f 5c 22 | 20 6c 69 73 74 73 20 61 |r \";?\"| lists a|
|00002dc0| 6c 6c 20 74 68 65 20 66 | 6f 72 74 72 61 6e 20 61 |ll the f|ortran a|
|00002dd0| 62 62 72 65 76 73 2e 20 | 0a 41 6e 79 20 6f 74 68 |bbrevs. |.Any oth|
|00002de0| 65 72 20 6b 65 79 20 63 | 6f 6d 62 69 6e 61 74 69 |er key c|ombinati|
|00002df0| 6f 6e 20 69 73 20 65 78 | 65 63 75 74 65 64 20 6e |on is ex|ecuted n|
|00002e00| 6f 72 6d 61 6c 6c 79 2e | 22 20 6e 69 6c 5d 29 0a |ormally.|" nil]).|
|00002e10| 28 66 73 65 74 20 27 66 | 6f 72 74 72 61 6e 2d 61 |(fset 'f|ortran-a|
|00002e20| 62 62 72 65 76 2d 68 65 | 6c 70 20 23 5b 6e 69 6c |bbrev-he|lp #[nil|
|00002e30| 20 22 c0 c1 21 88 c2 c3 | 21 88 c4 0d c6 5c 22 88 | "..!...|!....\".|
|00002e40| c0 c7 21 87 22 20 5b 6d | 65 73 73 61 67 65 20 22 |..!." [m|essage "|
|00002e50| 4c 69 73 74 69 6e 67 20 | 61 62 62 72 65 76 20 74 |Listing |abbrev t|
|00002e60| 61 62 6c 65 2e 2e 2e 22 | 20 72 65 71 75 69 72 65 |able..."| require|
|00002e70| 20 61 62 62 72 65 76 6c | 69 73 74 20 6c 69 73 74 | abbrevl|ist list|
|00002e80| 2d 6f 6e 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |-one-abb|rev-tabl|
|00002e90| 65 20 66 6f 72 74 72 61 | 6e 2d 6d 6f 64 65 2d 61 |e fortra|n-mode-a|
|00002ea0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 22 2a 48 65 |bbrev-ta|ble "*He|
|00002eb0| 6c 70 2a 22 20 22 4c 69 | 73 74 69 6e 67 20 61 62 |lp*" "Li|sting ab|
|00002ec0| 62 72 65 76 20 74 61 62 | 6c 65 2e 2e 2e 64 6f 6e |brev tab|le...don|
|00002ed0| 65 22 5d 20 33 20 22 5c | 0a 4c 69 73 74 20 74 68 |e"] 3 "\|.List th|
|00002ee0| 65 20 63 75 72 72 65 6e | 74 6c 79 20 64 65 66 69 |e curren|tly defi|
|00002ef0| 6e 65 64 20 61 62 62 72 | 65 76 73 20 69 6e 20 46 |ned abbr|evs in F|
|00002f00| 6f 72 74 72 61 6e 20 6d | 6f 64 65 2e 22 20 6e 69 |ortran m|ode." ni|
|00002f10| 6c 5d 29 0a 28 66 73 65 | 74 20 27 66 6f 72 74 72 |l]).(fse|t 'fortr|
|00002f20| 61 6e 2d 63 6f 6c 75 6d | 6e 2d 72 75 6c 65 72 20 |an-colum|n-ruler |
|00002f30| 23 5b 6e 69 6c 20 22 c0 | 09 8a c2 79 88 c3 c4 20 |#[nil ".|...y... |
|00002f40| 21 c5 c4 20 21 3d ab 86 | c6 79 88 60 aa 81 60 29 |!.. !=..|.y.`..`)|
|00002f50| c6 c7 24 87 22 20 5b 6d | 6f 6d 65 6e 74 61 72 79 |..$." [m|omentary|
|00002f60| 2d 73 74 72 69 6e 67 2d | 64 69 73 70 6c 61 79 20 |-string-|display |
|00002f70| 66 6f 72 74 72 61 6e 2d | 63 6f 6c 75 6d 6e 2d 72 |fortran-|column-r|
|00002f80| 75 6c 65 72 20 30 20 77 | 69 6e 64 6f 77 2d 73 74 |uler 0 w|indow-st|
|00002f90| 61 72 74 20 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |art sele|cted-win|
|00002fa0| 64 6f 77 20 77 69 6e 64 | 6f 77 2d 70 6f 69 6e 74 |dow wind|ow-point|
|00002fb0| 20 6e 69 6c 20 22 54 79 | 70 65 20 53 50 43 20 6f | nil "Ty|pe SPC o|
|00002fc0| 72 20 61 6e 79 20 63 6f | 6d 6d 61 6e 64 20 74 6f |r any co|mmand to|
|00002fd0| 20 65 72 61 73 65 20 72 | 75 6c 65 72 2e 22 5d 20 | erase r|uler."] |
|00002fe0| 35 20 22 5c 0a 49 6e 73 | 65 72 74 73 20 61 20 63 |5 "\.Ins|erts a c|
|00002ff0| 6f 6c 75 6d 6e 20 72 75 | 6c 65 72 20 6d 6f 6d 65 |olumn ru|ler mome|
|00003000| 6e 74 61 72 69 6c 79 20 | 61 62 6f 76 65 20 63 75 |ntarily |above cu|
|00003010| 72 72 65 6e 74 20 6c 69 | 6e 65 2c 20 74 69 6c 6c |rrent li|ne, till|
|00003020| 20 6e 65 78 74 20 6b 65 | 79 73 74 72 6f 6b 65 2e | next ke|ystroke.|
|00003030| 0a 54 68 65 20 72 75 6c | 65 72 20 69 73 20 64 65 |.The rul|er is de|
|00003040| 66 69 6e 65 64 20 62 79 | 20 74 68 65 20 76 61 6c |fined by| the val|
|00003050| 75 65 20 6f 66 20 66 6f | 72 74 72 61 6e 2d 63 6f |ue of fo|rtran-co|
|00003060| 6c 75 6d 6e 2d 72 75 6c | 65 72 2e 0a 54 68 65 20 |lumn-rul|er..The |
|00003070| 6b 65 79 20 74 79 70 65 | 64 20 69 73 20 65 78 65 |key type|d is exe|
|00003080| 63 75 74 65 64 20 75 6e | 6c 65 73 73 20 69 74 20 |cuted un|less it |
|00003090| 69 73 20 53 50 43 2e 22 | 20 6e 69 6c 5d 29 0a 28 |is SPC."| nil]).(|
|000030a0| 66 73 65 74 20 27 66 6f | 72 74 72 61 6e 2d 77 69 |fset 'fo|rtran-wi|
|000030b0| 6e 64 6f 77 2d 63 72 65 | 61 74 65 20 23 5b 6e 69 |ndow-cre|ate #[ni|
|000030c0| 6c 20 22 c0 c1 c2 8f 87 | 22 20 5b 65 72 72 6f 72 |l ".....|" [error|
|000030d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 19 c2 | (byte-c|ode "...|
|000030e0| 20 c3 20 57 ab 8a c4 c3 | 20 c2 20 5a c5 5a 21 88 | . W....| . Z.Z!.|
|000030f0| c6 c7 21 88 c8 c5 21 88 | c9 ca cb 5c 22 88 cc cd |..!...!.|...\"...|
|00003100| 20 21 29 87 22 20 5b 32 | 20 77 69 6e 64 6f 77 2d | !)." [2| window-|
|00003110| 6d 69 6e 2d 77 69 64 74 | 68 20 77 69 6e 64 6f 77 |min-widt|h window|
|00003120| 2d 77 69 64 74 68 20 73 | 63 72 65 65 6e 2d 77 69 |-width s|creen-wi|
|00003130| 64 74 68 20 65 6e 6c 61 | 72 67 65 2d 77 69 6e 64 |dth enla|rge-wind|
|00003140| 6f 77 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 6c 79 20 |ow-horiz|ontally |
|00003150| 31 20 73 70 6c 69 74 2d | 77 69 6e 64 6f 77 2d 68 |1 split-|window-h|
|00003160| 6f 72 69 7a 6f 6e 74 61 | 6c 6c 79 20 37 33 20 6f |orizonta|lly 73 o|
|00003170| 74 68 65 72 2d 77 69 6e | 64 6f 77 20 73 77 69 74 |ther-win|dow swit|
|00003180| 63 68 2d 74 6f 2d 62 75 | 66 66 65 72 20 22 20 66 |ch-to-bu|ffer " f|
|00003190| 6f 72 74 72 61 6e 2d 77 | 69 6e 64 6f 77 2d 65 78 |ortran-w|indow-ex|
|000031a0| 74 72 61 22 20 74 20 73 | 65 6c 65 63 74 2d 77 69 |tra" t s|elect-wi|
|000031b0| 6e 64 6f 77 20 70 72 65 | 76 69 6f 75 73 2d 77 69 |ndow pre|vious-wi|
|000031c0| 6e 64 6f 77 5d 20 33 29 | 20 28 28 65 72 72 6f 72 |ndow] 3)| ((error|
|000031d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 | (byte-c|ode "..!|
|000031e0| 88 c2 87 22 20 5b 6d 65 | 73 73 61 67 65 20 22 4e |..." [me|ssage "N|
|000031f0| 6f 20 72 6f 6f 6d 20 66 | 6f 72 20 66 6f 72 74 72 |o room f|or fortr|
|00003200| 61 6e 20 77 69 6e 64 6f | 77 2e 22 20 65 72 72 6f |an windo|w." erro|
|00003210| 72 5d 20 32 29 29 29 5d | 20 33 20 22 5c 0a 4d 61 |r] 2)))]| 3 "\.Ma|
|00003220| 6b 65 73 20 74 68 65 20 | 77 69 6e 64 6f 77 20 37 |kes the |window 7|
|00003230| 32 20 63 6f 6c 75 6d 6e | 73 20 77 69 64 65 2e 0a |2 column|s wide..|
|00003240| 53 65 65 20 61 6c 73 6f | 20 66 6f 72 74 72 61 6e |See also| fortran|
|00003250| 2d 77 69 6e 64 6f 77 2d | 63 72 65 61 74 65 2d 6d |-window-|create-m|
|00003260| 6f 6d 65 6e 74 61 72 69 | 6c 79 2e 22 20 6e 69 6c |omentari|ly." nil|
|00003270| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|00003280| 6e 2d 77 69 6e 64 6f 77 | 2d 63 72 65 61 74 65 2d |n-window|-create-|
|00003290| 6d 6f 6d 65 6e 74 61 72 | 69 6c 79 20 23 5b 28 26 |momentar|ily #[(&|
|000032a0| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 08 |optional| arg) ".|
|000032b0| ab 85 08 c1 55 ab 83 c2 | 8b 87 c3 20 87 22 20 5b |....U...|... ." [|
|000032c0| 61 72 67 20 31 20 28 28 | 62 79 74 65 2d 63 6f 64 |arg 1 ((|byte-cod|
|000032d0| 65 20 22 c0 20 c1 9a 3f | ad 93 c2 c3 21 88 c4 20 |e ". ..?|....!.. |
|000032e0| 89 1d c6 c7 21 9a ae 84 | 0d 89 16 08 29 87 22 20 |....!...|....)." |
|000032f0| 5b 66 6f 72 74 72 61 6e | 2d 77 69 6e 64 6f 77 2d |[fortran|-window-|
|00003300| 63 72 65 61 74 65 20 65 | 72 72 6f 72 20 6d 65 73 |create e|rror mes|
|00003310| 73 61 67 65 20 22 54 79 | 70 65 20 53 50 43 20 74 |sage "Ty|pe SPC t|
|00003320| 6f 20 63 6f 6e 74 69 6e | 75 65 20 65 64 69 74 69 |o contin|ue editi|
|00003330| 6e 67 2e 22 20 72 65 61 | 64 2d 63 68 61 72 20 63 |ng." rea|d-char c|
|00003340| 68 61 72 20 73 74 72 69 | 6e 67 2d 74 6f 2d 63 68 |har stri|ng-to-ch|
|00003350| 61 72 20 22 20 22 20 75 | 6e 72 65 61 64 2d 63 6f |ar " " u|nread-co|
|00003360| 6d 6d 61 6e 64 2d 63 68 | 61 72 5d 20 34 29 29 20 |mmand-ch|ar] 4)) |
|00003370| 66 6f 72 74 72 61 6e 2d | 77 69 6e 64 6f 77 2d 63 |fortran-|window-c|
|00003380| 72 65 61 74 65 5d 20 32 | 20 22 5c 0a 4d 6f 6d 65 |reate] 2| "\.Mome|
|00003390| 6e 74 61 72 69 6c 79 20 | 6d 61 6b 65 73 20 74 68 |ntarily |makes th|
|000033a0| 65 20 77 69 6e 64 6f 77 | 20 37 32 20 63 6f 6c 75 |e window| 72 colu|
|000033b0| 6d 6e 73 20 77 69 64 65 | 2e 0a 4f 70 74 69 6f 6e |mns wide|..Option|
|000033c0| 61 6c 20 41 52 47 20 6e | 6f 6e 2d 6e 69 6c 20 61 |al ARG n|on-nil a|
|000033d0| 6e 64 20 6e 6f 6e 2d 75 | 6e 69 74 79 20 64 69 73 |nd non-u|nity dis|
|000033e0| 61 62 6c 65 73 20 74 68 | 65 20 6d 6f 6d 65 6e 74 |ables th|e moment|
|000033f0| 61 72 79 20 66 65 61 74 | 75 72 65 2e 0a 53 65 65 |ary feat|ure..See|
|00003400| 20 61 6c 73 6f 20 66 6f | 72 74 72 61 6e 2d 77 69 | also fo|rtran-wi|
|00003410| 6e 64 6f 77 2d 63 72 65 | 61 74 65 2e 22 20 22 70 |ndow-cre|ate." "p|
|00003420| 22 5d 29 0a 28 66 73 65 | 74 20 27 66 6f 72 74 72 |"]).(fse|t 'fortr|
|00003430| 61 6e 2d 73 70 6c 69 74 | 2d 6c 69 6e 65 20 23 5b |an-split|-line #[|
|00003440| 6e 69 6c 20 22 c0 20 88 | 8a c1 79 88 c2 0b 21 29 |nil ". .|..y...!)|
|00003450| ab 88 c4 0d c6 b1 03 88 | aa 95 0e 07 ab 8b c8 63 |........|.......c|
|00003460| 88 c9 ca 20 cb 5c 22 88 | aa 86 cc 0e 0d b1 02 88 |... .\".|........|
|00003470| ce 20 87 22 20 5b 64 65 | 6c 65 74 65 2d 68 6f 72 |. ." [de|lete-hor|
|00003480| 69 7a 6f 6e 74 61 6c 2d | 73 70 61 63 65 20 30 20 |izontal-|space 0 |
|00003490| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 63 6f 6d 6d 65 |looking-|at comme|
|000034a0| 6e 74 2d 6c 69 6e 65 2d | 73 74 61 72 74 2d 73 6b |nt-line-|start-sk|
|000034b0| 69 70 20 22 5c 6e 22 20 | 63 6f 6d 6d 65 6e 74 2d |ip "\n" |comment-|
|000034c0| 6c 69 6e 65 2d 73 74 61 | 72 74 20 22 20 22 20 66 |line-sta|rt " " f|
|000034d0| 6f 72 74 72 61 6e 2d 74 | 61 62 2d 6d 6f 64 65 20 |ortran-t|ab-mode |
|000034e0| 22 5c 6e 09 22 20 69 6e | 73 65 72 74 2d 63 68 61 |"\n." in|sert-cha|
|000034f0| 72 20 66 6f 72 74 72 61 | 6e 2d 6e 75 6d 65 72 69 |r fortra|n-numeri|
|00003500| 63 61 6c 2d 63 6f 6e 74 | 69 6e 75 61 74 69 6f 6e |cal-cont|inuation|
|00003510| 2d 63 68 61 72 20 31 20 | 22 5c 6e 20 22 20 66 6f |-char 1 |"\n " fo|
|00003520| 72 74 72 61 6e 2d 63 6f | 6e 74 69 6e 75 61 74 69 |rtran-co|ntinuati|
|00003530| 6f 6e 2d 73 74 72 69 6e | 67 20 66 6f 72 74 72 61 |on-strin|g fortra|
|00003540| 6e 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 5d 20 33 |n-indent|-line] 3|
|00003550| 20 22 5c 0a 42 72 65 61 | 6b 20 6c 69 6e 65 20 61 | "\.Brea|k line a|
|00003560| 74 20 70 6f 69 6e 74 20 | 61 6e 64 20 69 6e 73 65 |t point |and inse|
|00003570| 72 74 20 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 20 |rt conti|nuation |
|00003580| 6d 61 72 6b 65 72 20 61 | 6e 64 20 61 6c 69 67 6e |marker a|nd align|
|00003590| 6d 65 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |ment." n|il]).(fs|
|000035a0| 65 74 20 27 66 6f 72 74 | 72 61 6e 2d 6e 75 6d 65 |et 'fort|ran-nume|
|000035b0| 72 69 63 61 6c 2d 63 6f | 6e 74 69 6e 75 61 74 69 |rical-co|ntinuati|
|000035c0| 6f 6e 2d 63 68 61 72 20 | 23 5b 6e 69 6c 20 22 8a |on-char |#[nil ".|
|000035d0| c0 79 88 c1 c2 21 ab 8c | 60 c3 5c 5c 66 c4 5a c5 |.y...!..|`.\\f.Z.|
|000035e0| a6 c6 5c 5c aa 81 c6 29 | 87 22 20 5b 2d 31 20 6c |..\\...)|." [-1 l|
|000035f0| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 09 5b 31 2d 39 |ooking-a|t ".[1-9|
|00003600| 5d 22 20 31 20 34 38 20 | 39 20 34 39 5d 20 32 20 |]" 1 48 |9 49] 2 |
|00003610| 22 5c 0a 52 65 74 75 72 | 6e 20 61 20 64 69 67 69 |"\.Retur|n a digi|
|00003620| 74 20 66 6f 72 20 74 61 | 62 2d 64 69 67 69 74 20 |t for ta|b-digit |
|00003630| 73 74 79 6c 65 20 6f 66 | 20 63 6f 6e 74 69 6e 75 |style of| continu|
|00003640| 74 69 6f 6e 20 6c 69 6e | 65 73 2e 0a 49 66 2c 20 |tion lin|es..If, |
|00003650| 70 72 65 76 69 6f 75 73 | 20 6c 69 6e 65 20 69 73 |previous| line is|
|00003660| 20 61 20 74 61 62 2d 64 | 69 67 69 74 20 63 6f 6e | a tab-d|igit con|
|00003670| 74 69 6e 75 61 74 69 6f | 6e 20 6c 69 6e 65 2c 20 |tinuatio|n line, |
|00003680| 72 65 74 75 72 6e 73 20 | 74 68 61 74 20 64 69 67 |returns |that dig|
|00003690| 69 74 0a 70 6c 75 73 20 | 6f 6e 65 2e 20 20 4f 74 |it.plus |one. Ot|
|000036a0| 68 65 72 77 69 73 65 20 | 72 65 74 75 72 6e 20 31 |herwise |return 1|
|000036b0| 2e 20 20 5a 65 72 6f 20 | 6e 6f 74 20 61 6c 6c 6f |. Zero |not allo|
|000036c0| 77 65 64 2e 22 5d 29 0a | 28 66 73 65 74 20 27 64 |wed."]).|(fset 'd|
|000036d0| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|000036e0| 2d 72 65 67 65 78 70 20 | 23 5b 28 63 68 61 72 73 |-regexp |#[(chars|
|000036f0| 29 20 22 08 c1 78 88 60 | 08 c1 77 88 60 7c 87 22 |) "..x.`|..w.`|."|
|00003700| 20 5b 63 68 61 72 73 20 | 6e 69 6c 5d 20 33 20 22 | [chars |nil] 3 "|
|00003710| 5c 0a 44 65 6c 65 74 65 | 20 61 6c 6c 20 63 68 61 |\.Delete| all cha|
|00003720| 72 61 63 74 65 72 73 20 | 69 6e 20 43 48 41 52 53 |racters |in CHARS|
|00003730| 20 61 72 6f 75 6e 64 20 | 70 6f 69 6e 74 2e 0a 43 | around |point..C|
|00003740| 48 41 52 53 20 69 73 20 | 6c 69 6b 65 20 74 68 65 |HARS is |like the|
|00003750| 20 69 6e 73 69 64 65 20 | 6f 66 20 61 20 5b 2e 2e | inside |of a [..|
|00003760| 2e 5d 20 69 6e 20 61 20 | 72 65 67 75 6c 61 72 20 |.] in a |regular |
|00003770| 65 78 70 72 65 73 73 69 | 6f 6e 0a 65 78 63 65 70 |expressi|on.excep|
|00003780| 74 20 74 68 61 74 20 5d | 20 69 73 20 6e 65 76 65 |t that ]| is neve|
|00003790| 72 20 73 70 65 63 69 61 | 6c 20 61 6e 64 20 20 71 |r specia|l and q|
|000037a0| 75 6f 74 65 73 20 5e 2c | 20 2d 20 6f 72 20 2e 22 |uotes ^,| - or ."|
|000037b0| 20 22 2a 73 22 5d 29 0a | 28 66 73 65 74 20 27 66 | "*s"]).|(fset 'f|
|000037c0| 6f 72 74 72 61 6e 2d 65 | 6c 65 63 74 72 69 63 2d |ortran-e|lectric-|
|000037d0| 6c 69 6e 65 2d 6e 75 6d | 62 65 72 20 23 5b 28 61 |line-num|ber #[(a|
|000037e0| 72 67 29 20 22 08 ac 83 | 09 ac 8d 08 ab 86 c2 c3 |rg) "...|........|
|000037f0| 08 21 21 87 c2 c4 21 87 | 69 c5 55 ab 8a 8a c6 79 |.!!...!.|i.U....y|
|00003800| 88 c7 c8 21 29 ac af 0e | 09 69 55 ab 96 8a c6 79 |...!)...|.iU....y|
|00003810| 88 c7 ca 21 29 ab 8c 0e | 0b cc 3d ac 86 0e 0b cd |...!)...|..=.....|
|00003820| 3d ab 93 8a ce cf 8a c6 | 79 88 60 29 d0 23 29 ac |=.......|y.`).#).|
|00003830| 85 c7 d1 21 ab 86 c2 c3 | 08 21 21 87 d2 d3 78 88 |...!....|.!!...x.|
|00003840| 0e 14 63 88 cc 20 87 22 | 20 5b 61 72 67 20 66 6f |..c.. ."| [arg fo|
|00003850| 72 74 72 61 6e 2d 65 6c | 65 63 74 72 69 63 2d 6c |rtran-el|ectric-l|
|00003860| 69 6e 65 2d 6e 75 6d 62 | 65 72 20 73 65 6c 66 2d |ine-numb|er self-|
|00003870| 69 6e 73 65 72 74 2d 63 | 6f 6d 6d 61 6e 64 20 70 |insert-c|ommand p|
|00003880| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00003890| 6c 75 65 20 31 20 35 20 | 30 20 6c 6f 6f 6b 69 6e |lue 1 5 |0 lookin|
|000038a0| 67 2d 61 74 20 22 20 20 | 20 20 20 22 20 66 6f 72 |g-at " | " for|
|000038b0| 74 72 61 6e 2d 6d 69 6e | 69 6d 75 6d 2d 73 74 61 |tran-min|imum-sta|
|000038c0| 74 65 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 20 22 09 |tement-i|ndent ".|
|000038d0| 22 20 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 20 66 |" last-c|ommand f|
|000038e0| 6f 72 74 72 61 6e 2d 69 | 6e 64 65 6e 74 2d 6c 69 |ortran-i|ndent-li|
|000038f0| 6e 65 20 66 6f 72 74 72 | 61 6e 2d 72 65 69 6e 64 |ne fortr|an-reind|
|00003900| 65 6e 74 2d 74 68 65 6e | 2d 6e 65 77 6c 69 6e 65 |ent-then|-newline|
|00003910| 2d 61 6e 64 2d 69 6e 64 | 65 6e 74 20 72 65 2d 73 |-and-ind|ent re-s|
|00003920| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00003930| 5b 5e 20 09 30 2d 39 5d | 22 20 74 20 22 5b 30 2d |[^ .0-9]|" t "[0-|
|00003940| 39 5d 22 20 22 20 09 22 | 20 6e 69 6c 20 6c 61 73 |9]" " ."| nil las|
|00003950| 74 2d 63 6f 6d 6d 61 6e | 64 2d 63 68 61 72 5d 20 |t-comman|d-char] |
|00003960| 34 20 22 5c 0a 53 65 6c | 66 20 69 6e 73 65 72 74 |4 "\.Sel|f insert|
|00003970| 2c 20 62 75 74 20 69 66 | 20 70 61 72 74 20 6f 66 |, but if| part of|
|00003980| 20 61 20 46 6f 72 74 72 | 61 6e 20 6c 69 6e 65 20 | a Fortr|an line |
|00003990| 6e 75 6d 62 65 72 20 69 | 6e 64 65 6e 74 20 69 74 |number i|ndent it|
|000039a0| 20 61 75 74 6f 6d 61 74 | 69 63 61 6c 6c 79 2e 0a | automat|ically..|
|000039b0| 41 75 74 6f 2d 69 6e 64 | 65 6e 74 20 64 6f 65 73 |Auto-ind|ent does|
|000039c0| 20 6e 6f 74 20 68 61 70 | 70 65 6e 20 69 66 20 61 | not hap|pen if a|
|000039d0| 20 6e 75 6d 65 72 69 63 | 20 61 72 67 20 69 73 20 | numeric| arg is |
|000039e0| 75 73 65 64 2e 22 20 22 | 50 22 5d 29 0a 28 66 73 |used." "|P"]).(fs|
|000039f0| 65 74 20 27 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |et 'begi|nning-of|
|00003a00| 2d 66 6f 72 74 72 61 6e | 2d 73 75 62 70 72 6f 67 |-fortran|-subprog|
|00003a10| 72 61 6d 20 23 5b 6e 69 | 6c 20 22 c0 19 c2 79 88 |ram #[ni|l "...y.|
|00003a20| c3 c4 c5 c6 23 88 c7 c4 | 21 ad 82 c8 79 29 87 22 |....#...|!...y)."|
|00003a30| 20 5b 74 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 | [t case|-fold-se|
|00003a40| 61 72 63 68 20 2d 32 20 | 72 65 2d 73 65 61 72 63 |arch -2 |re-searc|
|00003a50| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 5e 5b 20 09 |h-backwa|rd "^[ .|
|00003a60| 30 2d 39 5d 2a 65 6e 64 | 5c 5c 62 5b 20 09 5d 2a |0-9]*end|\\b[ .]*|
|00003a70| 5b 5e 20 09 3d 28 61 2d | 7a 5d 22 20 6e 69 6c 20 |[^ .=(a-|z]" nil |
|00003a80| 6d 6f 76 65 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |move loo|king-at |
|00003a90| 31 5d 20 34 20 22 5c 0a | 4d 6f 76 65 73 20 70 6f |1] 4 "\.|Moves po|
|00003aa0| 69 6e 74 20 74 6f 20 74 | 68 65 20 62 65 67 69 6e |int to t|he begin|
|00003ab0| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 63 75 72 72 |ning of |the curr|
|00003ac0| 65 6e 74 20 66 6f 72 74 | 72 61 6e 20 73 75 62 70 |ent fort|ran subp|
|00003ad0| 72 6f 67 72 61 6d 2e 22 | 20 6e 69 6c 5d 29 0a 28 |rogram."| nil]).(|
|00003ae0| 66 73 65 74 20 27 65 6e | 64 2d 6f 66 2d 66 6f 72 |fset 'en|d-of-for|
|00003af0| 74 72 61 6e 2d 73 75 62 | 70 72 6f 67 72 61 6d 20 |tran-sub|program |
|00003b00| 23 5b 6e 69 6c 20 22 c0 | 19 c2 79 88 c3 c4 c5 c6 |#[nil ".|..y.....|
|00003b10| 23 88 c7 94 62 88 c2 79 | 29 87 22 20 5b 74 20 63 |#...b..y|)." [t c|
|00003b20| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00003b30| 31 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |1 re-sea|rch-forw|
|00003b40| 61 72 64 20 22 5e 5b 20 | 09 30 2d 39 5d 2a 65 6e |ard "^[ |.0-9]*en|
|00003b50| 64 5c 5c 62 5b 20 09 5d | 2a 5b 5e 20 09 3d 28 61 |d\\b[ .]|*[^ .=(a|
|00003b60| 2d 7a 5d 22 20 6e 69 6c | 20 6d 6f 76 65 20 30 5d |-z]" nil| move 0]|
|00003b70| 20 34 20 22 5c 0a 4d 6f | 76 65 73 20 70 6f 69 6e | 4 "\.Mo|ves poin|
|00003b80| 74 20 74 6f 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |t to the| end of |
|00003b90| 74 68 65 20 63 75 72 72 | 65 6e 74 20 66 6f 72 74 |the curr|ent fort|
|00003ba0| 72 61 6e 20 73 75 62 70 | 72 6f 67 72 61 6d 2e 22 |ran subp|rogram."|
|00003bb0| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 6d 61 | nil]).(|fset 'ma|
|00003bc0| 72 6b 2d 66 6f 72 74 72 | 61 6e 2d 73 75 62 70 72 |rk-fortr|an-subpr|
|00003bd0| 6f 67 72 61 6d 20 23 5b | 6e 69 6c 20 22 c0 20 88 |ogram #[|nil ". .|
|00003be0| c1 60 21 88 c2 20 87 22 | 20 5b 65 6e 64 2d 6f 66 |.`!.. ."| [end-of|
|00003bf0| 2d 66 6f 72 74 72 61 6e | 2d 73 75 62 70 72 6f 67 |-fortran|-subprog|
|00003c00| 72 61 6d 20 70 75 73 68 | 2d 6d 61 72 6b 20 62 65 |ram push|-mark be|
|00003c10| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 66 6f 72 74 72 |ginning-|of-fortr|
|00003c20| 61 6e 2d 73 75 62 70 72 | 6f 67 72 61 6d 5d 20 32 |an-subpr|ogram] 2|
|00003c30| 20 22 5c 0a 50 75 74 20 | 6d 61 72 6b 20 61 74 20 | "\.Put |mark at |
|00003c40| 65 6e 64 20 6f 66 20 66 | 6f 72 74 72 61 6e 20 73 |end of f|ortran s|
|00003c50| 75 62 70 72 6f 67 72 61 | 6d 2c 20 70 6f 69 6e 74 |ubprogra|m, point|
|00003c60| 20 61 74 20 62 65 67 69 | 6e 6e 69 6e 67 2e 20 0a | at begi|nning. .|
|00003c70| 54 68 65 20 6d 61 72 6b | 73 20 61 72 65 20 70 75 |The mark|s are pu|
|00003c80| 73 68 65 64 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |shed." n|il]).(fs|
|00003c90| 65 74 20 27 66 6f 72 74 | 72 61 6e 2d 70 72 65 76 |et 'fort|ran-prev|
|00003ca0| 69 6f 75 73 2d 73 74 61 | 74 65 6d 65 6e 74 20 23 |ious-sta|tement #|
|00003cb0| 5b 6e 69 6c 20 22 c0 89 | 19 1a c3 79 88 c4 0d 21 |[nil "..|...y...!|
|00003cc0| 3f ad 92 c4 c6 c7 0e 08 | 21 50 21 ae 88 c4 c9 21 |?.......|!P!....!|
|00003cd0| ae 83 c4 ca 21 11 cb 79 | c3 55 89 12 ab 9c c4 0d |....!..y|.U......|
|00003ce0| 21 ac 73 c4 cc 21 ac 6e | c4 c9 21 ac 69 c4 ca 21 |!.s..!.n|..!.i..!|
|00003cf0| ac 64 c4 c6 0e 0d 50 21 | ac 5c 5c 09 ab 88 5c 6e |.d....P!|.\\...\n|
|00003d00| ac 85 ce cf 21 aa 8c 09 | ab 84 d0 20 aa 85 5c 6e |....!...|... ..\n|
|00003d10| 3f ad 81 d1 2a 87 22 20 | 5b 6e 69 6c 20 63 6f 6e |?...*." |[nil con|
|00003d20| 74 69 6e 75 65 2d 74 65 | 73 74 20 6e 6f 74 2d 66 |tinue-te|st not-f|
|00003d30| 69 72 73 74 2d 73 74 61 | 74 65 6d 65 6e 74 20 30 |irst-sta|tement 0|
|00003d40| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 63 6f 6d 6d | looking|-at comm|
|00003d50| 65 6e 74 2d 6c 69 6e 65 | 2d 73 74 61 72 74 2d 73 |ent-line|-start-s|
|00003d60| 6b 69 70 20 22 5b 20 09 | 5d 2a 22 20 72 65 67 65 |kip "[ .|]*" rege|
|00003d70| 78 70 2d 71 75 6f 74 65 | 20 66 6f 72 74 72 61 6e |xp-quote| fortran|
|00003d80| 2d 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 2d 73 74 |-continu|ation-st|
|00003d90| 72 69 6e 67 20 22 20 20 | 20 20 20 5b 5e 20 30 5c |ring " | [^ 0\|
|00003da0| 6e 5d 22 20 22 09 5b 31 | 2d 39 5d 22 20 2d 31 20 |n]" ".[1|-9]" -1 |
|00003db0| 22 5b 20 09 5d 2a 24 22 | 20 63 6f 6d 6d 65 6e 74 |"[ .]*$"| comment|
|00003dc0| 2d 73 74 61 72 74 2d 73 | 6b 69 70 20 6d 65 73 73 |-start-s|kip mess|
|00003dd0| 61 67 65 20 22 49 6e 63 | 6f 6d 70 6c 65 74 65 20 |age "Inc|omplete |
|00003de0| 63 6f 6e 74 69 6e 75 61 | 74 69 6f 6e 20 73 74 61 |continua|tion sta|
|00003df0| 74 65 6d 65 6e 74 2e 22 | 20 66 6f 72 74 72 61 6e |tement."| fortran|
|00003e00| 2d 70 72 65 76 69 6f 75 | 73 2d 73 74 61 74 65 6d |-previou|s-statem|
|00003e10| 65 6e 74 20 66 69 72 73 | 74 2d 73 74 61 74 65 6d |ent firs|t-statem|
|00003e20| 65 6e 74 5d 20 34 20 22 | 5c 0a 4d 6f 76 65 73 20 |ent] 4 "|\.Moves |
|00003e30| 70 6f 69 6e 74 20 74 6f | 20 62 65 67 69 6e 6e 69 |point to| beginni|
|00003e40| 6e 67 20 6f 66 20 74 68 | 65 20 70 72 65 76 69 6f |ng of th|e previo|
|00003e50| 75 73 20 66 6f 72 74 72 | 61 6e 20 73 74 61 74 65 |us fortr|an state|
|00003e60| 6d 65 6e 74 2e 0a 52 65 | 74 75 72 6e 73 20 27 66 |ment..Re|turns 'f|
|00003e70| 69 72 73 74 2d 73 74 61 | 74 65 6d 65 6e 74 20 69 |irst-sta|tement i|
|00003e80| 66 20 74 68 61 74 20 73 | 74 61 74 65 6d 65 6e 74 |f that s|tatement|
|00003e90| 20 69 73 20 74 68 65 20 | 66 69 72 73 74 0a 6e 6f | is the |first.no|
|00003ea0| 6e 2d 63 6f 6d 6d 65 6e | 74 20 46 6f 72 74 72 61 |n-commen|t Fortra|
|00003eb0| 6e 20 73 74 61 74 65 6d | 65 6e 74 20 69 6e 20 74 |n statem|ent in t|
|00003ec0| 68 65 20 66 69 6c 65 2c | 20 61 6e 64 20 6e 69 6c |he file,| and nil|
|00003ed0| 20 6f 74 68 65 72 77 69 | 73 65 2e 22 20 6e 69 6c | otherwi|se." nil|
|00003ee0| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|00003ef0| 6e 2d 6e 65 78 74 2d 73 | 74 61 74 65 6d 65 6e 74 |n-next-s|tatement|
|00003f00| 20 23 5b 6e 69 6c 20 22 | c0 19 c2 79 88 c3 79 c2 | #[nil "|...y..y.|
|00003f10| 55 ad 82 6d 3f 89 11 ab | 9c c4 0d 21 ac 6f c4 c6 |U..m?...|...!.o..|
|00003f20| 21 ac 6a c4 c7 21 ac 65 | c4 c8 21 ac 60 c4 c9 0e |!.j..!.e|..!.`...|
|00003f30| 5c 6e 50 21 ac 58 09 3f | ad 81 cb 29 87 22 20 5b |\nP!.X.?|...)." [|
|00003f40| 6e 69 6c 20 6e 6f 74 2d | 6c 61 73 74 2d 73 74 61 |nil not-|last-sta|
|00003f50| 74 65 6d 65 6e 74 20 30 | 20 31 20 6c 6f 6f 6b 69 |tement 0| 1 looki|
|00003f60| 6e 67 2d 61 74 20 63 6f | 6d 6d 65 6e 74 2d 6c 69 |ng-at co|mment-li|
|00003f70| 6e 65 2d 73 74 61 72 74 | 2d 73 6b 69 70 20 22 5b |ne-start|-skip "[|
|00003f80| 20 09 5d 2a 24 22 20 22 | 20 20 20 20 20 5b 5e 20 | .]*$" "| [^ |
|00003f90| 30 5c 6e 5d 22 20 22 09 | 5b 31 2d 39 5d 22 20 22 |0\n]" ".|[1-9]" "|
|00003fa0| 5b 20 09 5d 2a 22 20 63 | 6f 6d 6d 65 6e 74 2d 73 |[ .]*" c|omment-s|
|00003fb0| 74 61 72 74 2d 73 6b 69 | 70 20 6c 61 73 74 2d 73 |tart-ski|p last-s|
|00003fc0| 74 61 74 65 6d 65 6e 74 | 5d 20 33 20 22 5c 0a 4d |tatement|] 3 "\.M|
|00003fd0| 6f 76 65 73 20 70 6f 69 | 6e 74 20 74 6f 20 62 65 |oves poi|nt to be|
|00003fe0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 6e |ginning |of the n|
|00003ff0| 65 78 74 20 66 6f 72 74 | 72 61 6e 20 73 74 61 74 |ext fort|ran stat|
|00004000| 65 6d 65 6e 74 2e 0a 52 | 65 74 75 72 6e 73 20 60 |ement..R|eturns `|
|00004010| 6c 61 73 74 2d 73 74 61 | 74 65 6d 65 6e 74 27 20 |last-sta|tement' |
|00004020| 69 66 20 74 68 61 74 20 | 73 74 61 74 65 6d 65 6e |if that |statemen|
|00004030| 74 20 69 73 20 74 68 65 | 20 6c 61 73 74 0a 6e 6f |t is the| last.no|
|00004040| 6e 2d 63 6f 6d 6d 65 6e | 74 20 46 6f 72 74 72 61 |n-commen|t Fortra|
|00004050| 6e 20 73 74 61 74 65 6d | 65 6e 74 20 69 6e 20 74 |n statem|ent in t|
|00004060| 68 65 20 66 69 6c 65 2c | 20 61 6e 64 20 6e 69 6c |he file,| and nil|
|00004070| 20 6f 74 68 65 72 77 69 | 73 65 2e 22 20 6e 69 6c | otherwi|se." nil|
|00004080| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|00004090| 6e 2d 62 6c 69 6e 6b 2d | 6d 61 74 63 68 69 6e 67 |n-blink-|matching|
|000040a0| 2d 69 66 20 23 5b 6e 69 | 6c 20 22 c0 c1 20 c2 60 |-if #[ni|l ".. .`|
|000040b0| c2 1b 1c 1d 1e 06 1e 07 | 8a c8 79 88 c9 c2 77 88 |........|..y...w.|
|000040c0| ca cb 21 29 85 a7 00 8a | 0e 07 c8 55 ac d1 cc 20 |..!)....|...U... |
|000040d0| cd 3d ac cb ca ce 21 ac | c6 c9 c2 77 88 ca cf 21 |.=....!.|...w...!|
|000040e0| ab af 8a ca d0 21 ac a0 | c2 1e 11 c0 79 c8 55 ab |.....!..|....y.U.|
|000040f0| 92 ca d2 21 ac 85 ca d3 | 21 ab 88 ca d4 21 89 16 |...!....|!....!..|
|00004100| 11 ab 68 0e 11 29 ab 86 | 0e 07 c0 5a 16 07 29 aa |..h..)..|...Z..).|
|00004110| 37 ca cb 21 ab 32 0e 07 | c0 5c 5c 89 16 07 aa 2b |7..!.2..|.\\....+|
|00004120| 0e 07 c8 55 ac 84 d5 13 | aa 96 60 0e 06 57 ab 8e |...U....|..`..W..|
|00004130| d6 c8 79 88 60 c2 7f 88 | 60 7b 50 13 aa 82 60 15 |..y.`...|`{P...`.|
|00004140| 29 0b ab 86 c3 d7 0b 5c | 22 aa 89 0d 62 88 d8 c0 |)......\|"...b...|
|00004150| 21 88 0c 62 2d 87 22 20 | 5b 31 20 77 69 6e 64 6f |!..b-." |[1 windo|
|00004160| 77 2d 73 74 61 72 74 20 | 6e 69 6c 20 6d 65 73 73 |w-start |nil mess|
|00004170| 61 67 65 20 65 6e 64 69 | 66 2d 70 6f 69 6e 74 20 |age endi|f-point |
|00004180| 6d 61 74 63 68 69 6e 67 | 2d 69 66 20 74 6f 70 2d |matching|-if top-|
|00004190| 6f 66 2d 77 69 6e 64 6f | 77 20 63 6f 75 6e 74 20 |of-windo|w count |
|000041a0| 30 20 22 20 09 30 2d 39 | 22 20 6c 6f 6f 6b 69 6e |0 " .0-9|" lookin|
|000041b0| 67 2d 61 74 20 22 65 6e | 64 5b 20 09 5d 2a 69 66 |g-at "en|d[ .]*if|
|000041c0| 5c 5c 62 22 20 66 6f 72 | 74 72 61 6e 2d 70 72 65 |\\b" for|tran-pre|
|000041d0| 76 69 6f 75 73 2d 73 74 | 61 74 65 6d 65 6e 74 20 |vious-st|atement |
|000041e0| 66 69 72 73 74 2d 73 74 | 61 74 65 6d 65 6e 74 20 |first-st|atement |
|000041f0| 22 5e 5b 20 09 30 2d 39 | 5d 2a 65 6e 64 5c 5c 62 |"^[ .0-9|]*end\\b|
|00004200| 5b 20 09 5d 2a 5b 5e 20 | 09 3d 28 61 2d 7a 5d 22 |[ .]*[^ |.=(a-z]"|
|00004210| 20 22 69 66 5b 20 09 5d | 2a 28 22 20 22 2e 2a 29 | "if[ .]|*(" ".*)|
|00004220| 5b 20 09 5d 2a 74 68 65 | 6e 5c 5c 62 5b 20 09 5d |[ .]*the|n\\b[ .]|
|00004230| 2a 5b 5e 20 09 28 3d 61 | 2d 7a 30 2d 39 5d 22 20 |*[^ .(=a|-z0-9]" |
|00004240| 74 68 65 6e 2d 74 65 73 | 74 20 22 20 20 20 20 20 |then-tes|t " |
|00004250| 5b 5e 20 30 5c 6e 5d 22 | 20 22 09 5b 31 2d 39 5d |[^ 0\n]"| ".[1-9]|
|00004260| 22 20 22 2e 2a 74 68 65 | 6e 5c 5c 62 5b 20 09 5d |" ".*the|n\\b[ .]|
|00004270| 2a 5b 5e 20 09 28 3d 61 | 2d 7a 30 2d 39 5d 22 20 |*[^ .(=a|-z0-9]" |
|00004280| 22 4e 6f 20 6d 61 74 63 | 68 69 6e 67 20 69 66 2e |"No matc|hing if.|
|00004290| 22 20 22 4d 61 74 63 68 | 65 73 20 22 20 22 25 73 |" "Match|es " "%s|
|000042a0| 22 20 73 69 74 2d 66 6f | 72 5d 20 36 20 22 5c 0a |" sit-fo|r] 6 "\.|
|000042b0| 46 72 6f 6d 20 61 20 66 | 6f 72 74 72 61 6e 20 60 |From a f|ortran `|
|000042c0| 65 6e 64 69 66 27 20 73 | 74 61 74 65 6d 65 6e 74 |endif' s|tatement|
|000042d0| 2c 20 62 6c 69 6e 6b 20 | 74 68 65 20 6d 61 74 63 |, blink |the matc|
|000042e0| 68 69 6e 67 20 60 69 66 | 27 20 73 74 61 74 65 6d |hing `if|' statem|
|000042f0| 65 6e 74 2e 22 5d 29 0a | 28 66 73 65 74 20 27 66 |ent."]).|(fset 'f|
|00004300| 6f 72 74 72 61 6e 2d 69 | 6e 64 65 6e 74 2d 6c 69 |ortran-i|ndent-li|
|00004310| 6e 65 20 23 5b 6e 69 6c | 20 22 c0 20 19 8a c2 79 |ne #[nil| ". ...y|
|00004320| 88 09 c3 20 55 ab 8d c4 | c5 60 c6 5c 5c c7 23 ab |... U...|.`.\\.#.|
|00004330| 8a c8 20 ac 86 c9 09 21 | 88 aa 90 c2 79 88 ca 0e |.. ....!|....y...|
|00004340| 0b 21 ac 87 cc 20 ab 83 | cd 20 88 29 69 09 57 ab |.!... ..|. .)i.W.|
|00004350| 84 ce 09 21 88 0e 0f ab | 93 8a d0 7f 88 69 29 0e |...!....|.....i).|
|00004360| 11 56 ab 88 8a d0 7f 88 | d2 20 88 29 0e 13 ad 82 |.V......|. .)....|
|00004370| d3 20 29 87 22 20 5b 63 | 61 6c 63 75 6c 61 74 65 |. )." [c|alculate|
|00004380| 2d 66 6f 72 74 72 61 6e | 2d 69 6e 64 65 6e 74 20 |-fortran|-indent |
|00004390| 63 66 69 20 30 20 66 6f | 72 74 72 61 6e 2d 63 75 |cfi 0 fo|rtran-cu|
|000043a0| 72 72 65 6e 74 2d 6c 69 | 6e 65 2d 69 6e 64 65 6e |rrent-li|ne-inden|
|000043b0| 74 61 74 69 6f 6e 20 72 | 65 2d 73 65 61 72 63 68 |tation r|e-search|
|000043c0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 5b 20 09 5d 2a |-forward| "^[ .]*|
|000043d0| 5b 30 2d 39 5d 2b 22 20 | 34 20 74 20 66 6f 72 74 |[0-9]+" |4 t fort|
|000043e0| 72 61 6e 2d 6c 69 6e 65 | 2d 6e 75 6d 62 65 72 2d |ran-line|-number-|
|000043f0| 69 6e 64 65 6e 74 65 64 | 2d 63 6f 72 72 65 63 74 |indented|-correct|
|00004400| 6c 79 2d 70 20 66 6f 72 | 74 72 61 6e 2d 69 6e 64 |ly-p for|tran-ind|
|00004410| 65 6e 74 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 20 6c 6f |ent-to-c|olumn lo|
|00004420| 6f 6b 69 6e 67 2d 61 74 | 20 63 6f 6d 6d 65 6e 74 |oking-at| comment|
|00004430| 2d 6c 69 6e 65 2d 73 74 | 61 72 74 2d 73 6b 69 70 |-line-st|art-skip|
|00004440| 20 66 69 6e 64 2d 63 6f | 6d 6d 65 6e 74 2d 73 74 | find-co|mment-st|
|00004450| 61 72 74 2d 73 6b 69 70 | 20 66 6f 72 74 72 61 6e |art-skip| fortran|
|00004460| 2d 69 6e 64 65 6e 74 2d | 63 6f 6d 6d 65 6e 74 20 |-indent-|comment |
|00004470| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 61 |move-to-|column a|
|00004480| 75 74 6f 2d 66 69 6c 6c | 2d 68 6f 6f 6b 20 6e 69 |uto-fill|-hook ni|
|00004490| 6c 20 66 69 6c 6c 2d 63 | 6f 6c 75 6d 6e 20 66 6f |l fill-c|olumn fo|
|000044a0| 72 74 72 61 6e 2d 64 6f | 2d 61 75 74 6f 2d 66 69 |rtran-do|-auto-fi|
|000044b0| 6c 6c 20 66 6f 72 74 72 | 61 6e 2d 62 6c 69 6e 6b |ll fortr|an-blink|
|000044c0| 2d 6d 61 74 63 68 69 6e | 67 2d 69 66 5d 20 34 20 |-matchin|g-if] 4 |
|000044d0| 22 5c 0a 49 6e 64 65 6e | 74 73 20 63 75 72 72 65 |"\.Inden|ts curre|
|000044e0| 6e 74 20 66 6f 72 74 72 | 61 6e 20 6c 69 6e 65 20 |nt fortr|an line |
|000044f0| 62 61 73 65 64 20 6f 6e | 20 69 74 73 20 63 6f 6e |based on| its con|
|00004500| 74 65 6e 74 73 20 61 6e | 64 20 6f 6e 20 70 72 65 |tents an|d on pre|
|00004510| 76 69 6f 75 73 20 6c 69 | 6e 65 73 2e 22 20 6e 69 |vious li|nes." ni|
|00004520| 6c 5d 29 0a 28 66 73 65 | 74 20 27 66 6f 72 74 72 |l]).(fse|t 'fortr|
|00004530| 61 6e 2d 72 65 69 6e 64 | 65 6e 74 2d 74 68 65 6e |an-reind|ent-then|
|00004540| 2d 6e 65 77 6c 69 6e 65 | 2d 61 6e 64 2d 69 6e 64 |-newline|-and-ind|
|00004550| 65 6e 74 20 23 5b 6e 69 | 6c 20 22 08 ab 83 c1 20 |ent #[ni|l ".... |
|00004560| 88 8a c2 79 88 c3 c4 77 | 88 c5 c6 21 ac 92 c5 c7 |...y...w|...!....|
|00004570| 21 ac 8d c5 c8 21 ac 88 | c5 c9 0e 5c 6e 21 21 ab |!....!..|...\n!!.|
|00004580| 83 cb 20 88 29 cc 20 88 | cb 20 87 22 20 5b 61 62 |.. .). .|. ." [ab|
|00004590| 62 72 65 76 2d 6d 6f 64 | 65 20 65 78 70 61 6e 64 |brev-mod|e expand|
|000045a0| 2d 61 62 62 72 65 76 20 | 30 20 22 20 09 22 20 6e |-abbrev |0 " ." n|
|000045b0| 69 6c 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5b |il looki|ng-at "[|
|000045c0| 30 2d 39 5d 22 20 22 65 | 6e 64 22 20 22 65 6c 73 |0-9]" "e|nd" "els|
|000045d0| 65 22 20 72 65 67 65 78 | 70 2d 71 75 6f 74 65 20 |e" regex|p-quote |
|000045e0| 66 6f 72 74 72 61 6e 2d | 63 6f 6e 74 69 6e 75 61 |fortran-|continua|
|000045f0| 74 69 6f 6e 2d 73 74 72 | 69 6e 67 20 66 6f 72 74 |tion-str|ing fort|
|00004600| 72 61 6e 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |ran-inde|nt-line |
|00004610| 6e 65 77 6c 69 6e 65 5d | 20 33 20 22 5c 0a 52 65 |newline]| 3 "\.Re|
|00004620| 69 6e 64 65 6e 74 20 74 | 68 65 20 63 75 72 72 65 |indent t|he curre|
|00004630| 6e 74 20 66 6f 72 74 72 | 61 6e 20 6c 69 6e 65 2c |nt fortr|an line,|
|00004640| 20 69 6e 73 65 72 74 20 | 61 20 6e 65 77 6c 69 6e | insert |a newlin|
|00004650| 65 20 61 6e 64 20 69 6e | 64 65 6e 74 20 74 68 65 |e and in|dent the|
|00004660| 20 6e 65 77 6c 69 6e 65 | 2e 0a 41 6e 20 61 62 62 | newline|..An abb|
|00004670| 72 65 76 20 62 65 66 6f | 72 65 20 70 6f 69 6e 74 |rev befo|re point|
|00004680| 20 69 73 20 65 78 70 61 | 6e 64 65 64 20 69 66 20 | is expa|nded if |
|00004690| 61 62 62 72 65 76 2d 6d | 6f 64 65 20 69 73 20 6e |abbrev-m|ode is n|
|000046a0| 6f 6e 2d 6e 69 6c 2e 22 | 20 6e 69 6c 5d 29 0a 28 |on-nil."| nil]).(|
|000046b0| 66 73 65 74 20 27 66 6f | 72 74 72 61 6e 2d 69 6e |fset 'fo|rtran-in|
|000046c0| 64 65 6e 74 2d 73 75 62 | 70 72 6f 67 72 61 6d 20 |dent-sub|program |
|000046d0| 23 5b 6e 69 6c 20 22 8a | c0 20 88 c1 c2 21 88 c3 |#[nil ".|. ...!..|
|000046e0| 60 c4 20 c5 23 88 29 c1 | c6 21 87 22 20 5b 6d 61 |`. .#.).|.!." [ma|
|000046f0| 72 6b 2d 66 6f 72 74 72 | 61 6e 2d 73 75 62 70 72 |rk-fortr|an-subpr|
|00004700| 6f 67 72 61 6d 20 6d 65 | 73 73 61 67 65 20 22 49 |ogram me|ssage "I|
|00004710| 6e 64 65 6e 74 69 6e 67 | 20 73 75 62 70 72 6f 67 |ndenting| subprog|
|00004720| 72 61 6d 2e 2e 2e 22 20 | 69 6e 64 65 6e 74 2d 72 |ram..." |indent-r|
|00004730| 65 67 69 6f 6e 20 6d 61 | 72 6b 20 6e 69 6c 20 22 |egion ma|rk nil "|
|00004740| 49 6e 64 65 6e 74 69 6e | 67 20 73 75 62 70 72 6f |Indentin|g subpro|
|00004750| 67 72 61 6d 2e 2e 2e 64 | 6f 6e 65 2e 22 5d 20 34 |gram...d|one."] 4|
|00004760| 20 22 5c 0a 50 72 6f 70 | 65 72 6c 79 20 69 6e 64 | "\.Prop|erly ind|
|00004770| 65 6e 74 73 20 74 68 65 | 20 46 6f 72 74 72 61 6e |ents the| Fortran|
|00004780| 20 73 75 62 70 72 6f 67 | 72 61 6d 20 77 68 69 63 | subprog|ram whic|
|00004790| 68 20 63 6f 6e 74 61 69 | 6e 73 20 70 6f 69 6e 74 |h contai|ns point|
|000047a0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|000047b0| 63 61 6c 63 75 6c 61 74 | 65 2d 66 6f 72 74 72 61 |calculat|e-fortra|
|000047c0| 6e 2d 69 6e 64 65 6e 74 | 20 23 5b 6e 69 6c 20 22 |n-indent| #[nil "|
|000047d0| c0 89 c1 5c 6e 1a 1b 1c | 1d 8a c6 20 89 14 ab 85 |...\n...|... ....|
|000047e0| 5c 6e 15 82 98 00 60 65 | 55 ab 84 5c 6e 15 aa 83 |\n....`e|U..\n...|
|000047f0| c7 20 15 c8 c0 77 88 c9 | ca 21 ab ac c9 cb 21 ac |. ...w..|.!....!.|
|00004800| a0 c0 1e 0c cd 79 ce 55 | ab 92 c9 cf 21 ac 85 c9 |.....y.U|....!...|
|00004810| d0 21 ab 88 c9 d1 21 89 | 16 0c ab 68 0e 0c 29 ab |.!....!.|...h..).|
|00004820| ca 0d 0e 12 5c 5c 15 aa | c3 c9 d3 21 ab 87 0d 0e |....\\..|...!....|
|00004830| 12 5c 5c 15 aa b7 c9 d4 | 21 ab 87 0d 0e 12 5c 5c |.\\.....|!.....\\|
|00004840| 15 aa ab c9 d5 21 ab 87 | 0d 0e 12 5c 5c 15 aa 9f |.....!..|...\\...|
|00004850| c9 d6 21 ab 87 0d 0e 17 | 5c 5c 15 aa 93 c9 d8 21 |..!.....|\\.....!|
|00004860| ab 87 0d 0e 19 5c 5c 15 | aa 87 c9 da 21 ab 82 5c |.....\\.|....!..\|
|00004870| 6e 15 29 8a ce 79 88 c9 | db 21 84 64 01 c9 0e 1c |n.)..y..|.!.d....|
|00004880| 21 ab 9d 0e 1d de 3d ab | 87 0d 0e 1f 5c 5c 15 aa |!.....=.|....\\..|
|00004890| 8b 0e 1d e0 3d ab 85 5c | 6e 0e 1f 5c 5c 15 ce 12 |....=..\|n..\\...|
|000048a0| 82 64 01 c9 e1 e2 0e 23 | 21 50 21 ac 8a c9 cf 21 |.d.....#|!P!....!|
|000048b0| ac 85 c9 d0 21 ab 88 0d | 0e 24 5c 5c 15 82 64 01 |....!...|.$\\..d.|
|000048c0| 0c ac ff 0e 25 ab 90 c9 | e6 21 ab 8b e7 20 ab 87 |....%...|.!... ..|
|000048d0| 0d 0e 17 5a 15 aa eb c8 | c0 77 88 c9 e8 21 ab 87 |...Z....|.w...!..|
|000048e0| 0d 0e 12 5a 15 aa db c9 | d3 21 ab 87 0d 0e 12 5a |...Z....|.!.....Z|
|000048f0| 15 aa cf c9 d4 21 ab 87 | 0d 0e 12 5a 15 aa c3 c9 |.....!..|...Z....|
|00004900| e9 21 ab 87 0d 0e 12 5a | 15 aa b7 c9 ea 21 ab 8b |.!.....Z|.....!..|
|00004910| e7 20 ab 87 0d 0e 17 5a | 15 aa a7 c9 eb 21 ab 87 |. .....Z|.....!..|
|00004920| 0d 0e 17 5a 15 aa 9b c9 | ec 21 ab 87 0d 0e 19 5a |...Z....|.!.....Z|
|00004930| 15 aa 8f c9 da 21 ab 8a | 0d 5c 6e 55 ac 85 ed ee |.....!..|.\nU....|
|00004940| 5c 6e 5c 22 88 29 5c 6e | 0d 5d 2c 87 22 20 5b 6e |\n\".)\n|.],." [n|
|00004950| 69 6c 20 74 20 66 6f 72 | 74 72 61 6e 2d 6d 69 6e |il t for|tran-min|
|00004960| 69 6d 75 6d 2d 73 74 61 | 74 65 6d 65 6e 74 2d 69 |imum-sta|tement-i|
|00004970| 6e 64 65 6e 74 20 63 61 | 73 65 2d 66 6f 6c 64 2d |ndent ca|se-fold-|
|00004980| 73 65 61 72 63 68 20 66 | 69 72 73 74 2d 73 74 61 |search f|irst-sta|
|00004990| 74 65 6d 65 6e 74 20 69 | 63 6f 6c 20 66 6f 72 74 |tement i|col fort|
|000049a0| 72 61 6e 2d 70 72 65 76 | 69 6f 75 73 2d 73 74 61 |ran-prev|ious-sta|
|000049b0| 74 65 6d 65 6e 74 20 66 | 6f 72 74 72 61 6e 2d 63 |tement f|ortran-c|
|000049c0| 75 72 72 65 6e 74 2d 6c | 69 6e 65 2d 69 6e 64 65 |urrent-l|ine-inde|
|000049d0| 6e 74 61 74 69 6f 6e 20 | 22 20 09 30 2d 39 22 20 |ntation |" .0-9" |
|000049e0| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 69 66 5b 20 |looking-|at "if[ |
|000049f0| 09 5d 2a 28 22 20 22 2e | 2a 29 5b 20 09 5d 2a 74 |.]*(" ".|*)[ .]*t|
|00004a00| 68 65 6e 5c 5c 62 5b 20 | 09 5d 2a 5b 5e 20 09 5f |hen\\b[ |.]*[^ ._|
|00004a10| 24 28 3d 61 2d 7a 30 2d | 39 5d 22 20 74 68 65 6e |$(=a-z0-|9]" then|
|00004a20| 2d 74 65 73 74 20 31 20 | 30 20 22 20 20 20 20 20 |-test 1 |0 " |
|00004a30| 5b 5e 20 30 5c 6e 5d 22 | 20 22 09 5b 31 2d 39 5d |[^ 0\n]"| ".[1-9]|
|00004a40| 22 20 22 2e 2a 74 68 65 | 6e 5c 5c 62 5b 20 09 5d |" ".*the|n\\b[ .]|
|00004a50| 2a 5b 5e 20 09 5f 24 28 | 3d 61 2d 7a 30 2d 39 5d |*[^ ._$(|=a-z0-9]|
|00004a60| 22 20 66 6f 72 74 72 61 | 6e 2d 69 66 2d 69 6e 64 |" fortra|n-if-ind|
|00004a70| 65 6e 74 20 22 5c 5c 28 | 65 6c 73 65 5c 5c 7c 65 |ent "\\(|else\\|e|
|00004a80| 6c 73 65 69 66 5c 5c 29 | 5c 5c 62 22 20 22 5c 5c |lseif\\)|\\b" "\\|
|00004a90| 28 6f 74 68 65 72 77 69 | 73 65 5c 5c 7c 65 6c 73 |(otherwi|se\\|els|
|00004aa0| 65 5b 20 09 5d 2a 77 68 | 65 72 65 5c 5c 29 5c 5c |e[ .]*wh|ere\\)\\|
|00004ab0| 62 22 20 22 77 68 65 72 | 65 2e 2a 28 2e 2a 29 5b |b" "wher|e.*(.*)[|
|00004ac0| 20 09 5d 2a 5c 6e 22 20 | 22 64 6f 5c 5c 62 22 20 | .]*\n" |"do\\b" |
|00004ad0| 66 6f 72 74 72 61 6e 2d | 64 6f 2d 69 6e 64 65 6e |fortran-|do-inden|
|00004ae0| 74 20 22 5c 5c 28 73 74 | 72 75 63 74 75 72 65 5c |t "\\(st|ructure\|
|00004af0| 5c 7c 75 6e 69 6f 6e 5c | 5c 7c 6d 61 70 5c 5c 29 |\|union\|\|map\\)|
|00004b00| 5c 5c 62 5b 20 09 5d 2a | 5b 5e 20 09 3d 28 61 2d |\\b[ .]*|[^ .=(a-|
|00004b10| 7a 5d 22 20 66 6f 72 74 | 72 61 6e 2d 73 74 72 75 |z]" fort|ran-stru|
|00004b20| 63 74 75 72 65 2d 69 6e | 64 65 6e 74 20 22 65 6e |cture-in|dent "en|
|00004b30| 64 5c 5c 62 5b 20 09 5d | 2a 5b 5e 20 09 3d 28 61 |d\\b[ .]|*[^ .=(a|
|00004b40| 2d 7a 5d 22 20 22 5b 20 | 09 5d 2a 24 22 20 63 6f |-z]" "[ |.]*$" co|
|00004b50| 6d 6d 65 6e 74 2d 6c 69 | 6e 65 2d 73 74 61 72 74 |mment-li|ne-start|
|00004b60| 2d 73 6b 69 70 20 66 6f | 72 74 72 61 6e 2d 63 6f |-skip fo|rtran-co|
|00004b70| 6d 6d 65 6e 74 2d 69 6e | 64 65 6e 74 2d 73 74 79 |mment-in|dent-sty|
|00004b80| 6c 65 20 72 65 6c 61 74 | 69 76 65 20 66 6f 72 74 |le relat|ive fort|
|00004b90| 72 61 6e 2d 63 6f 6d 6d | 65 6e 74 2d 6c 69 6e 65 |ran-comm|ent-line|
|00004ba0| 2d 63 6f 6c 75 6d 6e 20 | 66 69 78 65 64 20 22 5b |-column |fixed "[|
|00004bb0| 20 09 5d 2a 22 20 72 65 | 67 65 78 70 2d 71 75 6f | .]*" re|gexp-quo|
|00004bc0| 74 65 20 66 6f 72 74 72 | 61 6e 2d 63 6f 6e 74 69 |te fortr|an-conti|
|00004bd0| 6e 75 61 74 69 6f 6e 2d | 73 74 72 69 6e 67 20 66 |nuation-|string f|
|00004be0| 6f 72 74 72 61 6e 2d 63 | 6f 6e 74 69 6e 75 61 74 |ortran-c|ontinuat|
|00004bf0| 69 6f 6e 2d 69 6e 64 65 | 6e 74 20 66 6f 72 74 72 |ion-inde|nt fortr|
|00004c00| 61 6e 2d 63 68 65 63 6b | 2d 61 6c 6c 2d 6e 75 6d |an-check|-all-num|
|00004c10| 2d 66 6f 72 2d 6d 61 74 | 63 68 69 6e 67 2d 64 6f |-for-mat|ching-do|
|00004c20| 20 22 5b 20 09 5d 2a 5b | 30 2d 39 5d 2b 22 20 66 | "[ .]*[|0-9]+" f|
|00004c30| 6f 72 74 72 61 6e 2d 63 | 68 65 63 6b 2d 66 6f 72 |ortran-c|heck-for|
|00004c40| 2d 6d 61 74 63 68 69 6e | 67 2d 64 6f 20 22 65 6e |-matchin|g-do "en|
|00004c50| 64 5b 20 09 5d 2a 69 66 | 5c 5c 62 22 20 22 65 6e |d[ .]*if|\\b" "en|
|00004c60| 64 5b 20 09 5d 2a 77 68 | 65 72 65 5c 5c 62 22 20 |d[ .]*wh|ere\\b" |
|00004c70| 22 63 6f 6e 74 69 6e 75 | 65 5c 5c 62 22 20 22 65 |"continu|e\\b" "e|
|00004c80| 6e 64 5b 20 09 5d 2a 64 | 6f 5c 5c 62 22 20 22 65 |nd[ .]*d|o\\b" "e|
|00004c90| 6e 64 5b 20 09 5d 2a 5c | 5c 28 73 74 72 75 63 74 |nd[ .]*\|\(struct|
|00004ca0| 75 72 65 5c 5c 7c 75 6e | 69 6f 6e 5c 5c 7c 6d 61 |ure\\|un|ion\\|ma|
|00004cb0| 70 5c 5c 29 5c 5c 62 5b | 20 09 5d 2a 5b 5e 20 09 |p\\)\\b[| .]*[^ .|
|00004cc0| 3d 28 61 2d 7a 5d 22 20 | 6d 65 73 73 61 67 65 20 |=(a-z]" |message |
|00004cd0| 22 57 61 72 6e 69 6e 67 | 3a 20 60 65 6e 64 27 20 |"Warning|: `end' |
|00004ce0| 6e 6f 74 20 69 6e 20 63 | 6f 6c 75 6d 6e 20 25 64 |not in c|olumn %d|
|00004cf0| 2e 20 20 50 72 6f 62 61 | 62 6c 79 20 61 6e 20 75 |. Proba|bly an u|
|00004d00| 6e 63 6c 6f 73 65 64 20 | 62 6c 6f 63 6b 2e 22 5d |nclosed |block."]|
|00004d10| 20 35 20 22 5c 0a 43 61 | 6c 63 75 6c 61 74 65 73 | 5 "\.Ca|lculates|
|00004d20| 20 74 68 65 20 66 6f 72 | 74 72 61 6e 20 69 6e 64 | the for|tran ind|
|00004d30| 65 6e 74 20 63 6f 6c 75 | 6d 6e 20 62 61 73 65 64 |ent colu|mn based|
|00004d40| 20 6f 6e 20 70 72 65 76 | 69 6f 75 73 20 6c 69 6e | on prev|ious lin|
|00004d50| 65 73 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 66 6f |es."]).(|fset 'fo|
|00004d60| 72 74 72 61 6e 2d 63 75 | 72 72 65 6e 74 2d 6c 69 |rtran-cu|rrent-li|
|00004d70| 6e 65 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 23 |ne-inden|tation #|
|00004d80| 5b 6e 69 6c 20 22 8a c0 | 79 88 c1 5c 6e 21 ab 93 |[nil "..|y..\n!..|
|00004d90| c0 95 62 88 0b 3b ab 83 | 0b aa 83 c4 0b 21 c5 77 |..b..;..|.....!.w|
|00004da0| 88 aa 94 c1 c6 21 ac 85 | c1 c7 21 ab 86 c0 95 62 |.....!..|..!....b|
|00004db0| 88 aa 84 c8 c5 77 88 c9 | c5 77 88 69 29 87 22 20 |.....w..|.w.i)." |
|00004dc0| 5b 30 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 63 6f |[0 looki|ng-at co|
|00004dd0| 6d 6d 65 6e 74 2d 6c 69 | 6e 65 2d 73 74 61 72 74 |mment-li|ne-start|
|00004de0| 2d 73 6b 69 70 20 66 6f | 72 74 72 61 6e 2d 63 6f |-skip fo|rtran-co|
|00004df0| 6d 6d 65 6e 74 2d 69 6e | 64 65 6e 74 2d 63 68 61 |mment-in|dent-cha|
|00004e00| 72 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |r char-t|o-string|
|00004e10| 20 6e 69 6c 20 22 20 20 | 20 20 20 5b 5e 20 30 5c | nil " | [^ 0\|
|00004e20| 6e 5d 22 20 22 09 5b 31 | 2d 39 5d 22 20 22 5b 20 |n]" ".[1|-9]" "[ |
|00004e30| 09 30 2d 39 5d 22 20 22 | 20 09 22 5d 20 32 20 22 |.0-9]" "| ."] 2 "|
|00004e40| 5c 0a 49 6e 64 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |\.Indent|ation of|
|00004e50| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 2c 20 69 | current| line, i|
|00004e60| 67 6e 6f 72 69 6e 67 20 | 46 6f 72 74 72 61 6e 20 |gnoring |Fortran |
|00004e70| 6c 69 6e 65 20 6e 75 6d | 62 65 72 20 6f 72 20 63 |line num|ber or c|
|00004e80| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 2e 0a 54 68 69 |ontinuat|ion..Thi|
|00004e90| 73 20 69 73 20 74 68 65 | 20 63 6f 6c 75 6d 6e 20 |s is the| column |
|00004ea0| 70 6f 73 69 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |position| of the |
|00004eb0| 66 69 72 73 74 20 6e 6f | 6e 2d 77 68 69 74 65 73 |first no|n-whites|
|00004ec0| 70 61 63 65 20 63 68 61 | 72 61 63 74 65 72 0a 61 |pace cha|racter.a|
|00004ed0| 73 69 64 65 20 66 72 6f | 6d 20 74 68 65 20 6c 69 |side fro|m the li|
|00004ee0| 6e 65 20 6e 75 6d 62 65 | 72 20 61 6e 64 2f 6f 72 |ne numbe|r and/or|
|00004ef0| 20 63 6f 6c 75 6d 6e 20 | 35 2f 38 20 6c 69 6e 65 | column |5/8 line|
|00004f00| 2d 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 20 63 68 |-continu|ation ch|
|00004f10| 61 72 61 63 74 65 72 2e | 0a 46 6f 72 20 63 6f 6d |aracter.|.For com|
|00004f20| 6d 65 6e 74 20 6c 69 6e | 65 73 2c 20 72 65 74 75 |ment lin|es, retu|
|00004f30| 72 6e 73 20 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |rns inde|ntation |
|00004f40| 6f 66 20 74 68 65 20 66 | 69 72 73 74 0a 6e 6f 6e |of the f|irst.non|
|00004f50| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 74 65 78 |-indenta|tion tex|
|00004f60| 74 20 77 69 74 68 69 6e | 20 74 68 65 20 63 6f 6d |t within| the com|
|00004f70| 6d 65 6e 74 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ment."])|.(fset '|
|00004f80| 66 6f 72 74 72 61 6e 2d | 69 6e 64 65 6e 74 2d 74 |fortran-|indent-t|
|00004f90| 6f 2d 63 6f 6c 75 6d 6e | 20 23 5b 28 63 6f 6c 29 |o-column| #[(col)|
|00004fa0| 20 22 8a c0 79 88 c1 5c | 6e 21 ab a6 0b 85 d6 00 | "..y..\|n!......|
|00004fb0| 0c 3b ab 85 0c c0 48 aa | 81 0c 1d c0 95 62 88 c6 |.;....H.|.....b..|
|00004fc0| c7 c8 0d 21 50 21 88 c9 | 0d 0e 5c 6e 69 5a 5c 22 |...!P!..|..\niZ\"|
|00004fd0| 29 82 d6 00 c1 cb 21 ab | 97 0e 0c ab 86 c0 95 62 |).....!.|.......b|
|00004fe0| 88 aa f8 cd ce 21 88 cf | 63 88 0e 10 63 88 aa eb |.....!..|c...c...|
|00004ff0| c1 d1 21 ab 98 0e 0c ab | 8f cd d2 21 88 d3 63 88 |..!.....|...!..c.|
|00005000| c9 d4 20 d5 5c 22 88 aa | d3 d2 75 88 aa ce d6 20 |.. .\"..|..u.... |
|00005010| 88 6d ac c8 c1 d7 0e 10 | 21 21 ab 9c 0e 0c ab 90 |.m......|!!......|
|00005020| 0e 18 6a 88 cd d5 21 88 | c9 d4 20 d5 5c 22 88 aa |..j...!.|.. .\"..|
|00005030| 83 d9 6a 88 d5 75 88 aa | a4 c1 da 21 ab 9f d9 c0 |..j..u..|...!....|
|00005040| 95 60 5a 5a 89 1e 1b c0 | 57 ab 86 dc dd 21 88 aa |.`ZZ....|W....!..|
|00005050| 87 0e 1e 0e 1b 5e 6a 88 | 29 df e0 77 88 d6 20 88 |.....^j.|)..w.. .|
|00005060| 0e 5c 6e 6a 88 0e 21 ad | 95 e2 20 ad 91 c0 94 62 |.\nj..!.|.. ....b|
|00005070| 88 69 e3 20 55 3f ad 86 | d6 20 88 e3 20 6a 29 87 |.i. U?..|. .. j).|
|00005080| 22 20 5b 30 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |" [0 loo|king-at |
|00005090| 63 6f 6d 6d 65 6e 74 2d | 6c 69 6e 65 2d 73 74 61 |comment-|line-sta|
|000050a0| 72 74 2d 73 6b 69 70 20 | 66 6f 72 74 72 61 6e 2d |rt-skip |fortran-|
|000050b0| 63 6f 6d 6d 65 6e 74 2d | 69 6e 64 65 6e 74 2d 73 |comment-|indent-s|
|000050c0| 74 79 6c 65 20 66 6f 72 | 74 72 61 6e 2d 63 6f 6d |tyle for|tran-com|
|000050d0| 6d 65 6e 74 2d 69 6e 64 | 65 6e 74 2d 63 68 61 72 |ment-ind|ent-char|
|000050e0| 20 63 68 61 72 20 64 65 | 6c 65 74 65 2d 68 6f 72 | char de|lete-hor|
|000050f0| 69 7a 6f 6e 74 61 6c 2d | 72 65 67 65 78 70 20 22 |izontal-|regexp "|
|00005100| 20 09 22 20 63 68 61 72 | 2d 74 6f 2d 73 74 72 69 | ." char|-to-stri|
|00005110| 6e 67 20 69 6e 73 65 72 | 74 2d 63 68 61 72 20 63 |ng inser|t-char c|
|00005120| 6f 6c 20 22 09 5b 31 2d | 39 5d 22 20 66 6f 72 74 |ol ".[1-|9]" fort|
|00005130| 72 61 6e 2d 74 61 62 2d | 6d 6f 64 65 20 64 65 6c |ran-tab-|mode del|
|00005140| 65 74 65 2d 63 68 61 72 | 20 32 20 22 20 20 20 20 |ete-char| 2 " |
|00005150| 20 22 20 66 6f 72 74 72 | 61 6e 2d 63 6f 6e 74 69 | " fortr|an-conti|
|00005160| 6e 75 61 74 69 6f 6e 2d | 73 74 72 69 6e 67 20 22 |nuation-|string "|
|00005170| 20 20 20 20 20 5b 5e 20 | 30 5c 6e 5d 22 20 36 20 | [^ |0\n]" 6 |
|00005180| 22 09 22 20 66 6f 72 74 | 72 61 6e 2d 6e 75 6d 65 |"." fort|ran-nume|
|00005190| 72 69 63 61 6c 2d 63 6f | 6e 74 69 6e 75 61 74 69 |rical-co|ntinuati|
|000051a0| 6f 6e 2d 63 68 61 72 20 | 31 20 64 65 6c 65 74 65 |on-char |1 delete|
|000051b0| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 2d 73 70 61 63 |-horizon|tal-spac|
|000051c0| 65 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 66 |e regexp|-quote f|
|000051d0| 6f 72 74 72 61 6e 2d 6d | 69 6e 69 6d 75 6d 2d 73 |ortran-m|inimum-s|
|000051e0| 74 61 74 65 6d 65 6e 74 | 2d 69 6e 64 65 6e 74 20 |tatement|-indent |
|000051f0| 35 20 22 5b 30 2d 39 5d | 2b 22 20 65 78 74 72 61 |5 "[0-9]|+" extra|
|00005200| 2d 73 70 61 63 65 20 6d | 65 73 73 61 67 65 20 22 |-space m|essage "|
|00005210| 57 61 72 6e 69 6e 67 3a | 20 6c 69 6e 65 20 6e 75 |Warning:| line nu|
|00005220| 6d 62 65 72 20 65 78 63 | 65 65 64 73 20 35 2d 64 |mber exc|eeds 5-d|
|00005230| 69 67 69 74 20 6c 69 6d | 69 74 2e 22 20 66 6f 72 |igit lim|it." for|
|00005240| 74 72 61 6e 2d 6c 69 6e | 65 2d 6e 75 6d 62 65 72 |tran-lin|e-number|
|00005250| 2d 69 6e 64 65 6e 74 20 | 22 30 2d 39 22 20 6e 69 |-indent |"0-9" ni|
|00005260| 6c 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |l commen|t-start-|
|00005270| 73 6b 69 70 20 66 69 6e | 64 2d 63 6f 6d 6d 65 6e |skip fin|d-commen|
|00005280| 74 2d 73 74 61 72 74 2d | 73 6b 69 70 20 66 6f 72 |t-start-|skip for|
|00005290| 74 72 61 6e 2d 63 6f 6d | 6d 65 6e 74 2d 68 6f 6f |tran-com|ment-hoo|
|000052a0| 6b 5d 20 35 20 22 5c 0a | 49 6e 64 65 6e 74 73 20 |k] 5 "\.|Indents |
|000052b0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 77 69 74 |current |line wit|
|000052c0| 68 20 73 70 61 63 65 73 | 20 74 6f 20 63 6f 6c 75 |h spaces| to colu|
|000052d0| 6d 6e 20 43 4f 4c 2e 0a | 6e 6f 74 65 73 3a 20 31 |mn COL..|notes: 1|
|000052e0| 29 20 41 20 6e 6f 6e 2d | 7a 65 72 6f 2f 6e 6f 6e |) A non-|zero/non|
|000052f0| 2d 62 6c 61 6e 6b 20 63 | 68 61 72 61 63 74 65 72 |-blank c|haracter|
|00005300| 20 69 6e 20 63 6f 6c 75 | 6d 6e 20 35 20 69 6e 64 | in colu|mn 5 ind|
|00005310| 69 63 61 74 65 73 20 61 | 20 63 6f 6e 74 69 6e 75 |icates a| continu|
|00005320| 61 74 69 6f 6e 0a 20 20 | 20 20 20 20 20 20 20 20 |ation. | |
|00005330| 6c 69 6e 65 2c 20 61 6e | 64 20 74 68 69 73 20 63 |line, an|d this c|
|00005340| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 20 63 68 61 72 |ontinuat|ion char|
|00005350| 61 63 74 65 72 20 69 73 | 20 72 65 74 61 69 6e 65 |acter is| retaine|
|00005360| 64 20 6f 6e 20 69 6e 64 | 65 6e 74 61 74 69 6f 6e |d on ind|entation|
|00005370| 3b 0a 20 20 20 20 20 20 | 20 32 29 20 49 66 20 66 |;. | 2) If f|
|00005380| 6f 72 74 72 61 6e 2d 63 | 6f 6e 74 69 6e 75 61 74 |ortran-c|ontinuat|
|00005390| 69 6f 6e 2d 73 74 72 69 | 6e 67 20 69 73 20 74 68 |ion-stri|ng is th|
|000053a0| 65 20 66 69 72 73 74 20 | 6e 6f 6e 2d 77 68 69 74 |e first |non-whit|
|000053b0| 65 73 70 61 63 65 20 63 | 68 61 72 61 63 74 65 72 |espace c|haracter|
|000053c0| 2c 0a 20 20 20 20 20 20 | 20 20 20 20 74 68 69 73 |,. | this|
|000053d0| 20 69 73 20 61 20 63 6f | 6e 74 69 6e 75 61 74 69 | is a co|ntinuati|
|000053e0| 6f 6e 20 6c 69 6e 65 3b | 0a 20 20 20 20 20 20 20 |on line;|. |
|000053f0| 33 29 20 41 20 6e 6f 6e | 2d 63 6f 6e 74 69 6e 75 |3) A non|-continu|
|00005400| 61 74 69 6f 6e 20 6c 69 | 6e 65 20 77 68 69 63 68 |ation li|ne which|
|00005410| 20 68 61 73 20 61 20 6e | 75 6d 62 65 72 20 61 73 | has a n|umber as|
|00005420| 20 74 68 65 20 66 69 72 | 73 74 0a 20 20 20 20 20 | the fir|st. |
|00005430| 20 20 20 20 20 6e 6f 6e | 2d 77 68 69 74 65 73 70 | non|-whitesp|
|00005440| 61 63 65 20 63 68 61 72 | 61 63 74 65 72 20 69 73 |ace char|acter is|
|00005450| 20 61 20 6e 75 6d 62 65 | 72 65 64 20 6c 69 6e 65 | a numbe|red line|
|00005460| 2e 0a 20 20 20 20 20 20 | 20 34 29 20 41 20 74 61 |.. | 4) A ta|
|00005470| 62 20 66 6f 6c 6c 6f 77 | 65 64 20 62 79 20 61 20 |b follow|ed by a |
|00005480| 64 69 67 69 74 20 69 6e | 64 69 63 61 74 65 73 20 |digit in|dicates |
|00005490| 61 20 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 20 6c |a contin|uation l|
|000054a0| 69 6e 65 2e 22 5d 29 0a | 28 66 73 65 74 20 27 66 |ine."]).|(fset 'f|
|000054b0| 6f 72 74 72 61 6e 2d 6c | 69 6e 65 2d 6e 75 6d 62 |ortran-l|ine-numb|
|000054c0| 65 72 2d 69 6e 64 65 6e | 74 65 64 2d 63 6f 72 72 |er-inden|ted-corr|
|000054d0| 65 63 74 6c 79 2d 70 20 | 23 5b 6e 69 6c 20 22 8a |ectly-p |#[nil ".|
|000054e0| c0 79 88 c1 c2 77 88 69 | 0b 58 ad 8c 69 0b 55 ae |.y...w.i|.X..i.U.|
|000054f0| 87 c4 c2 77 88 69 c5 55 | 29 87 22 20 5b 30 20 22 |...w.i.U|)." [0 "|
|00005500| 20 09 22 20 6e 69 6c 20 | 66 6f 72 74 72 61 6e 2d | ." nil |fortran-|
|00005510| 6c 69 6e 65 2d 6e 75 6d | 62 65 72 2d 69 6e 64 65 |line-num|ber-inde|
|00005520| 6e 74 20 22 30 2d 39 22 | 20 35 5d 20 32 20 22 5c |nt "0-9"| 5] 2 "\|
|00005530| 0a 52 65 74 75 72 6e 20 | 74 20 69 66 20 63 75 72 |.Return |t if cur|
|00005540| 72 65 6e 74 20 6c 69 6e | 65 27 73 20 6c 69 6e 65 |rent lin|e's line|
|00005550| 20 6e 75 6d 62 65 72 20 | 69 73 20 63 6f 72 72 65 | number |is corre|
|00005560| 63 74 6c 79 20 69 6e 64 | 65 6e 74 65 64 2e 0a 44 |ctly ind|ented..D|
|00005570| 6f 20 6e 6f 74 20 63 61 | 6c 6c 20 69 66 20 74 68 |o not ca|ll if th|
|00005580| 65 72 65 20 69 73 20 6e | 6f 20 6c 69 6e 65 20 6e |ere is n|o line n|
|00005590| 75 6d 62 65 72 2e 22 5d | 29 0a 28 66 73 65 74 20 |umber."]|).(fset |
|000055a0| 27 66 6f 72 74 72 61 6e | 2d 63 68 65 63 6b 2d 66 |'fortran|-check-f|
|000055b0| 6f 72 2d 6d 61 74 63 68 | 69 6e 67 2d 64 6f 20 23 |or-match|ing-do #|
|000055c0| 5b 6e 69 6c 20 22 c0 c1 | 1a 1b 8a c4 79 88 c5 c6 |[nil "..|....y...|
|000055d0| 21 ad a5 c7 c0 77 88 c8 | c0 77 88 60 c9 c0 77 88 |!....w..|.w.`..w.|
|000055e0| 60 7b 13 c4 79 88 ca cb | 0b cc 0b cd b0 05 c0 c1 |`{..y...|........|
|000055f0| 23 ad 85 c5 ce 0b 50 21 | 2b 87 22 20 5b 6e 69 6c |#.....P!|+." [nil|
|00005600| 20 74 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 | t case-|fold-sea|
|00005610| 72 63 68 20 63 68 61 72 | 6e 75 6d 20 30 20 6c 6f |rch char|num 0 lo|
|00005620| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 20 09 5d 2a 5b |oking-at| "[ .]*[|
|00005630| 30 2d 39 5d 2b 22 20 22 | 20 09 22 20 22 30 22 20 |0-9]+" "| ." "0" |
|00005640| 22 30 2d 39 22 20 72 65 | 2d 73 65 61 72 63 68 2d |"0-9" re|-search-|
|00005650| 62 61 63 6b 77 61 72 64 | 20 22 5c 5c 28 5e 5b 20 |backward| "\\(^[ |
|00005660| 09 30 2d 39 5d 2a 65 6e | 64 5c 5c 62 5b 20 09 5d |.0-9]*en|d\\b[ .]|
|00005670| 2a 5b 5e 20 09 3d 28 61 | 2d 7a 5d 5c 5c 29 5c 5c |*[^ .=(a|-z]\\)\\|
|00005680| 7c 5c 5c 28 5e 5b 20 09 | 30 2d 39 5d 2a 64 6f 5b ||\\(^[ .|0-9]*do[|
|00005690| 20 09 5d 2a 30 2a 22 20 | 22 5c 5c 62 5c 5c 29 5c | .]*0*" |"\\b\\)\|
|000056a0| 5c 7c 5c 5c 28 5e 5b 20 | 09 5d 2a 30 2a 22 20 22 |\|\\(^[ |.]*0*" "|
|000056b0| 5c 5c 62 5c 5c 29 22 20 | 22 5e 5b 20 09 30 2d 39 |\\b\\)" |"^[ .0-9|
|000056c0| 5d 2a 64 6f 5b 20 09 5d | 2a 30 2a 22 5d 20 36 20 |]*do[ .]|*0*"] 6 |
|000056d0| 22 5c 0a 57 68 65 6e 20 | 63 61 6c 6c 65 64 20 66 |"\.When |called f|
|000056e0| 72 6f 6d 20 61 20 6e 75 | 6d 62 65 72 65 64 20 73 |rom a nu|mbered s|
|000056f0| 74 61 74 65 6d 65 6e 74 | 2c 20 72 65 74 75 72 6e |tatement|, return|
|00005700| 73 20 74 20 69 66 20 6d | 61 74 63 68 69 6e 67 20 |s t if m|atching |
|00005710| 27 64 6f 27 20 69 73 20 | 66 6f 75 6e 64 2e 0a 4f |'do' is |found..O|
|00005720| 74 68 65 72 77 69 73 65 | 20 72 65 74 75 72 6e 20 |therwise| return |
|00005730| 61 20 6e 69 6c 2e 22 5d | 29 0a 28 66 73 65 74 20 |a nil."]|).(fset |
|00005740| 27 66 6f 72 74 72 61 6e | 2d 61 6e 61 6c 79 7a 65 |'fortran|-analyze|
|00005750| 2d 66 69 6c 65 2d 66 6f | 72 6d 61 74 20 23 5b 6e |-file-fo|rmat #[n|
|00005760| 69 6c 20 22 8a 65 62 88 | c0 11 6d ac 97 c2 c3 21 |il ".eb.|..m....!|
|00005770| ac 92 c2 c4 21 ac 8d 09 | 0d 56 ac 88 c6 79 88 09 |....!...|.V...y..|
|00005780| 54 11 aa 66 c2 c3 21 ab | 83 c7 aa 90 c2 c4 21 ab |T..f..!.|......!.|
|00005790| 83 c0 aa 88 0e 08 ab 83 | c7 aa 81 c0 29 87 22 20 |........|....)." |
|000057a0| 5b 30 20 69 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |[0 i loo|king-at |
|000057b0| 22 09 22 20 22 20 20 20 | 20 20 20 22 20 66 6f 72 |"." " | " for|
|000057c0| 74 72 61 6e 2d 61 6e 61 | 6c 79 7a 65 2d 64 65 70 |tran-ana|lyze-dep|
|000057d0| 74 68 20 6e 69 6c 20 31 | 20 66 6f 72 74 72 61 6e |th nil 1| fortran|
|000057e0| 2d 74 61 62 2d 6d 6f 64 | 65 2d 64 65 66 61 75 6c |-tab-mod|e-defaul|
|000057f0| 74 5d 20 32 20 22 5c 0a | 52 65 74 75 72 6e 20 30 |t] 2 "\.|Return 0|
|00005800| 20 69 66 20 46 69 78 65 | 64 20 66 6f 72 6d 61 74 | if Fixe|d format|
|00005810| 20 69 73 20 75 73 65 64 | 2c 20 31 20 69 66 20 54 | is used|, 1 if T|
|00005820| 61 62 20 66 6f 72 6d 61 | 74 74 69 6e 67 20 69 73 |ab forma|tting is|
|00005830| 20 75 73 65 64 2e 0a 55 | 73 65 20 66 6f 72 74 72 | used..U|se fortr|
|00005840| 61 6e 2d 74 61 62 2d 6d | 6f 64 65 2d 64 65 66 61 |an-tab-m|ode-defa|
|00005850| 75 6c 74 20 69 66 20 6e | 6f 20 6e 6f 6e 2d 63 6f |ult if n|o non-co|
|00005860| 6d 6d 65 6e 74 20 73 74 | 61 74 65 6d 65 6e 74 73 |mment st|atements|
|00005870| 20 61 72 65 20 66 6f 75 | 6e 64 20 69 6e 20 74 68 | are fou|nd in th|
|00005880| 65 0a 66 69 6c 65 20 62 | 65 66 6f 72 65 20 74 68 |e.file b|efore th|
|00005890| 65 20 65 6e 64 20 6f 72 | 20 74 68 65 20 66 69 72 |e end or| the fir|
|000058a0| 73 74 20 66 6f 72 74 72 | 61 6e 2d 61 6e 61 6c 79 |st fortr|an-analy|
|000058b0| 7a 65 2d 64 65 70 74 68 | 20 6c 69 6e 65 73 2e 22 |ze-depth| lines."|
|000058c0| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|000058d0| 6e 2d 74 61 62 2d 6d 6f | 64 65 20 23 5b 28 61 72 |n-tab-mo|de #[(ar|
|000058e0| 67 29 20 22 08 ac 84 09 | 3f aa 8d 08 a7 ab 87 c2 |g) "....|?.......|
|000058f0| 08 21 c3 56 aa 82 c0 20 | 89 11 ab 85 c4 20 88 aa |.!.V... |..... ..|
|00005900| 83 c5 20 88 c6 c7 20 21 | 87 22 20 5b 61 72 67 20 |.. ... !|." [arg |
|00005910| 66 6f 72 74 72 61 6e 2d | 74 61 62 2d 6d 6f 64 65 |fortran-|tab-mode|
|00005920| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00005930| 76 61 6c 75 65 20 30 20 | 66 6f 72 74 72 61 6e 2d |value 0 |fortran-|
|00005940| 73 65 74 75 70 2d 74 61 | 62 2d 66 6f 72 6d 61 74 |setup-ta|b-format|
|00005950| 2d 73 74 79 6c 65 20 66 | 6f 72 74 72 61 6e 2d 73 |-style f|ortran-s|
|00005960| 65 74 75 70 2d 66 69 78 | 65 64 2d 66 6f 72 6d 61 |etup-fix|ed-forma|
|00005970| 74 2d 73 74 79 6c 65 20 | 73 65 74 2d 62 75 66 66 |t-style |set-buff|
|00005980| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 62 75 |er-modif|ied-p bu|
|00005990| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 5d |ffer-mod|ified-p]|
|000059a0| 20 33 20 22 5c 0a 54 6f | 67 67 6c 65 20 66 6f 72 | 3 "\.To|ggle for|
|000059b0| 74 72 61 6e 2d 74 61 62 | 2d 6d 6f 64 65 20 77 68 |tran-tab|-mode wh|
|000059c0| 69 63 68 20 69 6e 64 69 | 63 61 74 65 73 20 73 74 |ich indi|cates st|
|000059d0| 79 6c 65 20 6f 66 20 63 | 6f 6e 74 69 6e 75 61 74 |yle of c|ontinuat|
|000059e0| 69 6f 6e 20 6c 69 6e 65 | 73 2e 0a 57 69 74 68 20 |ion line|s..With |
|000059f0| 6e 6f 20 61 72 67 75 6d | 65 6e 74 2c 20 74 6f 67 |no argum|ent, tog|
|00005a00| 67 6c 65 20 6f 6e 2f 6f | 66 66 20 74 68 65 20 74 |gle on/o|ff the t|
|00005a10| 61 62 62 69 6e 67 20 6d | 6f 64 65 20 6f 66 20 63 |abbing m|ode of c|
|00005a20| 6f 6e 74 69 6e 75 61 74 | 69 6f 6e 20 6c 69 6e 65 |ontinuat|ion line|
|00005a30| 73 2e 0a 49 66 20 61 72 | 67 75 6d 65 6e 74 20 69 |s..If ar|gument i|
|00005a40| 73 20 61 20 70 6f 73 69 | 74 69 76 65 20 6e 75 6d |s a posi|tive num|
|00005a50| 62 65 72 2c 20 6f 72 20 | 6e 6f 6e 2d 6e 69 6c 20 |ber, or |non-nil |
|00005a60| 69 66 20 6e 6f 74 20 61 | 20 6e 75 6d 62 65 72 2c |if not a| number,|
|00005a70| 20 66 6f 72 74 72 61 6e | 2d 74 61 62 2d 6d 6f 64 | fortran|-tab-mod|
|00005a80| 65 0a 69 73 20 74 75 72 | 6e 65 64 20 6f 6e 2e 20 |e.is tur|ned on. |
|00005a90| 20 4f 74 68 65 72 77 69 | 73 65 20 0a 49 66 20 60 | Otherwi|se .If `|
|00005aa0| 66 6f 72 74 72 61 6e 2d | 74 61 62 2d 6d 6f 64 65 |fortran-|tab-mode|
|00005ab0| 27 20 69 73 20 66 61 6c | 73 65 22 20 22 50 22 5d |' is fal|se" "P"]|
|00005ac0| 29 0a 28 66 73 65 74 20 | 27 66 6f 72 74 72 61 6e |).(fset |'fortran|
|00005ad0| 2d 73 65 74 75 70 2d 74 | 61 62 2d 66 6f 72 6d 61 |-setup-t|ab-forma|
|00005ae0| 74 2d 73 74 79 6c 65 20 | 23 5b 6e 69 6c 20 22 08 |t-style |#[nil ".|
|00005af0| c1 5d 12 c3 14 c5 c6 50 | 16 07 c8 16 09 ca cb 20 |.].....P|....... |
|00005b00| 21 87 22 20 5b 74 61 62 | 2d 77 69 64 74 68 20 36 |!." [tab|-width 6|
|00005b10| 20 66 6f 72 74 72 61 6e | 2d 6d 69 6e 69 6d 75 6d | fortran|-minimum|
|00005b20| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 69 6e 64 65 6e |-stateme|nt-inden|
|00005b30| 74 20 74 20 69 6e 64 65 | 6e 74 2d 74 61 62 73 2d |t t inde|nt-tabs-|
|00005b40| 6d 6f 64 65 20 22 30 20 | 20 20 20 20 20 20 38 31 |mode "0 | 81|
|00005b50| 30 20 20 20 20 20 20 20 | 20 32 30 20 20 20 20 20 |0 | 20 |
|00005b60| 20 20 20 33 30 20 20 20 | 20 20 20 20 20 34 30 20 | 30 | 40 |
|00005b70| 20 20 20 20 20 20 20 35 | 30 20 20 20 20 20 20 20 | 5|0 |
|00005b80| 20 36 30 20 20 20 20 20 | 20 20 20 37 30 5c 6e 22 | 60 | 70\n"|
|00005b90| 20 22 5b 20 20 20 5d 7c | 20 20 7b 20 7c 20 20 20 | "[ ]|| { | |
|00005ba0| 20 7c 20 20 20 20 7c 20 | 20 20 20 7c 20 20 20 20 | | | | | |
|00005bb0| 7c 20 20 20 20 7c 20 20 | 20 20 7c 20 20 20 20 7c || | | | ||
|00005bc0| 20 20 20 20 7c 20 20 20 | 20 7c 20 20 20 20 7c 20 | | | | | |
|00005bd0| 20 20 20 7c 20 20 20 20 | 7c 7d 5c 6e 22 20 66 6f | | ||}\n" fo|
|00005be0| 72 74 72 61 6e 2d 63 6f | 6c 75 6d 6e 2d 72 75 6c |rtran-co|lumn-rul|
|00005bf0| 65 72 20 22 20 54 41 42 | 2d 66 6f 72 6d 61 74 22 |er " TAB|-format"|
|00005c00| 20 66 6f 72 74 72 61 6e | 2d 74 61 62 2d 6d 6f 64 | fortran|-tab-mod|
|00005c10| 65 2d 73 74 72 69 6e 67 | 20 73 65 74 2d 62 75 66 |e-string| set-buf|
|00005c20| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 62 |fer-modi|fied-p b|
|00005c30| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00005c40| 5d 20 32 20 22 5c 0a 53 | 65 74 20 75 70 20 66 6f |] 2 "\.S|et up fo|
|00005c50| 72 74 72 61 6e 20 6d 6f | 64 65 20 74 6f 20 75 73 |rtran mo|de to us|
|00005c60| 65 20 74 68 65 20 54 41 | 42 2d 64 69 67 69 74 20 |e the TA|B-digit |
|00005c70| 6d 6f 64 65 20 6f 66 20 | 63 6f 6e 74 69 6e 75 61 |mode of |continua|
|00005c80| 74 69 6f 6e 20 6c 69 6e | 65 73 2e 0a 55 73 65 20 |tion lin|es..Use |
|00005c90| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 5c 5c 5b 66 |the comm|and \\[f|
|00005ca0| 6f 72 74 72 61 6e 2d 74 | 61 62 2d 6d 6f 64 65 5d |ortran-t|ab-mode]|
|00005cb0| 20 74 6f 20 74 6f 67 67 | 6c 65 20 62 65 74 77 65 | to togg|le betwe|
|00005cc0| 65 6e 20 74 68 69 73 20 | 61 6e 64 20 66 69 78 65 |en this |and fixe|
|00005cd0| 64 0a 66 6f 72 6d 61 74 | 20 73 74 79 6c 65 2e 22 |d.format| style."|
|00005ce0| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|00005cf0| 6e 2d 73 65 74 75 70 2d | 66 69 78 65 64 2d 66 6f |n-setup-|fixed-fo|
|00005d00| 72 6d 61 74 2d 73 74 79 | 6c 65 20 23 5b 6e 69 6c |rmat-sty|le #[nil|
|00005d10| 20 22 c0 11 c2 13 c4 c5 | 50 16 06 c7 16 08 c9 ca | "......|P.......|
|00005d20| 20 21 87 22 20 5b 36 20 | 66 6f 72 74 72 61 6e 2d | !." [6 |fortran-|
|00005d30| 6d 69 6e 69 6d 75 6d 2d | 73 74 61 74 65 6d 65 6e |minimum-|statemen|
|00005d40| 74 2d 69 6e 64 65 6e 74 | 20 6e 69 6c 20 69 6e 64 |t-indent| nil ind|
|00005d50| 65 6e 74 2d 74 61 62 73 | 2d 6d 6f 64 65 20 22 30 |ent-tabs|-mode "0|
|00005d60| 20 20 20 34 20 36 20 20 | 31 30 20 20 20 20 20 20 | 4 6 |10 |
|00005d70| 20 20 32 30 20 20 20 20 | 20 20 20 20 33 30 20 20 | 20 | 30 |
|00005d80| 20 20 20 20 20 20 34 30 | 20 20 20 20 20 20 20 20 | 40| |
|00005d90| 35 30 20 20 20 20 20 20 | 20 20 36 30 20 20 20 20 |50 | 60 |
|00005da0| 20 20 20 20 37 30 5c 6e | 22 20 22 5b 20 20 20 5d | 70\n|" "[ ]|
|00005db0| 7c 7b 20 20 20 7c 20 20 | 20 20 7c 20 20 20 20 7c ||{ | | | ||
|00005dc0| 20 20 20 20 7c 20 20 20 | 20 7c 20 20 20 20 7c 20 | | | | | |
|00005dd0| 20 20 20 7c 20 20 20 20 | 7c 20 20 20 20 7c 20 20 | | || | |
|00005de0| 20 20 7c 20 20 20 20 7c | 20 20 20 20 7c 20 20 20 | | || | |
|00005df0| 20 7c 7d 5c 6e 22 20 66 | 6f 72 74 72 61 6e 2d 63 | |}\n" f|ortran-c|
|00005e00| 6f 6c 75 6d 6e 2d 72 75 | 6c 65 72 20 22 20 46 69 |olumn-ru|ler " Fi|
|00005e10| 78 65 64 2d 66 6f 72 6d | 61 74 22 20 66 6f 72 74 |xed-form|at" fort|
|00005e20| 72 61 6e 2d 74 61 62 2d | 6d 6f 64 65 2d 73 74 72 |ran-tab-|mode-str|
|00005e30| 69 6e 67 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ing set-|buffer-m|
|00005e40| 6f 64 69 66 69 65 64 2d | 70 20 62 75 66 66 65 72 |odified-|p buffer|
|00005e50| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 5d 20 32 20 22 |-modifie|d-p] 2 "|
|00005e60| 5c 0a 53 65 74 20 75 70 | 20 66 6f 72 74 72 61 6e |\.Set up| fortran|
|00005e70| 20 6d 6f 64 65 20 74 6f | 20 75 73 65 20 74 68 65 | mode to| use the|
|00005e80| 20 63 6f 6c 75 6d 6e 20 | 36 20 6d 6f 64 65 20 6f | column |6 mode o|
|00005e90| 66 20 63 6f 6e 74 69 6e | 75 61 74 69 6f 6e 20 6c |f contin|uation l|
|00005ea0| 69 6e 65 73 2e 0a 55 73 | 65 20 74 68 65 20 63 6f |ines..Us|e the co|
|00005eb0| 6d 6d 61 6e 64 20 5c 5c | 5b 66 6f 72 74 72 61 6e |mmand \\|[fortran|
|00005ec0| 2d 74 61 62 2d 6d 6f 64 | 65 5d 20 74 6f 20 74 6f |-tab-mod|e] to to|
|00005ed0| 67 67 6c 65 20 62 65 74 | 77 65 65 6e 20 74 68 69 |ggle bet|ween thi|
|00005ee0| 73 20 61 6e 64 20 74 61 | 62 0a 63 68 61 72 61 63 |s and ta|b.charac|
|00005ef0| 74 65 72 20 66 6f 72 6d | 61 74 20 73 74 79 6c 65 |ter form|at style|
|00005f00| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00005f10| 22 c0 09 9e ac 84 c2 09 | 42 11 c0 87 22 20 5b 66 |".......|B..." [f|
|00005f20| 6f 72 74 72 61 6e 2d 74 | 61 62 2d 6d 6f 64 65 2d |ortran-t|ab-mode-|
|00005f30| 73 74 72 69 6e 67 20 6d | 69 6e 6f 72 2d 6d 6f 64 |string m|inor-mod|
|00005f40| 65 2d 61 6c 69 73 74 20 | 28 66 6f 72 74 72 61 6e |e-alist |(fortran|
|00005f50| 2d 74 61 62 2d 6d 6f 64 | 65 2d 73 74 72 69 6e 67 |-tab-mod|e-string|
|00005f60| 20 66 6f 72 74 72 61 6e | 2d 74 61 62 2d 6d 6f 64 | fortran|-tab-mod|
|00005f70| 65 2d 73 74 72 69 6e 67 | 29 5d 20 32 29 0a 28 66 |e-string|)] 2).(f|
|00005f80| 73 65 74 20 27 66 69 6e | 64 2d 63 6f 6d 6d 65 6e |set 'fin|d-commen|
|00005f90| 74 2d 73 74 61 72 74 2d | 73 6b 69 70 20 23 5b 6e |t-start-|skip #[n|
|00005fa0| 69 6c 20 22 c0 89 19 1a | 8a c3 0c 8a c0 7f 88 60 |il "....|.......`|
|00005fb0| 29 c5 23 29 ad a8 c6 94 | 12 c6 95 11 c7 c6 94 21 |).#)....|.......!|
|00005fc0| ab 89 8a 09 62 88 c8 20 | 29 aa 93 5c 6e 62 88 c3 |....b.. |)..\nb..|
|00005fd0| 0c 8a c0 7f 88 60 29 c5 | 23 88 c6 95 62 88 c5 2a |.....`).|#...b..*|
|00005fe0| 87 22 20 5b 6e 69 6c 20 | 73 61 76 65 2d 6d 61 74 |." [nil |save-mat|
|00005ff0| 63 68 2d 65 6e 64 20 73 | 61 76 65 2d 6d 61 74 63 |ch-end s|ave-matc|
|00006000| 68 2d 62 65 67 69 6e 6e | 69 6e 67 20 72 65 2d 73 |h-beginn|ing re-s|
|00006010| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 63 6f |earch-fo|rward co|
|00006020| 6d 6d 65 6e 74 2d 73 74 | 61 72 74 2d 73 6b 69 70 |mment-st|art-skip|
|00006030| 20 74 20 30 20 69 73 2d | 69 6e 2d 66 6f 72 74 72 | t 0 is-|in-fortr|
|00006040| 61 6e 2d 73 74 72 69 6e | 67 2d 70 20 66 69 6e 64 |an-strin|g-p find|
|00006050| 2d 63 6f 6d 6d 65 6e 74 | 2d 73 74 61 72 74 2d 73 |-comment|-start-s|
|00006060| 6b 69 70 5d 20 34 20 22 | 5c 0a 4d 6f 76 65 20 74 |kip] 4 "|\.Move t|
|00006070| 6f 20 70 61 73 74 20 60 | 63 6f 6d 6d 65 6e 74 2d |o past `|comment-|
|00006080| 73 74 61 72 74 2d 73 6b | 69 70 27 20 66 6f 75 6e |start-sk|ip' foun|
|00006090| 64 20 6f 6e 20 63 75 72 | 72 65 6e 74 20 6c 69 6e |d on cur|rent lin|
|000060a0| 65 2e 0a 52 65 74 75 72 | 6e 20 74 20 69 66 20 60 |e..Retur|n t if `|
|000060b0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 2d 73 6b |comment-|start-sk|
|000060c0| 69 70 27 20 66 6f 75 6e | 64 2c 20 6e 69 6c 20 69 |ip' foun|d, nil i|
|000060d0| 66 20 6e 6f 74 2e 22 20 | 6e 69 6c 5d 29 0a 28 66 |f not." |nil]).(f|
|000060e0| 73 65 74 20 27 69 73 2d | 69 6e 2d 66 6f 72 74 72 |set 'is-|in-fortr|
|000060f0| 61 6e 2d 73 74 72 69 6e | 67 2d 70 20 23 5b 28 70 |an-strin|g-p #[(p|
|00006100| 6f 73 29 20 22 c0 19 8a | 5c 6e 62 88 c3 20 88 c4 |os) "...|\nb.. ..|
|00006110| 20 88 60 5c 6e 57 ab a8 | c5 c6 21 ab 88 c7 95 c8 | .`\nW..|..!.....|
|00006120| 5c 5c 62 88 aa 6e 09 ac | 8b c5 0e 09 21 ab 85 c8 |\\b..n..|....!...|
|00006130| 79 88 aa 60 c5 ca 21 ab | 83 09 3f 11 c8 75 88 aa |y..`..!.|..?..u..|
|00006140| 53 29 09 29 87 22 20 5b | 6e 69 6c 20 69 73 2d 69 |S).)." [|nil is-i|
|00006150| 6e 2d 66 6f 72 74 72 61 | 6e 2d 73 74 72 69 6e 67 |n-fortra|n-string|
|00006160| 20 70 6f 73 20 66 6f 72 | 74 72 61 6e 2d 70 72 65 | pos for|tran-pre|
|00006170| 76 69 6f 75 73 2d 73 74 | 61 74 65 6d 65 6e 74 20 |vious-st|atement |
|00006180| 66 6f 72 74 72 61 6e 2d | 6e 65 78 74 2d 73 74 61 |fortran-|next-sta|
|00006190| 74 65 6d 65 6e 74 20 6c | 6f 6f 6b 69 6e 67 2d 61 |tement l|ooking-a|
|000061a0| 74 20 22 5e 20 20 20 20 | 20 22 20 30 20 31 20 63 |t "^ | " 0 1 c|
|000061b0| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 2d 73 6b 69 |omment-s|tart-ski|
|000061c0| 70 20 22 27 22 5d 20 32 | 20 22 5c 0a 74 20 69 66 |p "'"] 2| "\.t if|
|000061d0| 20 50 4f 53 20 28 61 20 | 62 75 66 66 65 72 20 70 | POS (a |buffer p|
|000061e0| 6f 73 69 74 69 6f 6e 29 | 20 69 73 20 69 6e 73 69 |osition)| is insi|
|000061f0| 64 65 20 61 20 73 74 61 | 6e 64 61 72 64 20 46 6f |de a sta|ndard Fo|
|00006200| 72 74 72 61 6e 20 73 74 | 72 69 6e 67 2e 0a 46 6f |rtran st|ring..Fo|
|00006210| 72 74 72 61 6e 20 73 74 | 72 69 6e 67 73 20 61 72 |rtran st|rings ar|
|00006220| 65 20 64 65 6c 69 6d 65 | 74 65 64 20 62 79 20 61 |e delime|ted by a|
|00006230| 70 6f 73 74 72 6f 70 68 | 65 73 20 28 27 29 2e 20 |postroph|es ('). |
|00006240| 20 51 75 6f 74 65 2d 45 | 73 63 61 70 65 2d 73 65 | Quote-E|scape-se|
|00006250| 71 75 65 6e 63 65 73 0a | 28 5c 5c 27 29 2c 20 73 |quences.|(\\'), s|
|00006260| 74 72 69 6e 67 73 20 64 | 65 6c 69 6d 69 74 65 64 |trings d|elimited|
|00006270| 20 62 79 20 5c 22 20 61 | 6e 64 20 64 65 74 65 63 | by \" a|nd detec|
|00006280| 74 69 6f 6e 20 6f 66 20 | 73 79 6e 74 61 78 2d 65 |tion of |syntax-e|
|00006290| 72 72 6f 72 73 0a 28 75 | 6e 62 61 6c 61 6e 63 65 |rrors.(u|nbalance|
|000062a0| 64 20 71 75 6f 74 65 73 | 29 20 61 72 65 20 4e 4f |d quotes|) are NO|
|000062b0| 54 20 73 75 70 70 6f 72 | 74 65 64 2e 22 5d 29 0a |T suppor|ted."]).|
|000062c0| 28 66 73 65 74 20 27 66 | 6f 72 74 72 61 6e 2d 61 |(fset 'f|ortran-a|
|000062d0| 75 74 6f 2d 66 69 6c 6c | 2d 6d 6f 64 65 20 23 5b |uto-fill|-mode #[|
|000062e0| 28 61 72 67 29 20 22 08 | ac 84 09 3f aa 85 c2 08 |(arg) ".|...?....|
|000062f0| 21 c3 56 ad 81 c4 89 11 | c5 c6 20 21 88 87 22 20 |!.V.....|.. !.." |
|00006300| 5b 61 72 67 20 61 75 74 | 6f 2d 66 69 6c 6c 2d 68 |[arg aut|o-fill-h|
|00006310| 6f 6f 6b 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |ook pref|ix-numer|
|00006320| 69 63 2d 76 61 6c 75 65 | 20 30 20 66 6f 72 74 72 |ic-value| 0 fortr|
|00006330| 61 6e 2d 69 6e 64 65 6e | 74 2d 6c 69 6e 65 20 73 |an-inden|t-line s|
|00006340| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00006350| 65 64 2d 70 20 62 75 66 | 66 65 72 2d 6d 6f 64 69 |ed-p buf|fer-modi|
|00006360| 66 69 65 64 2d 70 5d 20 | 33 20 22 5c 0a 54 6f 67 |fied-p] |3 "\.Tog|
|00006370| 67 6c 65 20 66 6f 72 74 | 72 61 6e 2d 61 75 74 6f |gle fort|ran-auto|
|00006380| 2d 66 69 6c 6c 20 6d 6f | 64 65 2e 0a 57 69 74 68 |-fill mo|de..With|
|00006390| 20 61 72 67 2c 20 74 75 | 72 6e 20 66 6f 72 74 72 | arg, tu|rn fortr|
|000063a0| 61 6e 2d 61 75 74 6f 2d | 66 69 6c 6c 20 6d 6f 64 |an-auto-|fill mod|
|000063b0| 65 20 6f 6e 20 69 66 66 | 20 61 72 67 20 69 73 20 |e on iff| arg is |
|000063c0| 70 6f 73 69 74 69 76 65 | 2e 0a 49 6e 20 66 6f 72 |positive|..In for|
|000063d0| 74 72 61 6e 2d 61 75 74 | 6f 2d 66 69 6c 6c 20 6d |tran-aut|o-fill m|
|000063e0| 6f 64 65 2c 20 69 6e 73 | 65 72 74 69 6e 67 20 61 |ode, ins|erting a|
|000063f0| 20 73 70 61 63 65 20 61 | 74 20 61 20 63 6f 6c 75 | space a|t a colu|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
