Mercurial > emacs
comparison lisp/subr.el @ 60224:374bd52dd8b8
(find-tag-default): Catch errors in forward-sexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 23 Feb 2005 21:04:14 +0000 |
| parents | 5983fbce8c7e |
| children | 9d1976b50f1c 7d309d464f83 bbc2e661b93c |
comparison
equal
deleted
inserted
replaced
| 60223:f2ea5deec196 | 60224:374bd52dd8b8 |
|---|---|
| 1967 (save-excursion (beginning-of-line) (point)) | 1967 (save-excursion (beginning-of-line) (point)) |
| 1968 t) | 1968 t) |
| 1969 (re-search-forward "\\(\\sw\\|\\s_\\)+" | 1969 (re-search-forward "\\(\\sw\\|\\s_\\)+" |
| 1970 (save-excursion (end-of-line) (point)) | 1970 (save-excursion (end-of-line) (point)) |
| 1971 t)) | 1971 t)) |
| 1972 (progn (goto-char (match-end 0)) | 1972 (progn |
| 1973 (buffer-substring-no-properties | 1973 (goto-char (match-end 0)) |
| 1974 (point) | 1974 (condition-case nil |
| 1975 (progn (forward-sexp -1) | 1975 (buffer-substring-no-properties |
| 1976 (while (looking-at "\\s'") | 1976 (point) |
| 1977 (forward-char 1)) | 1977 (progn (forward-sexp -1) |
| 1978 (point)))) | 1978 (while (looking-at "\\s'") |
| 1979 (forward-char 1)) | |
| 1980 (point))) | |
| 1981 (error nil))) | |
| 1979 nil))) | 1982 nil))) |
| 1980 | 1983 |
| 1981 (defmacro with-syntax-table (table &rest body) | 1984 (defmacro with-syntax-table (table &rest body) |
| 1982 "Evaluate BODY with syntax table of current buffer set to TABLE. | 1985 "Evaluate BODY with syntax table of current buffer set to TABLE. |
| 1983 The syntax table of the current buffer is saved, BODY is evaluated, and the | 1986 The syntax table of the current buffer is saved, BODY is evaluated, and the |