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

[Keith David Bershatsky]

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@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)