[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/filesets.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/filesets.el |
Date: |
Sat, 16 Apr 2005 11:21:04 -0400 |
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))