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

[Eli Zaretskii]

Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.22 emacs/lisp/filesets.el:1.23
*** emacs/lisp/filesets.el:1.22 Sun Apr  3 16:55:58 2005
--- emacs/lisp/filesets.el      Sat Apr 16 15:21:04 2005
***************
*** 1794,1801 ****
         (name   (or name
                     (completing-read
                      (format "Add '%s' to fileset: " buffer)
!                     filesets-data nil t)))
!        (entry  (assoc name filesets-data)))
      (if entry
        (let* ((files  (filesets-entry-get-files entry))
               (this   (buffer-file-name buffer))
--- 1794,1810 ----
         (name   (or name
                     (completing-read
                      (format "Add '%s' to fileset: " buffer)
!                     filesets-data nil)))
!          (entry  (or (assoc name filesets-data)
!                      (when (y-or-n-p
!                             (format "Fileset %s does not exist. Create it?"
!                                     name))
!                        (progn
!       (add-to-list 'filesets-data (list name '(:files)))
!       (message
!        "Fileset %s created.  Call `M-x filesets-save-config' to save."
!        name)
!       (car filesets-data))))))
      (if entry
        (let* ((files  (filesets-entry-get-files entry))
               (this   (buffer-file-name buffer))