bug#16430: 24.3.50; When fullscreen is triggered from the window manager, I can't resize window (via M-x org-export RET)

[Bastien <bzg@altern.org>]

[-- Attachment #1: Type: text/plain, Size: 237 bytes --]

martin rudalics <rudalics@gmx.at> writes:

>> 1. Open Emacs.
>> 2. Put it in fullscreen using your window manager command.
>> 3. C-x C-f ~/test.org RET
>> 4. C-c C-e
>>
>> This triggers an error.
>
> Which one?

See attached backtrace.


[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 8741 bytes --]

Debugger entered--Lisp error: (error "Cannot resize window #<window 3384 on *Org Export Dispatcher*>")
  signal(error ("Cannot resize window #<window 3384 on *Org Export Dispatcher*>"))
  error("Cannot resize window %s" #<window 3384 on *Org Export Dispatcher*>)
  window-resize(#<window 3384 on *Org Export Dispatcher*> 17 nil #<window 3384 on *Org Export Dispatcher*> nil)
  window-resize-no-error(#<window 3384 on *Org Export Dispatcher*> 17 nil #<window 3384 on *Org Export Dispatcher*> nil)
  fit-window-to-buffer(nil nil nil)
  (cond ((if (fboundp (quote window-full-width-p)) (not (window-full-width-p window)) (> (frame-width) (window-width window)))) ((and (fboundp (quote fit-window-to-buffer)) (not shrink-only)) (fit-window-to-buffer window max-height min-height)) ((fboundp (quote shrink-window-if-larger-than-buffer)) (shrink-window-if-larger-than-buffer window)))
  org-fit-window-to-buffer()
  (if expertp (org-export--dispatch-action expert-prompt allowed-keys entries options first-key expertp) (if (get-buffer "*Org Export Dispatcher*") nil (delete-other-windows) (org-switch-to-buffer-other-window (get-buffer-create "*Org Export Dispatcher*")) (setq cursor-type nil header-line-format "Use SPC, DEL, C-n or C-p to navigate.") (set-syntax-table (copy-syntax-table)) (modify-syntax-entry 91 "w")) (save-current-buffer (set-buffer "*Org Export Dispatcher*") (let ((pos (window-start))) (erase-buffer) (insert help) (set-window-start nil pos))) (org-fit-window-to-buffer) (org-export--dispatch-action standard-prompt allowed-keys entries options first-key expertp))
  (let* ((fontify-key (function (lambda (key &optional access-key) (if (or (eq access-key t) (eq access-key first-key)) (org-propertize key (quote face) (quote org-warning)) key)))) (fontify-value (function (lambda (value) (org-propertize value (quote face) (quote font-lock-variable-name-face))))) (entries (sort (sort (delq nil (mapcar (quote org-export-backend-menu) org-export--registered-backends)) (function (lambda (a b) (let ... ...)))) (quote car-less-than-car))) (allowed-keys (nconc (list 2 22 19 6 1) (if (not first-key) (org-uniquify (mapcar (quote car) entries)) (let (sub-menu) (let (... entry) (while --dolist-tail-- ... ... ...) (setq entry nil) (sort ... ...)))) (cond ((eq first-key 80) (list 102 112 120 97)) ((not first-key) (list 80))) (list 38 35) (if expertp (progn (list 63))) (list 113))) (help (if expertp nil (concat (format "[%s] Body only:    %s           [%s] Visible only:     %s\n[%s] Export scope: %s       [%s] Force publishing: %s\n[%s] Async export: %s\n\n" (funcall fontify-key "C-b" t) (funcall fontify-value (if ... "On " "Off")) (funcall fontify-key "C-v" t) (funcall fontify-value (if ... "On " "Off")) (funcall fontify-key "C-s" t) (funcall fontify-value (if ... "Subtree" "Buffer ")) (funcall fontify-key "C-f" t) (funcall fontify-value (if ... "On " "Off")) (funcall fontify-key "C-a" t) (funcall fontify-value (if ... "On " "Off"))) (let (last-key) (mapconcat (function ...) entries "")) (format "\n[%s] Publish\n    [%s] Current file              [%s] Current project\n    [%s] Choose project            [%s] All projects\n\n\n" (funcall fontify-key "P") (funcall fontify-key "f" 80) (funcall fontify-key "p" 80) (funcall fontify-key "x" 80) (funcall fontify-key "a" 80)) (format "[%s] Export stack                  [%s] Insert template\n" (funcall fontify-key "&" t) (funcall fontify-key "#" t)) (format "[%s] %s" (funcall fontify-key "q" t) (if first-key "Main menu" "Exit"))))) (standard-prompt (if expertp nil "Export command: ")) (expert-prompt (if expertp (progn (format "Export command (C-%s%s%s%s%s) [%s]: " (if (memq ... options) (funcall fontify-key "b" t) "b") (if (memq ... options) (funcall fontify-key "v" t) "v") (if (memq ... options) (funcall fontify-key "s" t) "s") (if (memq ... options) (funcall fontify-key "f" t) "f") (if (memq ... options) (funcall fontify-key "a" t) "a") (mapconcat (function ...) allowed-keys "")))))) (if expertp (org-export--dispatch-action expert-prompt allowed-keys entries options first-key expertp) (if (get-buffer "*Org Export Dispatcher*") nil (delete-other-windows) (org-switch-to-buffer-other-window (get-buffer-create "*Org Export Dispatcher*")) (setq cursor-type nil header-line-format "Use SPC, DEL, C-n or C-p to navigate.") (set-syntax-table (copy-syntax-table)) (modify-syntax-entry 91 "w")) (save-current-buffer (set-buffer "*Org Export Dispatcher*") (let ((pos (window-start))) (erase-buffer) (insert help) (set-window-start nil pos))) (org-fit-window-to-buffer) (org-export--dispatch-action standard-prompt allowed-keys entries options first-key expertp)))
  org-export--dispatch-ui((buffer nil) nil nil)
  (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui))
  (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui)))
  (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))
  (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background (quote async))) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*"))))
  (unwind-protect (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope (and org-export-in-background ...)) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position (point) (org-base-buffer (current-buffer))) (setq org-export-dispatch-last-action (org-export--dispatch-ui (list org-export-initial-scope ...) nil org-export-dispatch-use-expert-ui))) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (set-window-configuration wconfig)))
  (cond ((equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last-action)) (t (let ((wconfig (current-window-configuration))) (unwind-protect (progn (unwind-protect (progn (move-marker org-export-dispatch-last-position ... ...) (setq org-export-dispatch-last-action ...)) (and (get-buffer "*Org Export Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))) (set-window-configuration wconfig)))))
  (let* ((input (cond ((equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect (progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns (cdr input))) (if (memq (quote subtree) optns) nil (move-marker org-export-dispatch-last-position nil)) (cond ((eql action (quote template)) (org-export-insert-default-template nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote publish-current-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-current-project)) (org-publish-current-project (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc (org-icompleting-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq ... ...) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t))))))
  org-export-dispatch(nil)
  call-interactively(org-export-dispatch nil nil)
  command-execute(org-export-dispatch)

[-- Attachment #3: Type: text/plain, Size: 790 bytes --]


>> This does not happen with M-x toggle-frame-fullscreen RET.
>
> Your scenario is complicated by the fact that the only means I know to
> put Emacs in fullscreen mode is F11.  Does it happen with maximized
> frames too?

No, it only happens in window-manager triggered fullstreen, not in
a maximized frame.

I use i3 as a window manager.  I hope you or somebody else can try
the recipe above and confirm the bug.

>> The attached patch for Org fixes the issue but I guess there
>> is a more general issue here.
>
> Please explain what the "issue" is, how it is related to `org-mode', and
> how it is related to `window-resize-pixelwise'.  The latter is a user
> option and should not be set by an application.

For the issue, see the backtrace.  For the rest, I don't know.

-- 
 Bastien