# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1020873253 0
# Node ID aa4f6ae8b6a9818186611d59132bda33e3ccb6af
# Parent  f687ce0088e4b27e030e7e4736e6683c527def69
(filesets-conditional-sort): Use copy-sequence, not copy-list.
(filesets-menu-path, filesets-menu-before, filesets-menu-in-menu):
Defvar them to nil if running in Emacs.

diff -r f687ce0088e4 -r aa4f6ae8b6a9 lisp/filesets.el
--- a/lisp/filesets.el	Wed May 08 15:27:26 2002 +0000
+++ b/lisp/filesets.el	Wed May 08 15:54:13 2002 +0000
@@ -294,27 +294,31 @@
   :type 'sexp
   :group 'filesets)
 
-(when filesets-running-xemacs
-  (defcustom filesets-menu-path nil
-    "*The menu under which the filesets menu should be inserted.
+(if
+    (progn
+      (defcustom filesets-menu-path nil
+	"*The menu under which the filesets menu should be inserted.
 XEmacs specific; see `add-submenu' for documentation."
-    :set (function filesets-set-default)
-    :type 'sexp
-    :group 'filesets)
+	:set (function filesets-set-default)
+	:type 'sexp
+	:group 'filesets)
 
-  (defcustom filesets-menu-before "File"
-    "*The name of a menu before which this menu should be added.
+      (defcustom filesets-menu-before "File"
+	"*The name of a menu before which this menu should be added.
 XEmacs specific; see `add-submenu' for documentation."
-    :set (function filesets-set-default)
-    :type 'sexp
-    :group 'filesets)
+	:set (function filesets-set-default)
+	:type 'sexp
+	:group 'filesets)
 
-  (defcustom filesets-menu-in-menu nil
-    "*Use that instead of `current-menubar' as the menu to change.
+      (defcustom filesets-menu-in-menu nil
+	"*Use that instead of `current-menubar' as the menu to change.
 XEmacs specific; see `add-submenu' for documentation."
-    :set (function filesets-set-default)
-    :type 'sexp
-    :group 'filesets))
+	:set (function filesets-set-default)
+	:type 'sexp
+	:group 'filesets))
+  (defvar filesets-menu-path nil)
+  (defvar filesets-menu-before nil)
+  (defvar filesets-menu-in-menu nil))
 
 (defcustom filesets-menu-shortcuts-flag t
   "*Non-nil means to prepend menus with hopefully unique shortcuts."
@@ -1103,7 +1107,7 @@
 		   (lambda (a b)
 		     (string< (upcase (funcall fni a))
 			      (upcase (funcall fni b)))))))
-	(sort (copy-list lst) fn))
+	(sort (copy-sequence lst) fn))
     lst))
 
 (defun filesets-directory-files (dir &optional