Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 843:f46864126a0d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-05-15 15:27:40 by stephent] fix yank-pop bug correctly <87adr1zbdd.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 15 May 2002 15:27:58 +0000
parents 42a86787d173
children 047d37eb70d7
comparison
equal deleted inserted replaced
842:dc12269565c9 843:f46864126a0d
1222 1222
1223 The function takes one or two arguments. 1223 The function takes one or two arguments.
1224 The first argument, TEXT, is a string containing 1224 The first argument, TEXT, is a string containing
1225 the text which should be made available. 1225 the text which should be made available.
1226 The second, PUSH, if non-nil means this is a \"new\" kill; 1226 The second, PUSH, if non-nil means this is a \"new\" kill;
1227 nil means appending to an \"old\" kill." 1227 nil means appending to an \"old\" kill.
1228
1229 One reasonable choice is `own-clipboard' (the default)."
1228 :type '(radio (function-item :tag "Send to Clipboard" 1230 :type '(radio (function-item :tag "Send to Clipboard"
1229 :format "%t\n" 1231 :format "%t\n"
1230 own-clipboard) 1232 own-clipboard)
1231 (const :tag "None" nil) 1233 (const :tag "None" nil)
1232 (function :tag "Other")) 1234 (function :tag "Other"))
1233 :group 'killing) 1235 :group 'killing)
1234 1236
1235 (defcustom interprogram-paste-function 'get-clipboard 1237 (defcustom interprogram-paste-function 'get-clipboard-foreign
1236 "Function to call to get text cut from other programs. 1238 "Function to call to get text cut from other programs.
1237 1239
1238 Most window systems provide some sort of facility for cutting and 1240 Most window systems provide some sort of facility for cutting and
1239 pasting text between the windows of different programs. 1241 pasting text between the windows of different programs.
1240 This variable holds a function that Emacs calls to obtain 1242 This variable holds a function that Emacs calls to obtain
1248 Note that the function should return a string only if a program other 1250 Note that the function should return a string only if a program other
1249 than Emacs has provided a string for pasting; if Emacs provided the 1251 than Emacs has provided a string for pasting; if Emacs provided the
1250 most recent string, the function should return nil. If it is 1252 most recent string, the function should return nil. If it is
1251 difficult to tell whether Emacs or some other program provided the 1253 difficult to tell whether Emacs or some other program provided the
1252 current string, it is probably good enough to return nil if the string 1254 current string, it is probably good enough to return nil if the string
1253 is equal (according to `string=') to the last text Emacs provided." 1255 is equal (according to `string=') to the last text Emacs provided.
1256
1257 Reasonable choices include `get-clipboard-foreign' (the default), and
1258 functions calling `get-selection-foreign' (q.v.)."
1254 :type '(radio (function-item :tag "Get from Clipboard" 1259 :type '(radio (function-item :tag "Get from Clipboard"
1255 :format "%t\n" 1260 :format "%t\n"
1256 get-clipboard) 1261 get-clipboard-foreign)
1257 (const :tag "None" nil) 1262 (const :tag "None" nil)
1258 (function :tag "Other")) 1263 (function :tag "Other"))
1259 :group 'killing) 1264 :group 'killing)
1260 1265
1261 1266