comparison lisp/filesets.el @ 50782:1b22075b3bb5

(filesets-data): Add another defvar. (filesets-verbosity): Doc fix.

50781:ef4c56e5906b

;;; filesets.el --- handle group of files

;; Copyright (C) 2002 Free Software Foundation, Inc.

;; Author: Thomas Link <[e-mail]>
;; Keywords: filesets convenience

;; This file is part of GNU Emacs.

;; This program is free software; you can redistribute it and/or modify

;;; To do:

;;- better handling of different customization scenarios


;;; Credits:

;; Helpful suggestions (but no significant code) were contributed by

(defvar filesets-output-buffer-flag nil
  "Non-nil means the current buffer is an output buffer created by filesets.
Is buffer local variable.")

(defvar filesets-verbosity 1
  "An integer defining the level of verbosity. 0 means no messages
at all.")

(defvar filesets-menu-ensure-use-cached
  (and filesets-running-xemacs
       (not (emacs-version>= 21 5)))
  "Make sure (X)Emacs uses filesets' cache.

(defun filesets-set-default+ (sym val)
  "Call `filestes-set-default' and reset filesets' standard menu."
  (when (filesets-set-default sym val)
    (setq filesets-has-changed-flag t)))
;    (filesets-reset-fileset nil t)))

(defun filesets-data-set-default (sym val)
  "Set the default for `filesets-data'."
  (if filesets-menu-use-cached-flag
      (setq filesets-menu-use-cached-flag nil)

					 (or (not elt)
					     (not (equal data (cdr elt))))))))))
	(dolist (x modified-filesets)
	  (filesets-reset-fileset (car x))))))
  (filesets-set-default sym val))



;;; configuration
(defgroup filesets nil
  "The fileset swapper."
  :prefix "filesets-"
  :group 'convenience)

(defcustom filesets-query-user-limit 15
  "*Query the user before opening a fileset with that many files."
  :set (function filesets-set-default)
  :type 'integer
  :group 'filesets)


;;; Emacs compatibility
(eval-and-compile
  (if filesets-running-xemacs
      (progn
	(fset 'filesets-error 'error)

50782:1b22075b3bb5

;;; filesets.el --- handle group of files

;; Copyright (C) 2002 Free Software Foundation, Inc.

;; Author: Thomas Link <[e-mail]>
;; Maintainer: FSF
;; Keywords: filesets convenience

;; This file is part of GNU Emacs.

;; This program is free software; you can redistribute it and/or modify

;;; To do:

;;- better handling of different customization scenarios

;; Data gathering should be better separated from building the menu
;; so that one could (1) use filesets without installing the menu
;; and (2) create new "frontends" to speedbar and others.

;; The functionality to call external viewers should be isolated in
;; an extra package and possibly integrated with the MIME
;; handling.

;;; Credits:

;; Helpful suggestions (but no significant code) were contributed by

(defvar filesets-output-buffer-flag nil
  "Non-nil means the current buffer is an output buffer created by filesets.
Is buffer local variable.")

(defvar filesets-verbosity 1
  "An integer defining the level of verbosity.
0 means no messages at all.")

(defvar filesets-menu-ensure-use-cached
  (and filesets-running-xemacs
       (not (emacs-version>= 21 5)))
  "Make sure (X)Emacs uses filesets' cache.

(defun filesets-set-default+ (sym val)
  "Call `filestes-set-default' and reset filesets' standard menu."
  (when (filesets-set-default sym val)
    (setq filesets-has-changed-flag t)))
;    (filesets-reset-fileset nil t)))

(defvar filesets-data)

(defun filesets-data-set-default (sym val)
  "Set the default for `filesets-data'."
  (if filesets-menu-use-cached-flag
      (setq filesets-menu-use-cached-flag nil)

					 (or (not elt)
					     (not (equal data (cdr elt))))))))))
	(dolist (x modified-filesets)
	  (filesets-reset-fileset (car x))))))
  (filesets-set-default sym val))

;;; configuration
(defgroup filesets nil
  "The fileset swapper."
  :prefix "filesets-"
  :group 'convenience)

(defcustom filesets-query-user-limit 15
  "*Query the user before opening a fileset with that many files."
  :set (function filesets-set-default)
  :type 'integer
  :group 'filesets)

;;; Emacs compatibility
(eval-and-compile
  (if filesets-running-xemacs
      (progn
	(fset 'filesets-error 'error)