--- Begin Message ---
|
Subject: |
Reused window made dedicated |
|
Date: |
Sun, 17 Jul 2011 23:47:58 -0400 |
In my setup (where *Group* matches some entry in
special-display-regexp), M-: (switch-to-buffer "*Group*") RET now sets
the selected window as dedicated. I can see that
display-buffer-reuse-window gets called with a (dedicate . t) entry in
`specifiers'.
Maybe it should be possible to specify such a behavior, but it clearly
shouldn't be the way it works by default. I use the patch below as
a workaround for now.
Stefan
=== modified file 'lisp/window.el'
--- lisp/window.el 2011-07-17 01:42:13 +0000
+++ lisp/window.el 2011-07-18 03:46:08 +0000
@@ -4858,6 +4858,7 @@
specifiers. Optional argument OTHER-WINDOW, if non-nil, means do
not use the selected window. Return the window chosen to display
BUFFER, nil if none was found."
+ (push '(dedicate . nil) specifiers)
(let* ((method-window (nth 0 method))
(method-buffer (nth 1 method))
(method-frame (nth 2 method))
In GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2011-07-16 on ceviche
Windowing system distributor `The X.Org Foundation', version 11.0.11002000
configured using `configure 'CFLAGS=-Wall -Wno-pointer-sign
-DUSE_LISP_UNION_TYPE -DSYNC_INPUT -DENABLE_CHECKING -DXASSERTS -DFONTSET_DEBUG
-g -O1 -I/usr/include/GNUstep' '--enable-maintainer-mode'
'--with-x-toolkit=lucid''
Important settings:
value of $LC_ALL: nil
value of $LC_COLLATE: nil
value of $LC_CTYPE: nil
value of $LC_MESSAGES: nil
value of $LC_MONETARY: nil
value of $LC_NUMERIC: nil
value of $LC_TIME: nil
value of $LANG: fr_CH.UTF-8
value of $XMODIFIERS: nil
locale-coding-system: utf-8-unix
default enable-multibyte-characters: t
Major mode: Fundamental
Minor modes in effect:
electric-pair-mode: t
electric-indent-mode: t
url-handler-mode: t
global-reveal-mode: t
reveal-mode: t
auto-insert-mode: t
savehist-mode: t
minibuffer-electric-default-mode: t
mouse-wheel-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t
Recent input:
M-: ( s w i t c h - t o - b u f f e r SPC " * G r o
u p * C-e <return> <switch-frame> <switch-frame> <help-echo>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<help-echo> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> q <switch-frame>
<switch-frame> C-h v i n h i <tab> t r <tab> <return>
<switch-frame> <switch-frame> <switch-frame> <help-echo>
c <switch-frame> <switch-frame> M-: i n h i b i <M-tab>
t r a c e <return> q M-: M-p ( d e f v a r SPC C-e
SPC n i l ) <return> M-: M-p M-p M-p <return> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> C-x 5
b * t r a <tab> <return> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<down-mouse-1> <mouse-movement> <mouse-1> C-h f <return>
<switch-frame> <help-echo> <down-mouse-1> <mouse-2>
<switch-frame> <switch-frame> <switch-frame> <down>
<left> <right> <down> <left> <down> <right> <left>
<right> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <left> <right> <switch-frame>
<switch-frame> q <switch-frame> <switch-frame> <help-echo>
<switch-frame> C-u C-M-x <switch-frame> <switch-frame>
<switch-frame> <switch-frame> M-: M-p <return> <switch-frame>
<switch-frame> n n n n n n n q <switch-frame> <switch-frame>
M-: M-p <return> <switch-frame> <switch-frame> n n
q <switch-frame> C-M-x <down-mouse-1> <mouse-movement>
<mouse-1> C-s C-w C-w C-w C-w C-s SPC ( C-s C-a <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> C-u C-M-x
<switch-frame> <switch-frame> <switch-frame> C-g C-g
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<help-echo> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> <switch-frame>
<switch-frame> <switch-frame> <switch-frame> M-x r
e p o r t - e m <tab> <return>
Recent messages:
Result: "*Group*"
Result: ((reuse-window same same nil) (reuse-window other same 0) (reuse-window
nil same 0) (pop-up-frame t) (pop-up-frame-alist (width . 80) (height . 50))
(dedicate . t) (pop-up-frame t) (pop-up-window (largest) (lru))
(pop-up-window-min-width . 80) (pop-up-window-min-height . 40) (dedicate .
soft) (reuse-window-even-sizes . t) (other-window-means-other-frame . t))
Back to top level.
ad-handle-definition: `display-buffer-normalize-specifiers' got redefined
display-buffer-normalize-specifiers
Mark saved where search started
Edebug: display-buffer-normalize-default
Quit [3 times]
Load-path shadows:
None found.
Features:
(sort mail-extr emacsbug cl-specs xscheme trace testcover scheme unsafep
re-builder shadow inf-lisp ielm pp comint ring ert ewoc elp edebug
cust-print cus-edit cus-start cus-load vc-bzr filecache find-func
multi-isearch debug qp gnus-ml nndraft nnmh rfc2104 gnutls
network-stream starttls nnimap parse-time tls utf7 netrc nnagent nnml
gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art
mm-uu mml2015 epg-config mm-view mml-smime smime dig mailcap nntp
gnus-cache nnir gnus-sum nnoo gnus-group gnus-undo nnmail mail-source
server gnus-start gnus-spec gnus-int gnus-range message format-spec
rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231
rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils mailheader gnus-win gnus
gnus-ems nnheader mail-utils wid-edit noutline outline easy-mmode
flyspell ispell eldoc checkdoc regexp-opt thingatpt help-mode view
prog-mode load-dir electric url-handlers url-parse auth-source warnings
eieio byte-opt bytecomp byte-compile cconv macroexp assoc gnus-util
password-cache url-vars mm-util mail-prsvr reveal autoinsert uniquify
advice help-fns advice-preload time-date savehist minibuf-eldef
disp-table cl cl-loaddefs all-autoloads company-autoloads
debbugs-autoloads epoch-view-autoloads js2-mode-autoloads
load-dir-autoloads markchars-autoloads muse-autoloads info easymenu
rainbow-mode-autoloads sisu-mode-autoloads uni-confusables-autoloads
package tabulated-list proof-site proof-autoloads pg-vars bbdb-autoloads
agda2 tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd
tool-bar dnd fontset image fringe lisp-mode register page newcomment
menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock
syntax font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-face files text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget hashtable-print-readable backquote
make-network-process dbusbind dynamic-setting system-font-setting
font-render-setting x-toolkit x multi-tty emacs)
--- End Message ---