| (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))) |
| |
|
