27 |
|
|
28 |
;;; Commentary: |
;;; Commentary: |
29 |
|
|
30 |
;; Define filesets, which can be opened or saved with the power one or |
;; Define filesets, which can be opened or saved with the power of one or |
31 |
;; two mouse clicks only. A fileset is either a list of files, a file |
;; two mouse clicks only. A fileset is either a list of files, a file |
32 |
;; pattern, a base directory and a search pattern (for files), or an |
;; pattern, a base directory and a search pattern (for files), or an |
33 |
;; inclusion group (i.e. a base file including other files). |
;; inclusion group (i.e. a base file including other files). |
86 |
(eval-and-compile |
(eval-and-compile |
87 |
(unless (boundp 'filesets-running-xemacs) |
(unless (boundp 'filesets-running-xemacs) |
88 |
(defvar filesets-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) |
(defvar filesets-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) |
89 |
"Non-nil means we are runninn XEmacs."))) |
"Non-nil means we are running XEmacs."))) |
90 |
|
|
91 |
(defvar filesets-menu-cache nil |
(defvar filesets-menu-cache nil |
92 |
"The whole filesets menu.") |
"The whole filesets menu.") |