-This function does nothing if support for cut buffers was not compiled
-into Emacs."
- (and (fboundp 'x-get-cutbuffer-internal)
- (x-get-cutbuffer-internal
- (if which-one
- (aref [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3
- CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7]
- which-one)
- 'CUT_BUFFER0))))
+This function does nothing if cut buffer support was not compiled in."
+ (when (fboundp 'x-get-cutbuffer-internal)
+ (x-get-cutbuffer-internal
+ (aref [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3
+ CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7]
+ (or which-one 0)))))