(beginning-of-defun-raw): Suppress warning about syntax-begin-function

* lisp/emacs-lisp/lisp.el (beginning-of-defun-raw):
font-lock-compile-keywords also suppresses warnings about the
obsolete syntax-begin-function variable, so suppress the only
other use not in syntax.el.

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 38df920f17a3cd760d84ea8d0db35b1e981920bd..ab0e853e9a44bb896f914c8349fa5f2fdaedd167 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -370,8 +370,9 @@ is called as a function to find the defun's beginning."
          (arg-+ve (> arg 0)))
       (save-restriction
        (widen)
-       (let ((ppss (let (syntax-begin-function)
-                     (syntax-ppss)))
+       (let ((ppss (with-suppressed-warnings ((obsolete syntax-begin-function))
+                      (let (syntax-begin-function)
+                       (syntax-ppss))))
              ;; position of least enclosing paren, or nil.
              encl-pos)
          ;; Back out of any comment/string, so that encl-pos will always