mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 2005-02-23 21:04:14 +00:00
parent 91c6626241
commit 3e9f9352d4
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/subr.el
View file

@ -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)