1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

(filesets-data): Add another defvar.

(filesets-verbosity): Doc fix.
This commit is contained in:
Richard M. Stallman 2003-05-03 13:48:39 +00:00
parent 199a0cb9b3
commit 9f243b0d3d

View file

@ -3,6 +3,7 @@
;; Copyright (C) 2002 Free Software Foundation, Inc.
;; Author: Thomas Link <t.link@gmx.at>
;; Maintainer: FSF
;; Keywords: filesets convenience
;; This file is part of GNU Emacs.
@ -66,6 +67,13 @@
;;- 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:
@ -119,8 +127,8 @@ ignored.")
Is buffer local variable.")
(defvar filesets-verbosity 1
"An integer defining the level of verbosity. 0 means no messages
at all.")
"An integer defining the level of verbosity.
0 means no messages at all.")
(defvar filesets-menu-ensure-use-cached
(and filesets-running-xemacs
@ -264,6 +272,8 @@ key is supported."
(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
@ -280,9 +290,7 @@ key is supported."
(dolist (x modified-filesets)
(filesets-reset-fileset (car x))))))
(filesets-set-default sym val))
;;; configuration
(defgroup filesets nil
"The fileset swapper."
@ -1057,8 +1065,7 @@ defined in `filesets-ingroup-patterns'."
:set (function filesets-set-default)
:type 'integer
:group 'filesets)
;;; Emacs compatibility
(eval-and-compile
(if filesets-running-xemacs