version 1.34, 1999/07/24 13:07:19
|
version 1.36, 1999/11/20 12:12:52
|
Line 40
|
Line 40
|
|
|
|
|
(defvar forth-positives |
(defvar forth-positives |
" : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class " |
" : :noname m: :m code interpretation: ;code does> begin do ?do +do -do u+do u-do while if ?dup-if ?dup-0=-if else case of struct [if] [ifdef] [ifundef] [else] with public: private: class try recover " |
"*Contains all words which will cause the indent-level to be incremented |
"*Contains all words which will cause the indent-level to be incremented |
on the next line. |
on the next line. |
OBS! All words in forth-positives must be surrounded by spaces.") |
OBS! All words in forth-positives must be surrounded by spaces.") |
|
|
(defvar forth-negatives |
(defvar forth-negatives |
" ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: " |
" ; ;m end-code ;code does> until repeat while +loop loop -loop s+loop else then endif again endcase endof end-struct [then] [else] [endif] endwith end-class class; how: recover endtry " |
"*Contains all words which will cause the indent-level to be decremented |
"*Contains all words which will cause the indent-level to be decremented |
on the current line. |
on the current line. |
OBS! All words in forth-negatives must be surrounded by spaces.") |
OBS! All words in forth-negatives must be surrounded by spaces.") |
Line 92 OBS! All words in forth-negatives must b
|
Line 92 OBS! All words in forth-negatives must b
|
(define-key forth-mode-map "\M-q" 'forth-fill-paragraph) |
(define-key forth-mode-map "\M-q" 'forth-fill-paragraph) |
(define-key forth-mode-map "\e." 'forth-find-tag) |
(define-key forth-mode-map "\e." 'forth-find-tag) |
|
|
|
;setup for C-h C-i to work |
|
(if (fboundp 'info-lookup-add-help) |
|
(info-lookup-add-help |
|
:topic 'symbol |
|
:mode 'forth-mode |
|
:regexp "[^ |
|
]+" |
|
:ignore-case t |
|
:doc-spec '(("(gforth)Name Index" nil "`" "' ")))) |
|
|
(load "etags") |
(load "etags") |
|
|
(defun forth-find-tag (tagname &optional next-p regexp-p) |
(defun forth-find-tag (tagname &optional next-p regexp-p) |