Mercurial > hg > xemacs-beta

diff lisp/vm/vm-toolbar.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 2af401a6ecca
children 2d532a89d707
line wrap: on
line diff
--- a/lisp/vm/vm-toolbar.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/vm/vm-toolbar.el	Mon Aug 13 09:39:39 2007 +0200
@@ -341,25 +341,29 @@
 	   (if myframe
 	       (set-specifier right-toolbar toolbar frame tag-set))
 	   (set-specifier right-toolbar toolbar buffer)
-	   (set-specifier right-toolbar-width width frame tag-set))
+	   (if myframe
+	       (set-specifier right-toolbar-width width frame tag-set)))
 	  ((eq vm-toolbar-orientation 'left)
 	   (setq vm-toolbar-specifier left-toolbar)
 	   (if myframe
 	       (set-specifier left-toolbar toolbar frame tag-set))
 	   (set-specifier left-toolbar toolbar buffer)
-	   (set-specifier left-toolbar-width width frame tag-set))
+	   (if myframe
+	       (set-specifier left-toolbar-width width frame tag-set)))
 	  ((eq vm-toolbar-orientation 'bottom)
 	   (setq vm-toolbar-specifier bottom-toolbar)
 	   (if myframe
 	       (set-specifier bottom-toolbar toolbar frame tag-set))
 	   (set-specifier bottom-toolbar toolbar buffer)
-	   (set-specifier bottom-toolbar-height height frame tag-set))
+	   (if myframe
+	       (set-specifier bottom-toolbar-height height frame tag-set)))
 	  (t
 	   (setq vm-toolbar-specifier top-toolbar)
 	   (if myframe
 	       (set-specifier top-toolbar toolbar frame tag-set))
 	   (set-specifier top-toolbar toolbar buffer)
-	   (set-specifier top-toolbar-height height frame tag-set)))))
+	   (if myframe
+	       (set-specifier top-toolbar-height height frame tag-set))))))
 
 (defun vm-toolbar-make-toolbar-spec ()
   (let ((button-alist '(