Mercurial > emacs
view test/indent/modula2.mod @ 112175:e09ac5ef1fe4
Fix r99654 change -- rename :on/off-image widget props to :on/off-glyph.
* wid-edit.el (visibility): Replace :on-image and :off-image
widget properties with :on-glyph and :off-glyph, for consistency
with the `visibility' widget.
(widget-toggle-value-create, widget-visibility-value-create):
Merge into a single function `widget-toggle-value-create'.
* cus-edit.el (custom-variable-value-create, custom-visibility)
(custom-face-edit-value-create, custom-face-value-create): Replace
:on-image and :off-image widget properties with :on-glyph and
:off-glyph, for consistency with the `visibility' widget.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 09 Jan 2011 16:05:53 -0500 |
parents | d9d916379aff |
children |
line wrap: on
line source
(* -*- mode: modula-2; m2-indent:3 -*- *) IMPLEMENTATION MODULE Indent ; (* This is (* a nested comment *) *) // This is a single-line comment. FROM SYSTEM IMPORT ADR, TSIZE, SIZE, WORD ; CONST c1 = 2; TYPE t = POINTER TO ARRAY [0..10] OF LONGINT; VAR x: t; y:LONGINT; PROCEDURE f1 (f: File) : INTEGER ; VAR fd: FileDescriptor ; PROCEDURE foo (a:CARDINAL) : INTEGER; BEGIN END foo; BEGIN IF f#Error THEN fd := GetIndice(FileInfo, f) ; IF fd#NIL THEN RETURN( fd^.unixfd ) ELSE CASE z OF 1: do1(); | 2: do2(); toto(x); | 3: ; | 4: do4(); ELSE do5(); END ; (* CASE selection *) END END ; FormatError1('file %d has not been opened or is out of range\n', f) ; RETURN( -1 ) END f1 ; BEGIN init FINALLY done END Indent.