RE: Cycle Org Shift Select

[Drew Adams]

> (defun Org-Shftsel-Cycle ()
>   (interactive)
>   (setq org-support-shift-select
>         (cadr (memq org-support-shift-select '(nil t always nil)))))


Elegant Lisp, IMO!  A good idiom.
___


Slightly cuter: the last nil isn't needed, since (car nil) = nil.

(defvar toto nil)

(defun foo ()
  (interactive)
  (setq toto  (cadr (memq toto '(nil t always))))
  (message "NOW: %s" toto))

Of if you want to show also what'll come next:

(defun foo ()
  (interactive)
  (let ((xs  '(nil t always))
        next)
    (setq toto  (cadr (memq toto xs))
          next  (cadr (memq toto xs)))
    (message "NOW: %s, NEXT: %s" toto next)))