mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/master.el (master-says): Check nil argument (bug#70230).

Browse Source
This commit is contained in:
Lin Sun 2024-04-05 06:58:07 +00:00 committed by Eli Zaretskii
parent ae296d762b
commit c7a0e4faa2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/master.el
View File

@ -136,6 +136,8 @@ See `recenter'."
(defun master-says (&optional command arg) (defun master-says (&optional command arg)
"Display slave buffer and execute COMMAND with ARG in its window." "Display slave buffer and execute COMMAND with ARG in its window."
(interactive) (interactive)
(unless master-of
(error "Current buffer is not a master of any other buffer"))
(if (null (buffer-live-p (get-buffer master-of))) (if (null (buffer-live-p (get-buffer master-of)))
(error "Slave buffer has disappeared") (error "Slave buffer has disappeared")
(let ((window (selected-window))) (let ((window (selected-window)))