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 |