mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Richard M. Stallman 1990-11-12 22:03:33 +00:00
parent dcfdbac7bb
commit ecb7594297
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/lisp.el
View file

@ -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
(set-syntax-table emacs-lisp-mode-syntax-table)
(backward-sexp 1) (backward-sexp 1)
(while (= (char-syntax (following-char)) ?\') (while (= (char-syntax (following-char)) ?\')
(forward-char 1)) (forward-char 1))
(point) (point))
(set-syntax-table buffer-syntax))) (set-syntax-table buffer-syntax)))
(pattern (buffer-substring beg end)) (pattern (buffer-substring beg end))
(predicate (predicate