# HG changeset patch # User Carsten Dominik # Date 938166900 0 # Node ID 4c4fabd167826c3ffa5efa32a2c9b01ffd097499 # Parent 8f6d4157f70050828f644009cba5bfd3159f8938 Version number change diff -r 8f6d4157f700 -r 4c4fabd16782 lisp/textmodes/reftex-index.el --- a/lisp/textmodes/reftex-index.el Fri Sep 24 09:54:22 1999 +0000 +++ b/lisp/textmodes/reftex-index.el Fri Sep 24 09:55:00 1999 +0000 @@ -9,6 +9,7 @@ (defvar mark-active) (defvar zmacs-regions) +(defvar transient-mark-mode) (defun reftex-index-selection-or-word (&optional arg) "Put selection or the word near point into the default index macro. This uses the information in `reftex-index-default-macro' to make an index diff -r 8f6d4157f700 -r 4c4fabd16782 lisp/textmodes/reftex.el --- a/lisp/textmodes/reftex.el Fri Sep 24 09:54:22 1999 +0000 +++ b/lisp/textmodes/reftex.el Fri Sep 24 09:55:00 1999 +0000 @@ -1995,6 +1995,15 @@ (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.