Mercurial > emacs

changeset 25802:4c4fabd16782

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version number change
author Carsten Dominik <dominik@science.uva.nl>
date Fri, 24 Sep 1999 09:55:00 +0000
parents 8f6d4157f700
children 8b032ca83ce6
files lisp/textmodes/reftex-index.el lisp/textmodes/reftex.el
diffstat 2 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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.