Mercurial > hg > xemacs-beta

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