version 1.66, 2003/02/08 17:32:28
|
version 1.67, 2003/02/28 20:13:22
|
Line 1120 exceeds 64 characters."
|
Line 1120 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: ")) |
(unless (or regexp-p next-p) |
(unless (or regexp-p next-p) |
(setq tagname (concat "\\(^\\|\\s-\\)\\(" (regexp-quote tagname) |
(setq tagname (concat "\\(^\\|\\s-+\\)\\(" (regexp-quote tagname) |
"\\)\\(\\s-\\|$\\)"))) |
"\\)\\s-*\x7f"))) |
(switch-to-buffer |
(switch-to-buffer |
(find-tag-noselect tagname next-p t))) |
(find-tag-noselect tagname next-p t))) |
|
|