[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Cycle Org Shift Select

From: Christopher Dimech
Subject: Cycle Org Shift Select
Date: Fri, 6 Nov 2020 16:23:17 +0100

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
   (let ((Shftsel (list nil t nil 'always)))
      (nconc Shftsel Shftsel)
      (setq org-support-shift-select
         (cadr (member org-support-shift-select Shftsel))) ))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]