[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 48178ed 2/2: (beginning-of-defun-raw): Suppress war
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 48178ed 2/2: (beginning-of-defun-raw): Suppress warning about syntax-begin-function |
Date: |
Wed, 12 Jun 2019 11:46:16 -0400 (EDT) |
branch: master
commit 48178edeed1006775a4a6755c6ee22bf5ab7a8e4
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
(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 38df920..ab0e853 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