From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 12 Jun 2019 15:45:59 +0000 (+0200)
Subject: (beginning-of-defun-raw): Suppress warning about syntax-begin-function
X-Git-Tag: emacs-27.0.90~2606
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48178edeed1006775a4a6755c6ee22bf5ab7a8e4;p=emacs.git

(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 38df920f17a..ab0e853e9a4 100644
--- 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