bug#15005: 24.3.50; toggle-frame-maximized -- frame-title "-- (frame-width x frame-height)"

[Jan Djärv]

Hello.

1 aug 2013 kl. 23:15 skrev Keith David Bershatsky <esq@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@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@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)
> 
>