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.
Message #10 received at 15005-done <at> debbugs.gnu.org (full text, mbox):
From: Jan Djärv <jan.h.d <at> swipnet.se> To: Keith David Bershatsky <esq <at> lawlist.com> Cc: 15005-done <at> debbugs.gnu.org Subject: Re: bug#15005: 24.3.50; toggle-frame-maximized -- frame-title "-- (frame-width x frame-height)" Date: Fri, 2 Aug 2013 11:43:48 +0200
Hello. 1 aug 2013 kl. 23:15 skrev Keith David Bershatsky <esq <at> lawlist.com>: > 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. This has been fixed in the trunk. Jan D. > 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.