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

version 1.45, 2000/11/16 09:39:51 version 1.46, 2000/12/16 17:19:41
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-hook 'comment-indent-hook)  ; this is obsolete (according to 20.5 docs) and replace with comment-indent-function
   (add-hook comment-indent-hook 'forth-comment-indent)  ;  (make-local-hook 'comment-indent-hook)
   ;  (add-hook 'comment-indent-hook 'forth-comment-indent nil t)
     (make-local-variable 'comment-indent-function)
     (setq comment-indent-function '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 992  The region is sent terminated by a newli Line 995  The region is sent terminated by a newli
   
 ;;; Highlighting  ;;; Highlighting
   
 (cond ((featurep 'hilit19)  ; (cond ((featurep 'hilit19)
  (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))  ;  (if (not (file-exists-p "/usr/share/emacs/site-lisp/hl319.el"))
      (require 'hilit19)  ;      (require 'hilit19)
    (require 'hl319))  ;    (require 'hl319))
   
  (hilit-set-mode-patterns  ;  (hilit-set-mode-patterns
   '(forth-mode)  ;   '(forth-mode)
   (append  ;   (append
    '(("\\\\ \\(.*\\)$" nil comment))    ; comments  ;    '(("\\\\ \\(.*\\)$" nil comment))    ; comments
    '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments  ;    '(("\\\\[gG] \\(.*\\)$" nil comment)) ; comments
    '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))  ;    '(("(\\( [^)\n]* \\| \\)--\\( [^)\n]* \\| \\))" nil decl))
    '(("( " ")" comment))  ;    '(("( " ")" comment))
    '(("\" [^\"\n]*\"" nil string))  ;    '(("\" [^\"\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))
    '(("\\(\\[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\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))  ;    '(("\\(Variable\\|Constant\\|Value\\|Create\\) *[^ \n]*" nil define))
    '(("\\(include\\|require\\) *[^ \n]*" nil include))  ;    '(("\\(include\\|require\\) *[^ \n]*" nil include))
    '(("[\n      ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))  ;    '(("[\n    ]\\(\\$[0-9A-Fa-f]+[\n  ]\\|&[0-9]+[\n  ]\\|[0-9]+[\n   ]\\|%[01]+[\n   ]\\|'[^ \n]+\\)+" nil formula))
    '((":noname" nil defun))))))  ;    '((":noname" nil defun))))))
   
 ;; end  ;; end
   

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


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