diff options
| author | Carsten Dominik <dominik@science.uva.nl> | 1999-09-24 09:55:00 +0000 |
|---|---|---|
| committer | Carsten Dominik <dominik@science.uva.nl> | 1999-09-24 09:55:00 +0000 |
| commit | 48ffe14fdd981954fe18cb6fb174eaf5005dd920 (patch) | |
| tree | b66e298cac69a41cd8f5aa4117b083141dc090fa /lisp/textmodes/reftex.el | |
| parent | 09308e63638e0a3d667622a5220da5e23b5482fc (diff) | |
| download | emacs-48ffe14fdd981954fe18cb6fb174eaf5005dd920.tar.gz emacs-48ffe14fdd981954fe18cb6fb174eaf5005dd920.tar.bz2 emacs-48ffe14fdd981954fe18cb6fb174eaf5005dd920.zip | |
Version number change
Diffstat (limited to 'lisp/textmodes/reftex.el')
| -rw-r--r-- | lisp/textmodes/reftex.el | 9 |
1 files changed, 9 insertions, 0 deletions
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. |