[gforth] / gforth / gforth.el  

gforth: gforth/gforth.el

Diff for /gforth/gforth.el between version 1.52 and 1.53

version 1.52, Tue Jun 19 14:49:23 2001 UTC version 1.53, Tue Jun 26 19:51:49 2001 UTC
Line 532 
Line 532 
   '("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 
Line 992 
   
 (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.")

Generate output suitable for use with a patch program
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help