procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(filesets-add-buffer): If user supplies a name of a

Browse source 
non-existing fileset, create a new fileset.
This commit is contained in:
Eli Zaretskii 2005-04-16 15:22:12 +00:00
parent f6a76cf336
commit 3d70f2795c
2 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2005-04-16 Chong Yidong <cyd@stupidchicken.com>
* filesets.el (filesets-add-buffer): If user supplies a name of a
non-existing fileset, create a new fileset.
2005-04-16 Carsten Dominik <dominik@science.uva.nl>
* textmodes/org.el (org-up-heading-all): Fixed bug with

13
lisp/filesets.el
View file

@ -1794,8 +1794,17 @@ User will be queried, if no fileset name is provided."
(name (or name
(completing-read
(format "Add '%s' to fileset: " buffer)
filesets-data nil t)))
(entry (assoc name filesets-data)))
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))