For (S)XEmacsen sudokuers here is `undo-copy-list' grabbed from
http://www.emacswiki.org/cgi-bin/wiki/selective-undo-xmas.el:

    (defun undo-copy-list (list)
      "Make a copy of undo list LIST. "
      (mapcar 'undo-copy-list-1 list))

    (defun undo-copy-list-1 (elt)
      (if (consp elt)
          (cons (car elt) (undo-copy-list-1 (cdr elt)))
        elt))

_______________________________________________
Gnu-emacs-sources mailing list
Gnu-emacs-sources@gnu.org
http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources

Reply via email to