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

[Richard M. Stallman]

Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.14 emacs/lisp/filesets.el:1.15
*** emacs/lisp/filesets.el:1.14 Wed Apr 23 21:55:38 2003
--- emacs/lisp/filesets.el      Sat May  3 09:48:39 2003
***************
*** 3,8 ****
--- 3,9 ----
  ;; Copyright (C) 2002 Free Software Foundation, Inc.
  
  ;; Author: Thomas Link <address@hidden>
+ ;; Maintainer: FSF
  ;; Keywords: filesets convenience
  
  ;; This file is part of GNU Emacs.
***************
*** 66,71 ****
--- 67,79 ----
  
  ;;- 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,126 ****
  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
--- 127,134 ----
  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
***************
*** 264,269 ****
--- 272,279 ----
      (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,288 ****
        (dolist (x modified-filesets)
          (filesets-reset-fileset (car x))))))
    (filesets-set-default sym val))
! 
! 
! 
  ;;; configuration
  (defgroup filesets nil
    "The fileset swapper."
--- 290,296 ----
        (dolist (x modified-filesets)
          (filesets-reset-fileset (car x))))))
    (filesets-set-default sym val))
! 
  ;;; configuration
  (defgroup filesets nil
    "The fileset swapper."
***************
*** 1057,1064 ****
    :set (function filesets-set-default)
    :type 'integer
    :group 'filesets)
! 
! 
  ;;; Emacs compatibility
  (eval-and-compile
    (if filesets-running-xemacs
--- 1065,1071 ----
    :set (function filesets-set-default)
    :type 'integer
    :group 'filesets)
! 
  ;;; Emacs compatibility
  (eval-and-compile
    (if filesets-running-xemacs