Re: Tramp and `dired-listing-switches'

[Emanuel Berg <incal@dataswamp.org>]

> Cycling the sets works, but I don't know if that method is
> the cleanest way to do it. It uses a lexical let-closure and
> `setf', `cdr' and `last' to make it circular [...]
>
> (setq dired-listing-switches
>   "-AGlX --group-directories-first -I \"*.meta\" -I \"#*#\" -I \"*.elc\"")
>
> (let*((dired-ls-opts (list dired-listing-switches "-Al"))
>       (_ (setf (cdr (last dired-ls-opts)) dired-ls-opts)) )
>   (defun dired-ls-opts-cycle ()
>     (interactive)
>     (setq dired-listing-switches (pop dired-ls-opts)) )
>   (declare-function dired-ls-opts-cycle nil)
>   (defalias 'lc #'dired-ls-opts-cycle) )

I had a feeling there was a better way to do the cycling part.
Here it is, much cleaner than the method above.

(let*((clist '#1=(1 2 3 4 5 6 . #1#)))
  (defun next ()
    (pop clist) ))

;; (next)

-- 
underground experts united
https://dataswamp.org/~incal