diff options
| author | Eli Zaretskii | 2024-11-30 06:44:06 -0500 |
|---|---|---|
| committer | Eli Zaretskii | 2024-11-30 06:44:06 -0500 |
| commit | 88f6b045f482d5d842eaed1d7e949e488e8cedd1 (patch) | |
| tree | b816c883b0ed01d9f1e6828c869a85c0b27013d6 /src | |
| parent | 82bdb3bfd035577a43afdf1eafd18ee1a60a987c (diff) | |
| parent | afb34a3b2393decb50e250ed8caa559b64020379 (diff) | |
| download | emacs-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.c | 36 | ||||
| -rw-r--r-- | src/nsterm.m | 5 |
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 |