Cycle Org Shift Select

[Christopher Dimech]

I have this code to cycle the Shift Select option for Org Mode.

I am a little concerned that (nconc Shftsel Shftsel) will continually
append, rather than just cycle through the list.

Looking for a better way to this job.

(defun Org-Shftsel-Cycle ()
   ;; Switches between options to org-support-shift-select
   (interactive)
   (let ((Shftsel (list nil t nil 'always)))
      (nconc Shftsel Shftsel)
      (setq org-support-shift-select
         (cadr (member org-support-shift-select Shftsel))) ))