Mercurial > emacs

changeset 45186:aa4f6ae8b6a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Markus Rost <rost@math.uni-bielefeld.de>
date Wed, 08 May 2002 15:54:13 +0000
parents f687ce0088e4
children 023e877e91ce
files lisp/filesets.el
diffstat 1 files changed, 21 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- 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