diff options
| -rw-r--r-- | lisp/textmodes/reftex-index.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/reftex.el | 9 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index 05c07bcaba0..6936cf73fb0 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el @@ -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 --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index dcc6093ac0c..1ffa99df40f 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -1995,6 +1995,15 @@ When DIE is non-nil, throw an error if file not found." (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. |