procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-06-12 17:45:59 +02:00
parent e4fd2cfc72
commit 48178edeed
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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