Commit 3e9f9352 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(find-tag-default): Catch errors in forward-sexp.

parent 91c66262
......@@ -1969,13 +1969,16 @@ If there is no plausible default, return nil."
(re-search-forward "\\(\\sw\\|\\s_\\)+"
(save-excursion (end-of-line) (point))
t))
(progn (goto-char (match-end 0))
(buffer-substring-no-properties
(point)
(progn (forward-sexp -1)
(while (looking-at "\\s'")
(forward-char 1))
(point))))
(progn
(goto-char (match-end 0))
(condition-case nil
(buffer-substring-no-properties
(point)
(progn (forward-sexp -1)
(while (looking-at "\\s'")
(forward-char 1))
(point)))
(error nil)))
nil)))
(defmacro with-syntax-table (table &rest body)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment