gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

version 1.52, 2001/06/19 14:49:23	version 1.53, 2001/06/26 19:51:49
Line 532 PARSED-TYPE specifies what kind of text	Line 532 PARSED-TYPE specifies what kind of text
'("VARIABLE" "CONSTANT" "2VARIABLE" "2CONSTANT" "FVARIABLE" "FCONSTANT"	'("VARIABLE" "CONSTANT" "2VARIABLE" "2CONSTANT" "FVARIABLE" "FCONSTANT"
"USER" "VALUE" "field" "end-struct" "VOCABULARY" "CREATE" ":" "CODE"	"USER" "VALUE" "field" "end-struct" "VOCABULARY" "CREATE" ":" "CODE"
"DEFER" "ALIAS")	"DEFER" "ALIAS")
"List of words, that define the following word.\	"List of words, that define the following word.
Used for imenu index generation")	Used for imenu index generation")


Line 992 exceeds 64 characters."	Line 992 exceeds 64 characters."

(defun forth-find-tag (tagname &optional next-p regexp-p)	(defun forth-find-tag (tagname &optional next-p regexp-p)
(interactive (find-tag-interactive "Find tag: "))	(interactive (find-tag-interactive "Find tag: "))
; (when (not regexp-p)	(unless (or regexp-p next-p)
; (setq tagname (concat "^\\(" (regexp-opt (list tagname))	(setq tagname (concat "\$^\\\|\\s-\$\\(" (regexp-quote tagname)
; "\\)$"))	"\\)\$\\s-\\\|$\$")))
; (setq regexp-p t))
(switch-to-buffer	(switch-to-buffer
(find-tag-noselect (concat " " tagname " ") next-p regexp-p)))	(find-tag-noselect tagname next-p t)))

(defvar forth-mode-syntax-table nil	(defvar forth-mode-syntax-table nil
"Syntax table in use in Forth-mode buffers.")	"Syntax table in use in Forth-mode buffers.")