Commit 48178ede authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

(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.
parent e4fd2cfc
Pipeline #2009 failed with stage
in 9 seconds
......@@ -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
......
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