Mercurial > hg > xemacs-beta

comparison lisp/toolbar.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children 501cfd01ee6d
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
52 (setq toolbar-captioned-p val)) 52 (setq toolbar-captioned-p val))
53 ) 53 )
54 54
55 (defcustom default-toolbar-position ;; added for the options menu - dverna 55 (defcustom default-toolbar-position ;; added for the options menu - dverna
56 (default-toolbar-position) 56 (default-toolbar-position)
57 "The location of the default toolbar. It can be 'top, 'bootom, 'left or 57 "The location of the default toolbar. It can be 'top, 'bottom, 'left or
58 'right. This option can be customized through the options menu." 58 'right. This option can be customized through the options menu."
59 :group 'display 59 :group 'display
60 :type '(choice (const :tag "top" 'top) 60 :type '(choice (const :tag "top" top)
61 (const :tag "bottom" 'bottom) 61 (const :tag "bottom" bottom)
62 (const :tag "left" 'left) 62 (const :tag "left" left)
63 (const :tag "right" 'right)) 63 (const :tag "right" right))
64 :set #'(lambda (var val) 64 :set #'(lambda (var val)
65 (set-default-toolbar-position val) 65 (set-default-toolbar-position val)
66 (setq default-toolbar-position val)) 66 (setq default-toolbar-position val))
67 ) 67 )
68 68