branch: elpa/undo-fu-session
commit d6817120d7238bf2001c6a9ff30df9dc727ad01a
Author: Campbell Barton <[email protected]>
Commit: Campbell Barton <[email protected]>
Cleanup: rename filename to filepath in undo-fu-session-make-file-name
The argument is the full file path, not just the file name.
Also update the defcustom docstring to match the parameter names.
---
undo-fu-session.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/undo-fu-session.el b/undo-fu-session.el
index 25fe3a0a222..f46ccd6082f 100755
--- a/undo-fu-session.el
+++ b/undo-fu-session.el
@@ -104,7 +104,7 @@
(defcustom undo-fu-session-make-file-name-function
'undo-fu-session-make-file-name
"The function that computes the session file-path for the current buffer.
-The function takes two arguments (path, extension).
+The function takes two arguments (filepath, extension).
The returned path must use the extension argument."
:type 'function)
@@ -557,12 +557,12 @@ Argument PENDING-LIST a `pending-undo-list' compatible
list."
undo-fu-session-make-file-name-function)
(undo-fu-session-make-file-name filename ext)))))
-(defun undo-fu-session-make-file-name (filename ext)
- "Take the path FILENAME and EXT, returning a name based on them."
+(defun undo-fu-session-make-file-name (filepath ext)
+ "Take the path FILEPATH and EXT, returning a name based on them."
(declare (important-return-value t) (side-effect-free error-free))
(concat
(file-name-concat undo-fu-session-directory
- (url-hexify-string (convert-standard-filename
(expand-file-name filename))))
+ (url-hexify-string (convert-standard-filename
(expand-file-name filepath))))
ext))
(defun undo-fu-session--match-file-name (filename test-files)
