[Emacs-diffs] Changes to emacs/lisp/filesets.el

[Markus Rost]

Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.7 emacs/lisp/filesets.el:1.8
*** emacs/lisp/filesets.el:1.7  Tue May  7 12:11:20 2002
--- emacs/lisp/filesets.el      Wed May  8 11:54:13 2002
***************
*** 294,320 ****
    :type 'sexp
    :group 'filesets)
  
! (when filesets-running-xemacs
!   (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)
  
!   (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)
  
!   (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))
  
  (defcustom filesets-menu-shortcuts-flag t
    "*Non-nil means to prepend menus with hopefully unique shortcuts."
--- 294,324 ----
    :type 'sexp
    :group 'filesets)
  
! (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)
  
!       (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)
  
!       (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))
!   (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,1109 ****
                   (lambda (a b)
                     (string< (upcase (funcall fni a))
                              (upcase (funcall fni b)))))))
!       (sort (copy-list lst) fn))
      lst))
  
  (defun filesets-directory-files (dir &optional
--- 1107,1113 ----
                   (lambda (a b)
                     (string< (upcase (funcall fni a))
                              (upcase (funcall fni b)))))))
!       (sort (copy-sequence lst) fn))
      lst))
  
  (defun filesets-directory-files (dir &optional