# HG changeset patch # User Pavel Jank # Date 1020070081 0 # Node ID f23f116485595ec4e3a05d39815ec1f600bec6a0 # Parent 5ec834e9370b0b2164d29b48d460538e93c6e2e1 (filesets-data): Doc fix. (filesets-running-xemacs): Define even when compiling. diff -r 5ec834e9370b -r f23f11648559 lisp/filesets.el --- a/lisp/filesets.el Mon Apr 29 08:07:43 2002 +0000 +++ b/lisp/filesets.el Mon Apr 29 08:48:01 2002 +0000 @@ -2,10 +2,11 @@ ;; Copyright (C) 2002 Free Software Foundation, Inc. -;; Author: Thomas Link aka t.link (at gmx at) -;; Time-stamp: <2002-03-22> +;; Author: Thomas Link ;; Keywords: filesets convenience +;; This file is part of GNU Emacs. + ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) @@ -26,29 +27,29 @@ ;;; Commentary: -;;Define filesets, which can be opened or saved with the power one or -;;two mouse clicks only. A fileset is either a list of files, a file -;;pattern, a base directory and a search pattern (for files), or an -;;inclusion group (i.e. a base file including other files). +;; Define filesets, which can be opened or saved with the power one or +;; two mouse clicks only. A fileset is either a list of files, a file +;; pattern, a base directory and a search pattern (for files), or an +;; inclusion group (i.e. a base file including other files). -;;Usage: 1. Put (require 'filesets) into your start-up file. 2. Type -;;M-x filesets-edit or choose "Edit Filesets" from the menu. 3. Save -;;your customizations. +;; Usage: 1. Put (require 'filesets) into your start-up file. 2. Type +;; M-x filesets-edit or choose "Edit Filesets" from the menu. 3. Save +;; your customizations. -;;Caveat: Fileset names have to be unique. +;; Caveat: Fileset names have to be unique. -;;Filesets.el adds a nifty filesets menu to your menubar. If you change -;;your filesets on the fly, don't forget to select "Save Filesets" from -;;the menu. +;; Filesets.el adds a nifty filesets menu to your menubar. If you change +;; your filesets on the fly, don't forget to select "Save Filesets" from +;; the menu. -;;Pressing on the first item in the submenu will open all files at once. -;;Define your own function, e.g. browse-url, for opening a fileset's -;;files. Or define external viewers for opening files with other -;;programs. See `filesets-external-viewers'. +;; Pressing on the first item in the submenu will open all files at once. +;; Define your own function, e.g. browse-url, for opening a fileset's +;; files. Or define external viewers for opening files with other +;; programs. See `filesets-external-viewers'. -;;BTW, if you close a fileset, files, which have been changed, will -;;be silently saved. Change this behaviour by setting -;;`filesets-save-buffer-fn'. +;; BTW, if you close a fileset, files, which have been changed, will +;; be silently saved. Change this behaviour by setting +;; `filesets-save-buffer-fn'. ;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'): ;; - Elisp @@ -82,9 +83,10 @@ ;;; Some variables -(unless (boundp 'filesets-running-xemacs) - (defvar filesets-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) - "Non-nil means we are runninn XEmacs.")) +(eval-and-compile + (unless (boundp 'filesets-running-xemacs) + (defvar filesets-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) + "Non-nil means we are runninn XEmacs."))) (defvar filesets-menu-cache nil "The whole filesets menu.") @@ -923,7 +925,7 @@ :filter-dirs-flag BOOLEAN ... is only used in conjunction with :tree. :tree-max-level INTEGER ... recurse into directories this many levels -(see `filesets-tree-max-level' for a full explanation) +\(see `filesets-tree-max-level' for a full explanation) :dormant-flag BOOLEAN ... non-nil means don't show this item in the menu; dormant filesets can still be manipulated via commands available