comparison lisp/textmodes/reftex.el @ 25802:4c4fabd16782

Version number change

25801:8f6d4157f700

      (unless (symbolp (car list))
	(push (car list) rtn))
      (setq list (cdr list)))
    (nreverse rtn)))

(defun reftex-uniquify-by-car (alist &optional keep-list)
  ;; Return a list of all elements in ALIST, but each car only once.
  ;; Elements of KEEP-LIST are not removed even if duplicate.
  (let (new elm)
    (while alist

25802:4c4fabd16782

      (unless (symbolp (car list))
	(push (car list) rtn))
      (setq list (cdr list)))
    (nreverse rtn)))

(defun reftex-uniquify (list)
  ;; Return a list of all elements in LIST, but each only once
  (let (new elm)
    (while list
      (setq elm (pop list))
      (unless (member elm new)
	(push elm new)))
    (nreverse new)))

(defun reftex-uniquify-by-car (alist &optional keep-list)
  ;; Return a list of all elements in ALIST, but each car only once.
  ;; Elements of KEEP-LIST are not removed even if duplicate.
  (let (new elm)
    (while alist