Mercurial > emacs
comparison lisp/filesets.el @ 45186:aa4f6ae8b6a9
(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 | 79ab9956f2a0 |
| children | f4660a19c409 |
comparison
equal
deleted
inserted
replaced
| 45185:f687ce0088e4 | 45186:aa4f6ae8b6a9 |
|---|---|
| 292 "*Filesets' menu name." | 292 "*Filesets' menu name." |
| 293 :set (function filesets-set-default) | 293 :set (function filesets-set-default) |
| 294 :type 'sexp | 294 :type 'sexp |
| 295 :group 'filesets) | 295 :group 'filesets) |
| 296 | 296 |
| 297 (when filesets-running-xemacs | 297 (if |
| 298 (defcustom filesets-menu-path nil | 298 (progn |
| 299 "*The menu under which the filesets menu should be inserted. | 299 (defcustom filesets-menu-path nil |
| 300 "*The menu under which the filesets menu should be inserted. | |
| 300 XEmacs specific; see `add-submenu' for documentation." | 301 XEmacs specific; see `add-submenu' for documentation." |
| 301 :set (function filesets-set-default) | 302 :set (function filesets-set-default) |
| 302 :type 'sexp | 303 :type 'sexp |
| 303 :group 'filesets) | 304 :group 'filesets) |
| 304 | 305 |
| 305 (defcustom filesets-menu-before "File" | 306 (defcustom filesets-menu-before "File" |
| 306 "*The name of a menu before which this menu should be added. | 307 "*The name of a menu before which this menu should be added. |
| 307 XEmacs specific; see `add-submenu' for documentation." | 308 XEmacs specific; see `add-submenu' for documentation." |
| 308 :set (function filesets-set-default) | 309 :set (function filesets-set-default) |
| 309 :type 'sexp | 310 :type 'sexp |
| 310 :group 'filesets) | 311 :group 'filesets) |
| 311 | 312 |
| 312 (defcustom filesets-menu-in-menu nil | 313 (defcustom filesets-menu-in-menu nil |
| 313 "*Use that instead of `current-menubar' as the menu to change. | 314 "*Use that instead of `current-menubar' as the menu to change. |
| 314 XEmacs specific; see `add-submenu' for documentation." | 315 XEmacs specific; see `add-submenu' for documentation." |
| 315 :set (function filesets-set-default) | 316 :set (function filesets-set-default) |
| 316 :type 'sexp | 317 :type 'sexp |
| 317 :group 'filesets)) | 318 :group 'filesets)) |
| 319 (defvar filesets-menu-path nil) | |
| 320 (defvar filesets-menu-before nil) | |
| 321 (defvar filesets-menu-in-menu nil)) | |
| 318 | 322 |
| 319 (defcustom filesets-menu-shortcuts-flag t | 323 (defcustom filesets-menu-shortcuts-flag t |
| 320 "*Non-nil means to prepend menus with hopefully unique shortcuts." | 324 "*Non-nil means to prepend menus with hopefully unique shortcuts." |
| 321 :set (function filesets-set-default!) | 325 :set (function filesets-set-default!) |
| 322 :type 'boolean | 326 :type 'boolean |
| 1101 (string< (funcall fni a) | 1105 (string< (funcall fni a) |
| 1102 (funcall fni b))) | 1106 (funcall fni b))) |
| 1103 (lambda (a b) | 1107 (lambda (a b) |
| 1104 (string< (upcase (funcall fni a)) | 1108 (string< (upcase (funcall fni a)) |
| 1105 (upcase (funcall fni b))))))) | 1109 (upcase (funcall fni b))))))) |
| 1106 (sort (copy-list lst) fn)) | 1110 (sort (copy-sequence lst) fn)) |
| 1107 lst)) | 1111 lst)) |
| 1108 | 1112 |
| 1109 (defun filesets-directory-files (dir &optional | 1113 (defun filesets-directory-files (dir &optional |
| 1110 pattern what full-flag match-dirs-flag) | 1114 pattern what full-flag match-dirs-flag) |
| 1111 "Get WHAT (:files or :dirs) in DIR. If PATTERN is provided return only | 1115 "Get WHAT (:files or :dirs) in DIR. If PATTERN is provided return only |