On 7/22/05, Juanma Barranquero <[EMAIL PROTECTED]> wrote:
> instead of simply
>
> (let ((special (cadr (assq minor-mode desktop-minor-mode-table))))
> (when (or special (functionp minor-mode))
> (add-to-list 'ret (or special minor-mode))))
My fault, for posting untested code. I meant:
(let* ((special (assq minor-mode desktop-minor-mode-table))
(value (cond (special (cadr special))
((functionp minor-mode) minor-mode))))
(when value (add-to-list 'ret value)))))
--
/L/e/k/t/u
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
