Mercurial > hg > xemacs-beta

diff lisp/vm/vm-toolbar.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 43dd3413c7c7
children 489f57a838ef
line wrap: on
line diff
--- a/lisp/vm/vm-toolbar.el	Mon Aug 13 09:49:11 2007 +0200
+++ b/lisp/vm/vm-toolbar.el	Mon Aug 13 09:50:14 2007 +0200
@@ -341,29 +341,25 @@
 	   (if myframe
 	       (set-specifier right-toolbar toolbar frame tag-set))
 	   (set-specifier right-toolbar toolbar buffer)
-	   (if myframe
-	       (set-specifier right-toolbar-width width frame tag-set)))
+	   (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)
-	   (if myframe
-	       (set-specifier left-toolbar-width width frame tag-set)))
+	   (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)
-	   (if myframe
-	       (set-specifier bottom-toolbar-height height frame tag-set)))
+	   (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)
-	   (if myframe
-	       (set-specifier top-toolbar-height height frame tag-set))))))
+	   (set-specifier top-toolbar-height height frame tag-set)))))
 
 (defun vm-toolbar-make-toolbar-spec ()
   (let ((button-alist '(