diff options
| author | Stefan Monnier | 2026-03-09 10:34:05 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2026-03-09 10:34:05 -0400 |
| commit | 0487d68ab9992be4fa70cfd908909001f71e66af (patch) | |
| tree | 8c93da3b94717d184f88277e277de949ecb2fb9c /lisp/mail/mail-extr.el | |
| parent | 798dceb467d4ead092979822f24090c8378f8320 (diff) | |
| download | emacs-scratch/error-API.tar.gz emacs-scratch/error-API.zip | |
Diffstat (limited to 'lisp/mail/mail-extr.el')
| -rw-r--r-- | lisp/mail/mail-extr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index ae3b37ea41c..ee009ecfda4 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -655,10 +655,10 @@ Unless NO-REPLACE is true, at each of the positions in LIST-SYMBOL | |||
| 655 | t) | 655 | t) |
| 656 | (error | 656 | (error |
| 657 | ;; #### kludge kludge kludge kludge kludge kludge kludge !!! | 657 | ;; #### kludge kludge kludge kludge kludge kludge kludge !!! |
| 658 | (if (string-equal (nth 1 error) "Unbalanced parentheses") | 658 | (if (string-equal (error-slot-value error 1) "Unbalanced parentheses") |
| 659 | nil | 659 | nil |
| 660 | (while t | 660 | (while t ;;FIXME: Why? |
| 661 | (signal (car error) (cdr error))))))) | 661 | (signal error)))))) |
| 662 | 662 | ||
| 663 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 663 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 664 | ;; | 664 | ;; |