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

*** empty log message ***

parent dcfdbac7
......@@ -228,12 +228,13 @@ or properties are considered."
(interactive)
(let* ((end (point))
(buffer-syntax (syntax-table))
(beg (save-excursion
(set-syntax-table lisp-mode-syntax-table)
(backward-sexp 1)
(while (= (char-syntax (following-char)) ?\')
(forward-char 1))
(point)
(beg (unwind-protect
(save-excursion
(set-syntax-table emacs-lisp-mode-syntax-table)
(backward-sexp 1)
(while (= (char-syntax (following-char)) ?\')
(forward-char 1))
(point))
(set-syntax-table buffer-syntax)))
(pattern (buffer-substring beg end))
(predicate
......
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