1969 |
(setq parent (get parent 'derived-mode-parent)))) |
(setq parent (get parent 'derived-mode-parent)))) |
1970 |
parent)) |
parent)) |
1971 |
|
|
1972 |
|
(defun find-tag-default () |
1973 |
|
"Determine default tag to search for, based on text at point. |
1974 |
|
If there is no plausible default, return nil." |
1975 |
|
(save-excursion |
1976 |
|
(while (looking-at "\\sw\\|\\s_") |
1977 |
|
(forward-char 1)) |
1978 |
|
(if (or (re-search-backward "\\sw\\|\\s_" |
1979 |
|
(save-excursion (beginning-of-line) (point)) |
1980 |
|
t) |
1981 |
|
(re-search-forward "\\(\\sw\\|\\s_\\)+" |
1982 |
|
(save-excursion (end-of-line) (point)) |
1983 |
|
t)) |
1984 |
|
(progn (goto-char (match-end 0)) |
1985 |
|
(buffer-substring-no-properties |
1986 |
|
(point) |
1987 |
|
(progn (forward-sexp -1) |
1988 |
|
(while (looking-at "\\s'") |
1989 |
|
(forward-char 1)) |
1990 |
|
(point)))) |
1991 |
|
nil))) |
1992 |
|
|
1993 |
(defmacro with-syntax-table (table &rest body) |
(defmacro with-syntax-table (table &rest body) |
1994 |
"Evaluate BODY with syntax table of current buffer set to TABLE. |
"Evaluate BODY with syntax table of current buffer set to TABLE. |
1995 |
The syntax table of the current buffer is saved, BODY is evaluated, and the |
The syntax table of the current buffer is saved, BODY is evaluated, and the |