aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2024-11-30 06:44:06 -0500
committerEli Zaretskii2024-11-30 06:44:06 -0500
commit88f6b045f482d5d842eaed1d7e949e488e8cedd1 (patch)
treeb816c883b0ed01d9f1e6828c869a85c0b27013d6 /src
parent82bdb3bfd035577a43afdf1eafd18ee1a60a987c (diff)
parentafb34a3b2393decb50e250ed8caa559b64020379 (diff)
downloademacs-88f6b045f482d5d842eaed1d7e949e488e8cedd1.tar.gz
emacs-88f6b045f482d5d842eaed1d7e949e488e8cedd1.zip
Merge from origin/emacs-30
afb34a3b239 ; Improve documentation of ':box' face attribute b38eb6da1d1 Fix docstring of c-ts-mode-indent-style 9fdb764898d Support PHP 8.4 and more reliable indentation (bug#74525) bda0bce9e43 Don't inadvertently reset frame scroll bar sizes (Bug#74435) 3f99cdaf26d Mention special variables in lexical binding documentation 0ef0f18f163 Allow to go back to using 'ruby-mode' after loading 'ruby... fc17e8727d4 Delete obsolete section in admin/notes/repo 3e396b2c5bb Improve documentation for 'while-let' 50b91ed458d Remove mention of treesit-defun-prefer-top-level (bug#74474) 03ae07291e8 Fix NS non-native fullscreen on initial frame load (bug#5... 8261d7224d3 Fix user options for listing and marking diary files # Conflicts: # lisp/progmodes/c-ts-mode.el
Diffstat (limited to 'src')
-rw-r--r--src/frame.c36
-rw-r--r--src/nsterm.m5
2 files changed, 27 insertions, 14 deletions
diff --git a/src/frame.c b/src/frame.c
index 7f4bf274ad9..f6053fca3ef 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -5102,15 +5102,19 @@ gui_set_scroll_bar_width (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
5102{ 5102{
5103 int unit = FRAME_COLUMN_WIDTH (f); 5103 int unit = FRAME_COLUMN_WIDTH (f);
5104 5104
5105 if (RANGED_FIXNUMP (1, arg, INT_MAX) 5105 if (RANGED_FIXNUMP (1, arg, INT_MAX))
5106 && XFIXNAT (arg) != FRAME_CONFIG_SCROLL_BAR_WIDTH (f))
5107 { 5106 {
5108 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = XFIXNAT (arg); 5107 if (XFIXNAT (arg) == FRAME_CONFIG_SCROLL_BAR_WIDTH (f))
5109 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (XFIXNAT (arg) + unit - 1) / unit; 5108 return;
5110 if (FRAME_NATIVE_WINDOW (f)) 5109 else
5111 adjust_frame_size (f, -1, -1, 3, 0, Qscroll_bar_width); 5110 {
5111 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = XFIXNAT (arg);
5112 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (XFIXNAT (arg) + unit - 1) / unit;
5113 if (FRAME_NATIVE_WINDOW (f))
5114 adjust_frame_size (f, -1, -1, 3, 0, Qscroll_bar_width);
5112 5115
5113 SET_FRAME_GARBAGED (f); 5116 SET_FRAME_GARBAGED (f);
5117 }
5114 } 5118 }
5115 else 5119 else
5116 { 5120 {
@@ -5133,15 +5137,19 @@ gui_set_scroll_bar_height (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
5133#if USE_HORIZONTAL_SCROLL_BARS 5137#if USE_HORIZONTAL_SCROLL_BARS
5134 int unit = FRAME_LINE_HEIGHT (f); 5138 int unit = FRAME_LINE_HEIGHT (f);
5135 5139
5136 if (RANGED_FIXNUMP (1, arg, INT_MAX) 5140 if (RANGED_FIXNUMP (1, arg, INT_MAX))
5137 && XFIXNAT (arg) != FRAME_CONFIG_SCROLL_BAR_HEIGHT (f))
5138 { 5141 {
5139 FRAME_CONFIG_SCROLL_BAR_HEIGHT (f) = XFIXNAT (arg); 5142 if (XFIXNAT (arg) == FRAME_CONFIG_SCROLL_BAR_HEIGHT (f))
5140 FRAME_CONFIG_SCROLL_BAR_LINES (f) = (XFIXNAT (arg) + unit - 1) / unit; 5143 return;
5141 if (FRAME_NATIVE_WINDOW (f)) 5144 else
5142 adjust_frame_size (f, -1, -1, 3, 0, Qscroll_bar_height); 5145 {
5146 FRAME_CONFIG_SCROLL_BAR_HEIGHT (f) = XFIXNAT (arg);
5147 FRAME_CONFIG_SCROLL_BAR_LINES (f) = (XFIXNAT (arg) + unit - 1) / unit;
5148 if (FRAME_NATIVE_WINDOW (f))
5149 adjust_frame_size (f, -1, -1, 3, 0, Qscroll_bar_height);
5143 5150
5144 SET_FRAME_GARBAGED (f); 5151 SET_FRAME_GARBAGED (f);
5152 }
5145 } 5153 }
5146 else 5154 else
5147 { 5155 {
diff --git a/src/nsterm.m b/src/nsterm.m
index 205b1621399..dceb3cebb4d 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -8524,6 +8524,11 @@ ns_in_echo_area (void)
8524 8524
8525 NSTRACE ("[EmacsView toggleFullScreen:]"); 8525 NSTRACE ("[EmacsView toggleFullScreen:]");
8526 8526
8527 /* Reset fs_is_native to value of ns-use-native-full-screen if not
8528 fullscreen already */
8529 if (fs_state != FULLSCREEN_BOTH)
8530 fs_is_native = ns_use_native_fullscreen;
8531
8527 if (fs_is_native) 8532 if (fs_is_native)
8528 { 8533 {
8529#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 1070 8534#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= 1070