diff options
| author | Lin Sun | 2024-04-05 06:58:07 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2024-04-07 09:15:21 +0300 |
| commit | c7a0e4faa2a584063e4ace0ac4da8fb0ae1c5e50 (patch) | |
| tree | adc0af6697c44fd478d93767e86752ae31f402ca | |
| parent | ae296d762bc7366879e74f9dca90bc7edd89e860 (diff) | |
| download | emacs-c7a0e4faa2a584063e4ace0ac4da8fb0ae1c5e50.tar.gz emacs-c7a0e4faa2a584063e4ace0ac4da8fb0ae1c5e50.zip | |
* lisp/master.el (master-says): Check nil argument (bug#70230).
| -rw-r--r-- | lisp/master.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/master.el b/lisp/master.el index 0caf4d7963f..9151ca212d1 100644 --- a/lisp/master.el +++ b/lisp/master.el | |||
| @@ -136,6 +136,8 @@ See `recenter'." | |||
| 136 | (defun master-says (&optional command arg) | 136 | (defun master-says (&optional command arg) |
| 137 | "Display slave buffer and execute COMMAND with ARG in its window." | 137 | "Display slave buffer and execute COMMAND with ARG in its window." |
| 138 | (interactive) | 138 | (interactive) |
| 139 | (unless master-of | ||
| 140 | (error "Current buffer is not a master of any other buffer")) | ||
| 139 | (if (null (buffer-live-p (get-buffer master-of))) | 141 | (if (null (buffer-live-p (get-buffer master-of))) |
| 140 | (error "Slave buffer has disappeared") | 142 | (error "Slave buffer has disappeared") |
| 141 | (let ((window (selected-window))) | 143 | (let ((window (selected-window))) |