Diff for /gforth/gforth.el between versions 1.38 and 1.44

version 1.38, 2000/04/02 20:18:26 version 1.44, 2000/10/01 11:20:05
Line 1 Line 1
 ;; Forth mode for Emacs  ;; Forth mode for Emacs
   
 ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.  ;; Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
   
 ;; This file is part of Gforth.  ;; This file is part of Gforth.
   
Line 160  OBS! All words in forth-negatives must b Line 160  OBS! All words in forth-negatives must b
   (setq comment-column 40)    (setq comment-column 40)
   (make-local-variable 'comment-start-skip)    (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "\\ ")    (setq comment-start-skip "\\ ")
   (make-local-variable 'comment-indent-hook)    (make-local-hook 'comment-indent-hook)
   (setq comment-indent-hook 'forth-comment-indent)    (add-hook comment-indent-hook 'forth-comment-indent)
   (make-local-variable 'parse-sexp-ignore-comments)    (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments t))    (setq parse-sexp-ignore-comments t))
       
Line 241  Variables controling documentation searc Line 241  Variables controling documentation searc
 ;      (run-forth forth-program-name))  ;      (run-forth forth-program-name))
   (run-hooks 'forth-mode-hook))    (run-hooks 'forth-mode-hook))
   
 (setq forth-mode-hook  (add-hook 'forth-mode-hook
       '(lambda ()         '(lambda () 
          (make-local-variable 'compile-command)           (make-local-variable 'compile-command)
          (setq compile-command "gforth ")))           (setq compile-command "gforth ")))
Line 1000  The region is sent terminated by a newli Line 1000  The region is sent terminated by a newli
  '(forth-mode)   '(forth-mode)
  (append   (append
   '(("\\\\ \\(.*\\)$" nil comment)) ; comments    '(("\\\\ \\(.*\\)$" nil comment)) ; comments
   '(("( [^)\n]* -- [^)\n]* )" nil decl))    '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments
   '(("( -- [^)\n]* )" nil decl))    '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
   '(("( [^)\n]* -- )" nil decl))  
   '(("( -- )" nil decl))  
   '(("( " ")" comment))    '(("( " ")" comment))
   '(("\" [^\"\n]*\"" nil string))    '(("\" [^\"\n]*\"" nil string))
   '(("\\(IF\\|ELSE\\|THEN\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\)" nil keyword))    '(("\\(\\[IF]\\|\\[IFDEF]\\|\\[IFUNDEF]\\|\\[ELSE]\\|\\[THEN]\\|IF\\|ELSE\\|THEN\\|CASE\\|ENDCASE\\|OF\\|ENDOF\\|BEGIN\\|WHILE\\|REPEAT\\|UNTIL\\|AGAIN\\|DOES>\\|?DO\\|DO\\|\+LOOP\\|UNLOOP\\|LOOP\\|EXIT\\)" nil keyword))
     '(("\\(\\[if]\\|\\[ifdef]\\|\\[ifundef]\\|\\[else]\\|\\[then]\\|if\\|else\\|then\\|case\\|endcase\\|of\\|endof\\|begin\\|while\\|repeat\\|until\\|again\\|does>\\|?do\\|do\\|\+loop\\|unloop\\|loop\\|exit\\)" nil keyword))
   '((": *[^ \n]*" nil defun))    '((": *[^ \n]*" nil defun))
   '(("Defer *[^ \n]*" nil defun))    '(("Defer *[^ \n]*" nil defun))
   '(("Variable *[^ \n]*" nil define))    '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))
   '(("Constant *[^ \n]*" nil define))    '(("\\(include\\|require\\) *[^ \n]*" nil include))
   '(("include *[^ \n]*" nil include))    '(("[\n       ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))
   '(("require *[^ \n]*" nil include))  
   '(("[         ]\\$[0-9A-Fa-f]+" nil formula))  
   '(("[         ]&[0-9]+" nil formula))  
   '(("[         ][0-9]+" nil formula))  
   '(("[         ]%[01]+" nil formula))  
   '(("[         ]'[^ \n]+" nil formula))  
   '((":noname" nil defun))))    '((":noname" nil defun))))
   
 ;; end  ;; end

Removed from v.1.38  
changed lines
  Added in v.1.44


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>