Mercurial > emacs
comparison src/frame.c @ 14077:a6d3ce4a2f8e
(Fhandle_switch_frame, Fset_frame_height): Harmonize arguments with
documentation.
author | Erik Naggum <erik@naggum.no> |
---|---|
date | Tue, 09 Jan 1996 00:32:25 +0000 |
parents | d86c1aa43559 |
children | ee40177f6c68 |
comparison
equal
deleted
inserted
replaced
14076:b339e9aaea4b | 14077:a6d3ce4a2f8e |
---|---|
624 that the user's events be directed to the frame mentioned in the event.\n\ | 624 that the user's events be directed to the frame mentioned in the event.\n\ |
625 This function selects the selected window of the frame of EVENT.\n\ | 625 This function selects the selected window of the frame of EVENT.\n\ |
626 \n\ | 626 \n\ |
627 If EVENT is frame object, handle it as if it were a switch-frame event\n\ | 627 If EVENT is frame object, handle it as if it were a switch-frame event\n\ |
628 to that frame.") | 628 to that frame.") |
629 (frame, no_enter) | 629 (event, no_enter) |
630 Lisp_Object frame, no_enter; | 630 Lisp_Object event, no_enter; |
631 { | 631 { |
632 /* Preserve prefix arg that the command loop just cleared. */ | 632 /* Preserve prefix arg that the command loop just cleared. */ |
633 current_kboard->Vprefix_arg = Vcurrent_prefix_arg; | 633 current_kboard->Vprefix_arg = Vcurrent_prefix_arg; |
634 call1 (Vrun_hooks, Qmouse_leave_buffer_hook); | 634 call1 (Vrun_hooks, Qmouse_leave_buffer_hook); |
635 return do_switch_frame (frame, no_enter, 0); | 635 return do_switch_frame (event, no_enter, 0); |
636 } | 636 } |
637 | 637 |
638 DEFUN ("ignore-event", Fignore_event, Signore_event, 0, 0, "", | 638 DEFUN ("ignore-event", Fignore_event, Signore_event, 0, 0, "", |
639 "Do nothing, but preserve any prefix argument already specified.\n\ | 639 "Do nothing, but preserve any prefix argument already specified.\n\ |
640 This is a suitable binding for iconify-frame and make-frame-visible.") | 640 This is a suitable binding for iconify-frame and make-frame-visible.") |
1874 | 1874 |
1875 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0, | 1875 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0, |
1876 "Specify that the frame FRAME has LINES lines.\n\ | 1876 "Specify that the frame FRAME has LINES lines.\n\ |
1877 Optional third arg non-nil means that redisplay should use LINES lines\n\ | 1877 Optional third arg non-nil means that redisplay should use LINES lines\n\ |
1878 but that the idea of the actual height of the frame should not be changed.") | 1878 but that the idea of the actual height of the frame should not be changed.") |
1879 (frame, rows, pretend) | 1879 (frame, lines, pretend) |
1880 Lisp_Object frame, rows, pretend; | 1880 Lisp_Object frame, lines, pretend; |
1881 { | 1881 { |
1882 register struct frame *f; | 1882 register struct frame *f; |
1883 | 1883 |
1884 CHECK_NUMBER (rows, 0); | 1884 CHECK_NUMBER (lines, 0); |
1885 if (NILP (frame)) | 1885 if (NILP (frame)) |
1886 f = selected_frame; | 1886 f = selected_frame; |
1887 else | 1887 else |
1888 { | 1888 { |
1889 CHECK_LIVE_FRAME (frame, 0); | 1889 CHECK_LIVE_FRAME (frame, 0); |
1892 | 1892 |
1893 /* I think this should be done with a hook. */ | 1893 /* I think this should be done with a hook. */ |
1894 #ifdef HAVE_WINDOW_SYSTEM | 1894 #ifdef HAVE_WINDOW_SYSTEM |
1895 if (FRAME_WINDOW_P (f)) | 1895 if (FRAME_WINDOW_P (f)) |
1896 { | 1896 { |
1897 if (XINT (rows) != f->height) | 1897 if (XINT (lines) != f->height) |
1898 x_set_window_size (f, 1, f->width, XINT (rows)); | 1898 x_set_window_size (f, 1, f->width, XINT (lines)); |
1899 } | 1899 } |
1900 else | 1900 else |
1901 #endif | 1901 #endif |
1902 change_frame_size (f, XINT (rows), 0, !NILP (pretend), 0); | 1902 change_frame_size (f, XINT (lines), 0, !NILP (pretend), 0); |
1903 return Qnil; | 1903 return Qnil; |
1904 } | 1904 } |
1905 | 1905 |
1906 DEFUN ("set-frame-width", Fset_frame_width, Sset_frame_width, 2, 3, 0, | 1906 DEFUN ("set-frame-width", Fset_frame_width, Sset_frame_width, 2, 3, 0, |
1907 "Specify that the frame FRAME has COLS columns.\n\ | 1907 "Specify that the frame FRAME has COLS columns.\n\ |