diff options
| author | Gerd Möllmann | 2024-12-12 08:00:44 +0100 |
|---|---|---|
| committer | Gerd Möllmann | 2024-12-12 08:02:33 +0100 |
| commit | 6fa2050ee7663441e4d0aa4fff974cc5d45bffc7 (patch) | |
| tree | 1aa23ec9474217d035f1b022aae753593108fa2c | |
| parent | b67feec95e8f7526fecab0bb10f91233ba06fef8 (diff) | |
| download | emacs-6fa2050ee7663441e4d0aa4fff974cc5d45bffc7.tar.gz emacs-6fa2050ee7663441e4d0aa4fff974cc5d45bffc7.zip | |
Signal errors for unimplemented features
* src/frame.c (make_terminal_frame): Error for minibuffer-only frames.
* src/term.c (Ftty_frame_restack): Signal error.
| -rw-r--r-- | src/frame.c | 9 | ||||
| -rw-r--r-- | src/term.c | 1 |
2 files changed, 2 insertions, 8 deletions
diff --git a/src/frame.c b/src/frame.c index 6ea1a31cdb8..6552567386e 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -1296,14 +1296,7 @@ make_terminal_frame (struct terminal *terminal, Lisp_Object parent, | |||
| 1296 | if (EQ (mini, Qnone) || NILP (mini)) | 1296 | if (EQ (mini, Qnone) || NILP (mini)) |
| 1297 | f = make_frame_without_minibuffer (Qnil, kb, Qnil); | 1297 | f = make_frame_without_minibuffer (Qnil, kb, Qnil); |
| 1298 | else if (EQ (mini, Qonly)) | 1298 | else if (EQ (mini, Qonly)) |
| 1299 | { | 1299 | error ("minibuffer-only child frames are not implemented"); |
| 1300 | # if 0 /* No interest in this feature at the moment. */ | ||
| 1301 | f = make_minibuffer_frame (); | ||
| 1302 | /* Not sure about this, plus the unsplittable frame | ||
| 1303 | param. */ | ||
| 1304 | f->no_split = true; | ||
| 1305 | # endif | ||
| 1306 | } | ||
| 1307 | else if (WINDOWP (mini)) | 1300 | else if (WINDOWP (mini)) |
| 1308 | f = make_frame_without_minibuffer (mini, kb, Qnil); | 1301 | f = make_frame_without_minibuffer (mini, kb, Qnil); |
| 1309 | } | 1302 | } |
diff --git a/src/term.c b/src/term.c index a7f7baa6e3c..64df5261e50 100644 --- a/src/term.c +++ b/src/term.c | |||
| @@ -4861,6 +4861,7 @@ DEFUN ("tty-frame-restack", Ftty_frame_restack, | |||
| 4861 | (Lisp_Object frame1, Lisp_Object frame2, Lisp_Object above) | 4861 | (Lisp_Object frame1, Lisp_Object frame2, Lisp_Object above) |
| 4862 | { | 4862 | { |
| 4863 | /* FIXME/tty: tty-frame-restack implementation. */ | 4863 | /* FIXME/tty: tty-frame-restack implementation. */ |
| 4864 | error ("tty-frame-restack is not implemented"); | ||
| 4864 | return Qnil; | 4865 | return Qnil; |
| 4865 | } | 4866 | } |
| 4866 | 4867 | ||