From: "Drew Adams" <drew.adams@oracle.com>
To: "'martin rudalics'" <rudalics@gmx.at>
Cc: 8856@debbugs.gnu.org
Subject: bug#8856: 24.0.50; regression: special-display-frame is no longer dedicated
Date: Sun, 19 Jun 2011 10:26:39 -0700 [thread overview]
Message-ID: <0137606B527A48C69E3D6C704C5C6595@us.oracle.com> (raw)
In-Reply-To: <C1377A5AF40442CFB8DD6495B5B2A6EE@us.oracle.com>
[-- Attachment #1: Type: text/plain, Size: 347 bytes --]
I've pared down the code to load. Just load the attached and then follow the
recipe:
M-x f TAB ; to display *Completions* frame.
C-] ; to return to top level.
M-x f TAB o
Or just hit TAB twice in a row: M-x f TAB TAB. IOW, try to type more
input in minibuffer.
This then raises the error
"Buffer is read-only #<buffer *Completions*>"
[-- Attachment #2: throw-one.el --]
[-- Type: application/octet-stream, Size: 7544 bytes --]
(defvar 1on1-minibuffer-frame nil "Minibuffer-only frame")
(defcustom 1on1-minibuffer-frame-alist
(list
(assq 'foreground-color minibuffer-frame-alist)
(assq 'background-color minibuffer-frame-alist)
(assq 'font minibuffer-frame-alist)
(assq 'mouse-color minibuffer-frame-alist)
(assq 'cursor-color minibuffer-frame-alist)
(assq 'menu-bar-lines minibuffer-frame-alist)
(or (assq 'left minibuffer-frame-alist) (cons 'left 0))
(or (assq 'height minibuffer-frame-alist) (cons 'height 2))
(or (assq 'minibuffer minibuffer-frame-alist) (cons 'minibuffer 'only))
(or (assq 'user-position minibuffer-frame-alist) (cons 'user-position t))
(or (assq 'vertical-scroll-bars minibuffer-frame-alist)
(cons 'vertical-scroll-bars nil))
(or (assq 'name minibuffer-frame-alist) (cons 'name "Emacs Minibuffer")))
"*Frame-parameter alist for the standalone minibuffer frame
`1on1-minibuffer-frame'.
If you customize this variable, you will need to rerun `1on1-emacs'
for the new value to take effect."
;; If we didn't need Emacs 20 compatibility, this could be:
;; :type '(alist :key-type symbol :value-type sexp)
:type '(repeat (cons :format "%v"
(symbol :tag "Frame Parameter")
(sexp :tag "Value")))
:group 'frames)
(defcustom 1on1-default-frame-alist
(list
(assq 'foreground-color default-frame-alist)
(or (assq 'background-color default-frame-alist)
(cons 'background-color "LightBlue"))
(assq 'font default-frame-alist)
(assq 'mouse-color default-frame-alist)
(assq 'cursor-color default-frame-alist)
(assq 'cursor-type default-frame-alist)
(assq 'menu-bar-lines default-frame-alist)
(or (assq 'top default-frame-alist) (cons 'top 0))
(or (assq 'left default-frame-alist) (cons 'left 0))
(or (assq 'width default-frame-alist) (cons 'width 80))
(or (assq 'height default-frame-alist) (cons 'height 35))
(or (assq 'minibuffer default-frame-alist) (cons 'minibuffer nil))
(or (assq 'user-position default-frame-alist) (cons 'user-position t))
(or (assq 'vertical-scroll-bars default-frame-alist)
(cons 'vertical-scroll-bars 'right))
(or (assq 'icon-type default-frame-alist) (cons 'icon-type nil))
(or (assq 'tool-bar-lines default-frame-alist) (cons 'tool-bar-lines 1))
(if (cdr (assq 'left-fringe default-frame-alist))
(assq 'left-fringe default-frame-alist)
(cons 'left-fringe 0))
(if (cdr (assq 'right-fringe default-frame-alist))
(assq 'right-fringe default-frame-alist)
(cons 'right-fringe 0)))
"Properties to be used for One-on-One Emacs `default-frame-alist'.
If you customize this variable, you will need to rerun `1on1-emacs'
for the new value to take effect."
;; If we didn't need Emacs 20 compatibility, this could be:
;; :type '(alist :key-type symbol :value-type sexp)
:type '(repeat (cons :format "%v"
(symbol :tag "Frame Parameter")
(sexp :tag "Value")))
:group 'frames)
(defcustom 1on1-special-display-frame-alist
(list
(assq 'font special-display-frame-alist)
(or (assq 'width special-display-frame-alist) (cons 'width 80))
(or (assq 'height special-display-frame-alist) (cons 'height 20))
(assq 'mouse-color special-display-frame-alist)
(assq 'cursor-color special-display-frame-alist)
(assq 'menu-bar-lines special-display-frame-alist)
(assq 'foreground-color special-display-frame-alist)
(or (assq 'background-color special-display-frame-alist)
(cons 'background-color "LightSteelBlue"))
(or (assq 'top special-display-frame-alist) (cons 'top 0))
(or (assq 'left special-display-frame-alist) (cons 'left 0))
(or (assq 'unsplittable special-display-frame-alist)
(cons 'unsplittable t))
(or (assq 'user-position special-display-frame-alist)
(cons 'user-position t))
(or (assq 'vertical-scroll-bars special-display-frame-alist)
(cons 'vertical-scroll-bars 'right)))
"Properties to be used for One-on-One `special-display-frame-alist'.
If you customize this variable, you will need to rerun `1on1-emacs'
for the new value to take effect."
;; If we didn't need Emacs 20 compatibility, this could be:
;; :type '(alist :key-type symbol :value-type sexp)
:type '(repeat (cons :format "%v"
(symbol :tag "Frame Parameter")
(sexp :tag "Value")))
:group 'frames)
(defun 1on1-emacs ()
"One-on-One Emacs setup.
Use `1on1-default-frame-alist' and `1on1-special-display-frame-alist'.
Create minibuffer-only frame, `1on1-minibuffer-frame', using
`1on1-minibuffer-frame-alist'.
Use special frame for *Completions* buffer."
(interactive)
(unless (if (fboundp 'display-graphic-p) (display-graphic-p) window-system)
(error "Use `1on1-emacs' only with a graphics display"))
(setq default-frame-alist (append 1on1-default-frame-alist default-frame-alist)
special-display-frame-alist (append 1on1-special-display-frame-alist
special-display-frame-alist))
;; Treat *Completions* frame, so it gets focus from minibuffer frame.
(add-to-list
'special-display-buffer-names
'("*Completions*" 1on1-display-*Completions*-frame
((background-color . "LavenderBlush2")
(menu-bar-lines . 0) (tool-bar-lines . 0)
(width . 100))))
(setq pop-up-frames t)
(setq minibuffer-frame-alist (append 1on1-minibuffer-frame-alist
minibuffer-frame-alist))
(if 1on1-minibuffer-frame
(modify-frame-parameters 1on1-minibuffer-frame 1on1-minibuffer-frame-alist)
(setq 1on1-minibuffer-frame
(let ((after-make-frame-functions nil)) ; E.g. inhibit `fit-frame'.
(make-frame 1on1-minibuffer-frame-alist))))
(1on1-set-minibuffer-frame-width)
(1on1-set-minibuffer-frame-top/bottom)
(setq minibuffer-auto-raise t)
(setq w32-grab-focus-on-raise nil
win32-grab-focus-on-raise nil)) ; older name
(defun 1on1-display-*Completions*-frame (buf &optional args)
"Display *Completions* buffer in its own frame.
`special-display-function' is used to do the actual displaying.
Completion input events are redirected to `1on1-minibuffer-frame'.
BUF and ARGS are the arguments to `special-display-function'."
(let (return-window)
(setq return-window (select-window
(funcall special-display-function buf args)))
(raise-frame)
(redirect-frame-focus (selected-frame) 1on1-minibuffer-frame)
return-window))
(defun 1on1-set-minibuffer-frame-top/bottom ()
"Set position of minibuffer frame.
Use `1on1-minibuffer-frame-top/bottom' if non-nil.
Else, place minibuffer at bottom of display."
(condition-case nil
(redisplay t)
(error nil)) ; Ignore e.g., killed buffers.
(modify-frame-parameters
1on1-minibuffer-frame
`((top ,@ (- (* 2 (frame-char-height 1on1-minibuffer-frame)))))))
(defun 1on1-set-minibuffer-frame-width ()
"Set width of minibuffer frame, in chars.
Set relative to `1on1-minibuffer-frame' char size and display size."
(set-frame-width
1on1-minibuffer-frame
(/ (* 100 (x-display-pixel-width))
(* 100 (frame-char-width 1on1-minibuffer-frame)))))
;; Last part of recipe for bug #8856:
(load-file "c:/drews-lisp-20/window-2011-06-19a-MARTIN.el")
(setq special-display-regexps '("[ ]?[*][^*]+[*]"))
next prev parent reply other threads:[~2011-06-19 17:26 UTC|newest]
Thread overview: 42+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-06-13 16:08 bug#8851: 24.0.50; regression: special-display-frame is no longer dedicated Drew Adams
2011-06-13 18:00 ` martin rudalics
2011-06-13 18:41 ` Drew Adams
2011-06-14 9:15 ` martin rudalics
2011-06-14 20:36 ` Drew Adams
[not found] ` <4DFB6BBF.3080504@gmx.at>
2011-06-17 15:51 ` Drew Adams
2011-06-17 16:22 ` bug#8856: " martin rudalics
2011-06-17 17:48 ` Drew Adams
2011-06-19 17:29 ` Drew Adams
2011-06-20 3:04 ` Stefan Monnier
2011-06-17 17:48 ` bug#8856: " Drew Adams
2011-06-19 13:26 ` martin rudalics
2011-06-19 14:31 ` bug#8856: 24.0.50;regression: `special-display-frame' broken Drew Adams
2011-06-19 18:50 ` Chong Yidong
2011-06-19 18:54 ` Drew Adams
[not found] ` <4DFE09A7.10500@gmx.at>
2011-06-19 14:43 ` bug#8856: 24.0.50; regression: special-display-frame is no longer dedicated Drew Adams
2011-06-19 17:26 ` Drew Adams [this message]
2011-06-19 18:40 ` martin rudalics
2011-06-19 19:34 ` bug#8856: 24.0.50; regression: `special-display-popup-frame' broken Drew Adams
2011-06-19 19:52 ` Drew Adams
2011-06-20 9:46 ` bug#8856: 24.0.50; regression: special-display-frame is no longer dedicated martin rudalics
2011-06-20 13:01 ` Drew Adams
[not found] ` <4E00C54C.5080108@gmx.at>
2011-06-21 18:10 ` Drew Adams
2011-06-22 0:13 ` Drew Adams
2011-06-22 0:14 ` Drew Adams
2011-06-22 0:15 ` Drew Adams
2011-06-23 16:45 ` Drew Adams
[not found] ` <4E033CBA.1050700@gmx.at>
[not found] ` <DB9EDF1C454F42A0BC437F0E0AEE6CA2@us.oracle.com>
[not found] ` <4E037708.2000205@gmx.at>
2011-06-23 22:06 ` Drew Adams
2011-06-24 8:53 ` martin rudalics
2011-06-24 21:21 ` Drew Adams
2011-06-25 14:15 ` martin rudalics
2011-06-25 14:52 ` Drew Adams
[not found] ` <8A3D5626004B4 945A624B69463A0B849@us.oracle.com>
2011-06-25 15:04 ` Drew Adams
2011-06-25 15:57 ` martin rudalics
2011-06-25 16:15 ` Drew Adams
2011-06-25 17:00 ` martin rudalics
2011-06-25 17:48 ` Drew Adams
2011-06-26 13:50 ` martin rudalics
2011-06-26 14:56 ` Drew Adams
[not found] ` <0721F495F4A441529FCB91280D284E42@us.oracle.com! >
2011-06-26 15:15 ` Drew Adams
2011-06-26 15:54 ` martin rudalics
2011-06-26 16:06 ` Drew Adams
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=0137606B527A48C69E3D6C704C5C6595@us.oracle.com \
--to=drew.adams@oracle.com \
--cc=8856@debbugs.gnu.org \
--cc=rudalics@gmx.at \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.