From 48178edeed1006775a4a6755c6ee22bf5ab7a8e4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 12 Jun 2019 17:45:59 +0200 Subject: [PATCH] (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. --- lisp/emacs-lisp/lisp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.39.2