diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-14 12:00:22 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-02-14 12:00:22 +0100 |
| commit | d52d913fa032a6cd1b6422cbbd44169b318ca174 (patch) | |
| tree | d7ffaade323b584e56ef31fd1fff4846c1d82ba0 /lisp/abbrev.el | |
| parent | 35bb4c1c3c64d09d9dea0ed7ba0314893e8f5f3c (diff) | |
| download | emacs-d52d913fa032a6cd1b6422cbbd44169b318ca174.tar.gz emacs-d52d913fa032a6cd1b6422cbbd44169b318ca174.tar.bz2 emacs-d52d913fa032a6cd1b6422cbbd44169b318ca174.zip | |
Don't signal errors in abbrev-table-p
* lisp/abbrev.el (abbrev-table-p): Ignore the error.
* src/lread.c (oblookup): Signal `wrong-type-argument' instead of
`error' if it turns out that we're not really in an obarray (bug#53988).
Diffstat (limited to 'lisp/abbrev.el')
| -rw-r--r-- | lisp/abbrev.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 44328a2b283..214f7435d91 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -475,7 +475,8 @@ PROPS is a list of properties." (defun abbrev-table-p (object) "Return non-nil if OBJECT is an abbrev table." (and (obarrayp object) - (numberp (abbrev-table-get object :abbrev-table-modiff)))) + (numberp (ignore-error 'wrong-type-argument + (abbrev-table-get object :abbrev-table-modiff))))) (defun abbrev-table-empty-p (object &optional ignore-system) "Return nil if there are no abbrev symbols in OBJECT. |