diff options
| -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) |