diff options
| author | Richard M. Stallman | 2005-02-23 21:04:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-02-23 21:04:14 +0000 |
| commit | 3e9f9352d44da8942e8ee4d726812bc2dd9528cf (patch) | |
| tree | b2e065099c5e89d2d43d95bcc2722b2c0f088731 | |
| parent | 91c6626241581dd37ce938e6e45aabc16d252ed4 (diff) | |
| download | emacs-3e9f9352d44da8942e8ee4d726812bc2dd9528cf.tar.gz emacs-3e9f9352d44da8942e8ee4d726812bc2dd9528cf.zip | |
(find-tag-default): Catch errors in forward-sexp.
| -rw-r--r-- | lisp/subr.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 252154c7b0f..4046b915368 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -1969,13 +1969,16 @@ If there is no plausible default, return nil." | |||
| 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) |