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