diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-01-01 14:13:02 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-01-01 14:19:35 +0100 |
| commit | 9420ea6e0840bffcb140d3677dfdabb9251c1f63 (patch) | |
| tree | 2fd408450687e86d09b7a826e5e2d52040443f1c /lisp/emacs-lisp | |
| parent | 807471f9ffd303048140175932cf6b1e09eb7652 (diff) | |
| download | emacs-9420ea6e0840bffcb140d3677dfdabb9251c1f63.tar.gz emacs-9420ea6e0840bffcb140d3677dfdabb9251c1f63.tar.bz2 emacs-9420ea6e0840bffcb140d3677dfdabb9251c1f63.zip | |
Add `throw' to non returning functions
* lisp/emacs-lisp/comp.el (comp-known-type-specifiers): Add throw.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 9fea3451359..340846bf70a 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -2,7 +2,7 @@ ;; Author: Andrea Corallo <akrl@sdf.com> -;; Copyright (C) 2019-2020 Free Software Foundation, Inc. +;; Copyright (C) 2019-2021 Free Software Foundation, Inc. ;; Keywords: lisp ;; Package: emacs @@ -485,6 +485,7 @@ Useful to hook into pass checkers.") (comp-hint-fixnum (function (t) fixnum)) (comp-hint-cons (function (t) cons)) ;; Non returning functions + (throw (function (t t) nil)) (error (function (string &rest t) nil)) (signal (function (symbol t) nil))) "Alist used for type propagation.") |