Mercurial > hg > xemacs-beta

comparison lisp/x-toolbar.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents ca9a9ec9c1c1
children
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
91 91
92 (defun toolbar-print () 92 (defun toolbar-print ()
93 (interactive) 93 (interactive)
94 (call-interactively toolbar-print-function)) 94 (call-interactively toolbar-print-function))
95 95
96 (defcustom toolbar-cut-function 'x-kill-primary-selection 96 (defcustom toolbar-cut-function 'kill-primary-selection
97 "*Function to call when the cut icon is selected." 97 "*Function to call when the cut icon is selected."
98 :type '(radio (function-item x-kill-primary-selection) 98 :type '(radio (function-item kill-primary-selection)
99 (function :tag "Other")) 99 (function :tag "Other"))
100 :group 'toolbar) 100 :group 'toolbar)
101 101
102 (defun toolbar-cut () 102 (defun toolbar-cut ()
103 (interactive) 103 (interactive)
104 (call-interactively toolbar-cut-function)) 104 (call-interactively toolbar-cut-function))
105 105
106 (defcustom toolbar-copy-function 'x-copy-primary-selection 106 (defcustom toolbar-copy-function 'copy-primary-selection
107 "*Function to call when the copy icon is selected." 107 "*Function to call when the copy icon is selected."
108 :type '(radio (function-item x-copy-primary-selection) 108 :type '(radio (function-item copy-primary-selection)
109 (function :tag "Other")) 109 (function :tag "Other"))
110 :group 'toolbar) 110 :group 'toolbar)
111 111
112 (defun toolbar-copy () 112 (defun toolbar-copy ()
113 (interactive) 113 (interactive)
114 (call-interactively toolbar-copy-function)) 114 (call-interactively toolbar-copy-function))
115 115
116 (defcustom toolbar-paste-function 'x-yank-clipboard-selection 116 (defcustom toolbar-paste-function 'yank-clipboard-selection
117 "*Function to call when the paste icon is selected." 117 "*Function to call when the paste icon is selected."
118 :type '(radio (function-item x-yank-clipboard-selection) 118 :type '(radio (function-item yank-clipboard-selection)
119 (function :tag "Other")) 119 (function :tag "Other"))
120 :group 'toolbar) 120 :group 'toolbar)
121 121
122 (defun toolbar-paste () 122 (defun toolbar-paste ()
123 (interactive) 123 (interactive)