Package: emacs;
Reported by: Keith David Bershatsky <esq <at> lawlist.com>
Date: Thu, 1 Aug 2013 23:55:02 UTC
Severity: minor
Found in version 24.3.50
Done: Jan Djärv <jan.h.d <at> swipnet.se>
Bug is archived. No further changes may be made.
View this message in rfc822 format
From: Keith David Bershatsky <esq <at> lawlist.com> To: 15005 <at> debbugs.gnu.org Subject: bug#15005: 24.3.50; toggle-frame-maximized -- frame-title "-- (frame-width x frame-height)" Date: Thu, 01 Aug 2013 14:15:17 -0700
When using (set-frame-name) in conjunction with (toggle-frame-maximized), the latter appends to an existing frame title "-- (frame-width x frame-height)". Although it does not affect functions calling the frame name by its short title (frame-parameter nil 'name), it visually detracts from a pretty frame name that was set by the user. This happens every time there is a minimization or a maximization of the frame. I was not able to figure out a way to modify the frame-title-format, which appears to be trumped by toggle-frame-maximized. Here is an unsophisticated workaround:
(defalias 'toggle-frame-maximized 'lawlist-toggle-frame-maximized)
(defvar lawlist-restore-frame-name nil)
(defun lawlist-toggle-frame-maximized ()
"Hack by lawlist of `toggle-frame-maximized` from frame.el
of Emacs Trunk version 24.3.50 (9.0)."
(interactive)
(setq lawlist-restore-frame-name (frame-parameter nil 'name))
(set-frame-name nil)
(if (memq (frame-parameter nil 'fullscreen) '(fullscreen fullboth))
(modify-frame-parameters nil
`((maximized . ,(unless (eq (frame-parameter nil 'maximized) 'maximized) 'maximized))))
(modify-frame-parameters nil
`((fullscreen . ,(unless (eq (frame-parameter nil 'fullscreen) 'maximized) 'maximized)))))
(set-frame-name lawlist-restore-frame-name) )
Sincerely,
Keith David Bershatsky
esq <at> lawlist.com
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
In GNU Emacs 24.3.50.1 (x86_64-apple-darwin10.8.0, NS apple-appkit-1038.36)
of 2013-08-01 on MP.local
Bzr revision: 113637 tsdh <at> gnu.org-20130801184610-e3c6yo0g191o4m09
Windowing system distributor `Apple', version 10.3.1038
Configured using:
`configure --with-ns'
Important settings:
locale-coding-system: nil
default enable-multibyte-characters: t
Major mode: Text
Minor modes in effect:
whitespace-mode: t
yas-global-mode: t
yas-minor-mode: t
global-highlight-parentheses-mode: t
global-linum-mode: t
linum-mode: t
delete-selection-mode: t
flyspell-mode: t
desktop-save-mode: t
frame-bufs-mode: t
tabbar-mode: t
highlight-parentheses-mode: t
osx-key-mode: t
tooltip-mode: t
mouse-wheel-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
global-visual-line-mode: t
visual-line-mode: t
transient-mark-mode: t
Recent input:
<M-f10> <M-f10> <M-f10> <M-f10> <M-f10> <M-f10> <M-f10>
<M-f10> <M-f10> <M-f10> <M-f10> <M-f10> <M-f10> <M-f10>
<M-f10> <M-f10> <escape> x r e p o r t - e m a c s
- b u g s <backspace> <return>
Recent messages:
Word wrapping enabled
The frame named "SYSTEM" does not exist -- create frame.
Switch to group 'system', current buffer: *bbdb*
Word wrapping enabled
Switched -- From: "SYSTEM" To: "SYSTEM".
The frame named "SYSTEM" already exists -- do not create.
Switch to group 'system', current buffer: *scratch*
Switched -- From: "SYSTEM" To: "SYSTEM".
The frame named "SYSTEM" already exists -- do not create.
Switch to group 'system', current buffer: *scratch*
Load-path shadows:
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/md4 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/md4
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/hex-util hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/hex-util
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/sasl hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/sasl-ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-ntlm
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/sasl-digest hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-digest
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/sasl-cram hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/sasl-cram
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/ntlm hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/ntlm
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/hmac-md5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-md5
~/.0.data/.0.emacs/elpa/flim/site-lisp/flim/hmac-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/net/hmac-def
~/.0.data/.0.emacs/elpa/wanderlust/site-lisp/wl/rfc2368 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/mail/rfc2368
~/.0.data/.0.emacs/elpa/wanderlust/site-lisp/wl/utf7 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/utf7
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/smime hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/smime
~/.0.data/.0.emacs/elpa/el-get/.dir-locals hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/gnus/.dir-locals
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/pgg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/pgg-pgp5 hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp5
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/pgg-pgp hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-pgp
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/pgg-parse hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-parse
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/pgg-gpg hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-gpg
~/.0.data/.0.emacs/elpa/semi/site-lisp/semi/pgg-def hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/pgg-def
~/.0.data/.0.emacs/elpa/utilities/longlines hides /Users/HOME/.0.data/.0.emacs/Emacs.app/Contents/Resources/lisp/obsolete/longlines
Features:
(shadow wl-mime mime-edit pgg-parse pccl pccl-20 signature mime-setup
mail-mime-setup semi-setup mime-pgp pgg-def mime-play filename
mime-image modb-standard elmo-imap4 time-stamp wl-demo wl-news
wl-address wl-thread wl-folder wl wl-e21 wl-draft eword-encode
wl-template elmo-net elmo-cache elmo-map elmo-dop emacsbug message
rfc822 mml mml-sec mm-decode mm-bodies mm-encode mailabbrev gmm-utils
mailheader sendmail mail-utils disp-table whitespace yasnippet
auctex-autoloads tex-site info multiple-cursors-autoloads
yasnippet-autoloads bbdb-autoloads bbdb el-get el-get-autoloads
el-get-list-packages el-get-notify help-mode el-get-dependencies
el-get-build el-get-status el-get-recipes el-get-byte-compile
el-get-methods el-get-fossil el-get-svn el-get-pacman
el-get-github-zip el-get-github-tar el-get-http-zip el-get-http-tar
el-get-hg el-get-git-svn el-get-fink el-get-emacswiki el-get-http
el-get-emacsmirror el-get-github el-get-git el-get-elpa el-get-darcs
el-get-cvs el-get-bzr el-get-brew el-get-builtin el-get-apt-get
el-get-custom el-get-core autoload lisp-mnt savehist itunes
osx-osascript linum delsel server multiple-cursors
mc-separate-operations rectangular-region-mode mc-mark-more thingatpt
mc-cycle-cursors mc-edit-lines multiple-cursors-core rect flyspell
ispell desktop saveplace auto-save-buffers-enhanced package frame-bufs
frame-cmds frame-fns avoid calendar-lawlist lawlist-calendar init-org
derived cl-macs gv edmacro kmacro org-toodledo mailcap-toodledo
http-post-simple cl url-http tls url-auth mail-parse rfc2231 rfc2047
rfc2045 ietf-drums url-gw url url-proxy url-privacy url-expand
url-methods url-history url-cookie url-domsuf url-util url-parse
auth-source eieio eieio-core gnus-util mm-util mail-prsvr
password-cache url-vars mailcap json xml org ob-tangle ob-ref ob-lob
ob-table org-footnote org-src ob-comint ob-keys org-pcomplete
pcomplete comint ansi-color ring org-list org-faces org-entities
noutline outline org-version ob-emacs-lisp ob org-compat org-macs
ob-eval org-loaddefs format-spec find-func cal-menu calendar
cal-loaddefs init-yas init-wl wl-spam wl-action wl-summary byte-opt
warnings ps-print ps-def lpr wl-refile wl-util pp elmo-flag
elmo-localdir bytecomp byte-compile cconv wl-message elmo-mime
mmelmo-buffer mmelmo-imap mime-view mime-conf calist semi-def mmimap
mime-parse mmbuffer mmgeneric wl-highlight wl-vars wl-version
epg-config elmo-multi elmo-spam elsp-header elsp-generic elmo
elmo-signal elmo-msgdb modb modb-generic modb-entity mime elmo-util
emu invisible inv-23 poem poem-e20 poem-e20_3 utf7 eword-decode mel
mime-def alist std11 mcharset mcs-20 mcs-e20 pces pces-e20 pces-20
broken pcustom elmo-date elmo-vars elmo-version path-util poe pym
static apel-ver product luna mime-w3m w3m-load w3m browse-url doc-view
jka-compr dired image-mode timezone w3m-hist w3m-fb bookmark-w3m
w3m-ems wid-edit cl-loaddefs cl-lib w3m-ccl ccl w3m-favicon w3m-image
w3m-proc w3m-util hideshow easymenu init-tabbar nadvice advice
help-fns tabbar highlight-parentheses osxkeys easy-mmode redo
time-date tooltip ediff-hook vc-hooks lisp-float-type mwheel ns-win
tool-bar dnd fontset image regexp-opt fringe tabulated-list newcomment
lisp-mode prog-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu 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 macroexp
files text-properties overlay sha1 md5 base64 format env code-pages
mule custom widget hashtable-print-readable backquote
make-network-process ns multi-tty emacs)
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.