- (interactive "P")
- (let ((diff (funcall r)))
- (cond
- ((not (eq last-command 'yank)) (if arg (call-interactively smart-yank-browse-kill-ring-command)
- (rotate-yank-pointer 1)
- (yank)))
- ((or (not diff)
- (> diff smart-yank-yank-pop-multikey-delay))
- (call-interactively #'yank-pop))
- (t (funcall (or yank-undo-function #'delete-region)
- (region-beginning) (region-end))
- (when smart-yank-browse-kill-ring-command
- (call-interactively smart-yank-browse-kill-ring-command)))))))
+ (interactive "P")
+ (let ((diff (funcall r)))
+ (cond
+ ((not (eq last-command 'yank)) (if arg (call-interactively smart-yank-browse-kill-ring-command)
+ (rotate-yank-pointer 1)
+ (yank)))
+ ((or (not diff)
+ (> diff smart-yank-yank-pop-multikey-delay))
+ (call-interactively #'yank-pop))
+ (t (funcall (or yank-undo-function #'delete-region)
+ (region-beginning) (region-end))
+ (when smart-yank-browse-kill-ring-command
+ (call-interactively smart-yank-browse-kill-ring-command))))))))