Diff for /gforth/gforth.el between versions 1.43 and 1.45

version 1.43, 2000/09/23 15:06:00 version 1.45, 2000/11/16 09:39:51
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 992  The region is sent terminated by a newli Line 992  The region is sent terminated by a newli
   
 ;;; Highlighting  ;;; Highlighting
   
 (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))  (cond ((featurep 'hilit19)
     (require 'hilit19)   (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))
   (require 'hl319))       (require 'hilit19)
      (require 'hl319))
 (hilit-set-mode-patterns  
  '(forth-mode)   (hilit-set-mode-patterns
  (append    '(forth-mode)
   '(("\\\\ \\(.*\\)$" nil comment)) ; comments    (append
   '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments     '(("\\\\ \\(.*\\)$" nil comment))    ; comments
   '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))     '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments
   '(("( " ")" comment))     '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
   '(("\" [^\"\n]*\"" nil string))     '(("( " ")" comment))
   '(("\\(\\[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 string))
   '(("\\(\\[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))     '(("\\(\\[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))
   '(("Defer *[^ \n]*" nil defun))     '((": *[^ \n]*" nil defun))
   '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))     '(("Defer *[^ \n]*" nil defun))
   '(("\\(include\\|require\\) *[^ \n]*" nil include))     '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))
   '(("[\n       ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))     '(("\\(include\\|require\\) *[^ \n]*" nil include))
   '((":noname" nil defun))))     '(("[\n      ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))
      '((":noname" nil defun))))))
   
 ;; end  ;; end
   

Removed from v.1.43  
changed lines
  Added in v.1.45


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