Mercurial > hg > xemacs-beta

diff lisp/utils/floating-toolbar.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 8fc7fe29b841
children e45d5e7c476e
line wrap: on
line diff
--- a/lisp/utils/floating-toolbar.el	Mon Aug 13 08:53:21 2007 +0200
+++ b/lisp/utils/floating-toolbar.el	Mon Aug 13 08:53:38 2007 +0200
@@ -86,7 +86,7 @@
 (require 'toolbar)
 (require 'x)
 
-(defvar floating-toolbar-version "1.01"
+(defvar floating-toolbar-version "1.02"
   "Version string for the floating-toolbar package.")
 
 (defvar floating-toolbar-use-sound nil
@@ -312,7 +312,11 @@
 (defun floating-toolbar-make-junk-frame ()
   (let ((window-min-height 1)
 	(window-min-width 1))
-    (make-frame '(minibuffer t initially-unmapped t width 1 height 1))))
+    (save-excursion
+      (set-buffer (generate-new-buffer "*junk-frame-buffer*"))
+      (prog1
+	  (make-frame '(minibuffer t initially-unmapped t width 1 height 1))
+	(rename-buffer " *junk-frame-buffer*" t)))))
 
 (defun floating-toolbar-make-toolbar-frame (x y)
   (save-excursion