Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
339 (cond ((eq vm-toolbar-orientation 'right) 339 (cond ((eq vm-toolbar-orientation 'right)
340 (setq vm-toolbar-specifier right-toolbar) 340 (setq vm-toolbar-specifier right-toolbar)
341 (if myframe 341 (if myframe
342 (set-specifier right-toolbar toolbar frame tag-set)) 342 (set-specifier right-toolbar toolbar frame tag-set))
343 (set-specifier right-toolbar toolbar buffer) 343 (set-specifier right-toolbar toolbar buffer)
344 (set-specifier right-toolbar-width width frame tag-set)) 344 (if myframe
345 (set-specifier right-toolbar-width width frame tag-set)))
345 ((eq vm-toolbar-orientation 'left) 346 ((eq vm-toolbar-orientation 'left)
346 (setq vm-toolbar-specifier left-toolbar) 347 (setq vm-toolbar-specifier left-toolbar)
347 (if myframe 348 (if myframe
348 (set-specifier left-toolbar toolbar frame tag-set)) 349 (set-specifier left-toolbar toolbar frame tag-set))
349 (set-specifier left-toolbar toolbar buffer) 350 (set-specifier left-toolbar toolbar buffer)
350 (set-specifier left-toolbar-width width frame tag-set)) 351 (if myframe
352 (set-specifier left-toolbar-width width frame tag-set)))
351 ((eq vm-toolbar-orientation 'bottom) 353 ((eq vm-toolbar-orientation 'bottom)
352 (setq vm-toolbar-specifier bottom-toolbar) 354 (setq vm-toolbar-specifier bottom-toolbar)
353 (if myframe 355 (if myframe
354 (set-specifier bottom-toolbar toolbar frame tag-set)) 356 (set-specifier bottom-toolbar toolbar frame tag-set))
355 (set-specifier bottom-toolbar toolbar buffer) 357 (set-specifier bottom-toolbar toolbar buffer)
356 (set-specifier bottom-toolbar-height height frame tag-set)) 358 (if myframe
359 (set-specifier bottom-toolbar-height height frame tag-set)))
357 (t 360 (t
358 (setq vm-toolbar-specifier top-toolbar) 361 (setq vm-toolbar-specifier top-toolbar)
359 (if myframe 362 (if myframe
360 (set-specifier top-toolbar toolbar frame tag-set)) 363 (set-specifier top-toolbar toolbar frame tag-set))
361 (set-specifier top-toolbar toolbar buffer) 364 (set-specifier top-toolbar toolbar buffer)
362 (set-specifier top-toolbar-height height frame tag-set))))) 365 (if myframe
366 (set-specifier top-toolbar-height height frame tag-set))))))
363 367
364 (defun vm-toolbar-make-toolbar-spec () 368 (defun vm-toolbar-make-toolbar-spec ()
365 (let ((button-alist '( 369 (let ((button-alist '(
366 (autofile . vm-toolbar-autofile-button) 370 (autofile . vm-toolbar-autofile-button)
367 (compose . vm-toolbar-compose-button) 371 (compose . vm-toolbar-compose-button)