David Kuehling <[EMAIL PROTECTED]> writes: > I'm currently maintaining gforth.el. Can't reproduce that. Are you > sure you are loading the correct version of gforth.el? This looks like > a bug in the GForth 0.5.0 version.
You are right, I was loading an older version. Thank you for your help and sorry for the noise. BTW: What do you think about including templates for a few very often needed FORTH constructs. I used the following makros as extensions to gforth.el and found them quite handy: (fset 'insert-colon-definition "\C-a: ( -- )\C-m;\C-m\C-[[A\C-[[A\C-[[C\C-[[C") (define-key forth-mode-map "\C-c:" 'insert-colon-definition) (fset 'bracket-tick "['] ") (define-key forth-mode-map "\C-c'" 'bracket-tick) (fset 'insert-bracket "[]\C-[[D") (define-key forth-mode-map "\C-cb" 'insert-bracket) (fset 'insert-IF "IF THEN\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D") (define-key forth-mode-map "\C-ci" 'insert-IF) (fset 'insert-IF-ELSE-THEN "IF ELSE THEN\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D\C-[[D") (define-key forth-mode-map "\C-ce" 'insert-IF-ELSE-THEN) (fset 'insert-LOOP "DO\C-mLOOP\C-m\C-[[A\C-[[D\C-m") (define-key forth-mode-map "\C-cl" 'insert-LOOP) (fset 'insert-question-LOOP "?DO\C-mLOOP\C-m\C-[[A\C-[[D\C-m") (define-key forth-mode-map "\C-c?" 'insert-question-LOOP) (fset 'insert-CASE "CASE\C-mOF ENDOF\C-mOF ENDOF\C-mENDCASE\C-m\C-[[A\C-[[A\C-[[A\C-[f\C-[[C\C-[[C") (define-key forth-mode-map "\C-cc" 'insert-CASE) Robert Epprecht --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
