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

[Pavel Janík]

Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.1 emacs/lisp/filesets.el:1.2
*** emacs/lisp/filesets.el:1.1  Sun Apr 28 17:14:41 2002
--- emacs/lisp/filesets.el      Mon Apr 29 04:48:01 2002
***************
*** 2,11 ****
  
  ;; Copyright (C) 2002 Free Software Foundation, Inc.
  
! ;; Author: Thomas Link aka t.link (at gmx at)
! ;; Time-stamp: <2002-03-22>
  ;; Keywords: filesets convenience
  
  ;; 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)
--- 2,12 ----
  
  ;; Copyright (C) 2002 Free Software Foundation, Inc.
  
! ;; Author: Thomas Link <address@hidden>
  ;; 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,54 ****
  
  ;;; 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).
! 
! ;;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.
! 
! ;;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'.
! 
! ;;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
--- 27,55 ----
  
  ;;; 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).
! 
! ;; 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.
! 
! ;; 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'.
! 
! ;; 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,90 ****
  
  
  ;;; Some variables
! (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.")
--- 83,92 ----
  
  
  ;;; Some variables
! (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,929 ****
  :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)
  
  :dormant-flag BOOLEAN ... non-nil means don't show this item in the
  menu; dormant filesets can still be manipulated via commands available
--- 925,931 ----
  :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)
  
  :dormant-flag BOOLEAN ... non-nil means don't show this item in the
  menu; dormant filesets can still be manipulated via commands available