emacs-devel
[Top][All Lists]
Advanced

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

Re: [Emacs-diffs] trunk r113497: lisp/desktop.el: Simplify.


From: Stefan Monnier
Subject: Re: [Emacs-diffs] trunk r113497: lisp/desktop.el: Simplify.
Date: Mon, 22 Jul 2013 21:25:19 -0400
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux)

>  (defun desktop-list* (&rest args)
> -  (if (null (cdr args))
> -      (car args)
> -    (setq args (nreverse args))
> -    (let ((value (cons (nth 1 args) (car args))))
> -      (setq args (cdr (cdr args)))
> -      (while args
> -     (setq value (cons (car args) value))
> -     (setq args (cdr args)))
> -      value)))
> +  (and args (cl-list* args)))
 
Doesn't look right.  Shouldn't it be

   (and args (apply #'cl-list* args))

or more simply

   (apply #'cl-list* args)

which boils down to

   (defalias 'desktop-list* 'cl-list*)


-- Stefan



reply via email to

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