1612 |
(error |
(error |
1613 |
(unless executing-kbd-macro |
(unless executing-kbd-macro |
1614 |
(ding)) |
(ding)) |
1615 |
(message (error-message-string err)))) |
(message "%s" (error-message-string err)))) |
1616 |
nil) ;Make coverage-tester happy |
nil) ;Make coverage-tester happy |
1617 |
|
|
1618 |
(defun ses-create-header-string () |
(defun ses-create-header-string () |
1739 |
(error (setq sig hold)))) |
(error (setq sig hold)))) |
1740 |
(cond |
(cond |
1741 |
(sig |
(sig |
1742 |
(message (error-message-string sig))) |
(message "%s" (error-message-string sig))) |
1743 |
((consp ses--curcell) |
((consp ses--curcell) |
1744 |
(message " ")) |
(message " ")) |
1745 |
(t |
(t |