emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/undo-fu-session 3837239a38: Cleanup: format (update elisp-


From: ELPA Syncer
Subject: [nongnu] elpa/undo-fu-session 3837239a38: Cleanup: format (update elisp-autofmt)
Date: Mon, 9 Jan 2023 00:01:48 -0500 (EST)

branch: elpa/undo-fu-session
commit 3837239a387b87afb40b3c80dd92c6e48264683c
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: format (update elisp-autofmt)
---
 undo-fu-session.el | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/undo-fu-session.el b/undo-fu-session.el
index 4402763ee7..0ca6a2956d 100755
--- a/undo-fu-session.el
+++ b/undo-fu-session.el
@@ -426,9 +426,7 @@ Argument PENDING-LIST an `pending-undo-list' compatible 
list."
   "Take the path FILENAME and return a name base on this."
   (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 filename))))
    (undo-fu-session--file-name-ext)))
 
 (defun undo-fu-session--match-file-name (filename test-files)
@@ -608,14 +606,10 @@ Argument PENDING-LIST an `pending-undo-list' compatible 
list."
       (let*
           ( ;; `emacs-buffer-undo-list' may not exist, nil is OK.
            (emacs-buffer-undo-list
-            (undo-fu-session--decode
-             (cdr
-              (assoc 'emacs-buffer-undo-list content-data))))
+            (undo-fu-session--decode (cdr (assoc 'emacs-buffer-undo-list 
content-data))))
            ;; `emacs-pending-undo-list' may not exist, nil is OK.
            (emacs-pending-undo-list
-            (undo-fu-session--decode
-             (cdr
-              (assoc 'emacs-pending-undo-list content-data))))
+            (undo-fu-session--decode (cdr (assoc 'emacs-pending-undo-list 
content-data))))
            ;; `emacs-undo-equiv-table' may not exist, nil is OK as it's 
treated as an empty list.
            (emacs-undo-equiv-table
             (undo-fu-session--equivtable-decode



reply via email to

[Prev in Thread] Current Thread [Next in Thread]