From ae32f78f43e63ed6471e65140128795c3f06633d Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Sun, 13 Feb 2011 22:41:48 -0500 Subject: [PATCH] Rename filesets-whole-data-get -> fileset-whole-data-get, filesets-whole->fileset -> fileset-whole->fileset --- fileset-whole.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/fileset-whole.el b/fileset-whole.el index 1c30ee3..18e3132 100644 --- a/fileset-whole.el +++ b/fileset-whole.el @@ -181,8 +181,8 @@ autoloads." (defun fileset-whole-entry->alist (entry) "Return the alist of ENTRY" (cdr entry)) -;;;_ . filesets-whole-data-get -(defun filesets-whole-data-get (entry key &optional default carp) +;;;_ . fileset-whole-data-get +(defun fileset-whole-data-get (entry key &optional default carp) "Extract the value for KEY in the data part of fileset ENTRY. Return DEFAULT if not found. Return (car VALUE) if CARP is non-nil." (filesets-alist-get @@ -228,7 +228,7 @@ Called interactively, it's useful for changing a buffer's default "Return the root dir of FILESET-WHOLE if it exists." ;;$$IMPROVE ME Store a :root-dir property if we made one. (or - (filesets-whole-data-get fileset-whole :root-dir nil t) + (fileset-whole-data-get fileset-whole :root-dir nil t) (fileset-whole-root-dir fileset))) @@ -277,8 +277,8 @@ If prefix arg is given, don't use FILESET-NAME default." (filesets-run-cmd cmd-name fileset-name))))) ;;;_ , Fileset extras -;;;_ . filesets-whole->fileset -(defun filesets-whole->fileset (fileset) +;;;_ . fileset-whole->fileset +(defun fileset-whole->fileset (fileset) "Return a fileset object corresponding to FILESET. If FILESET is a string, return the fileset of that name." @@ -355,7 +355,7 @@ files that satisfy it." "Return a fileset's smallest enclosing directory." (let* - ((fileset (filesets-whole->fileset fileset)) + ((fileset (fileset-whole->fileset fileset)) (files (fileset-whole-get-filelist fileset)) (prefix (if files -- 2.11.4.GIT