diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-12 17:45:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-12 17:46:06 +0200 |
| commit | 48178edeed1006775a4a6755c6ee22bf5ab7a8e4 (patch) | |
| tree | 3e7d2065bf97053428330fb5192e9dcd1e2dd233 /lisp/emacs-lisp | |
| parent | e4fd2cfc72dcecfd458ecaca334b79d7e4448545 (diff) | |
| download | emacs-48178edeed1006775a4a6755c6ee22bf5ab7a8e4.tar.gz emacs-48178edeed1006775a4a6755c6ee22bf5ab7a8e4.tar.bz2 emacs-48178edeed1006775a4a6755c6ee22bf5ab7a8e4.zip | |
(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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 5 |
1 files 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 |