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

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

[nongnu] elpa/undo-fu 7d600ab8f2 30/82: Fix 'success' assignment (intern


From: ELPA Syncer
Subject: [nongnu] elpa/undo-fu 7d600ab8f2 30/82: Fix 'success' assignment (internal variable)
Date: Thu, 7 Jul 2022 12:04:51 -0400 (EDT)

branch: elpa/undo-fu
commit 7d600ab8f257d75d1b6e6ccdbe5f0066f2032684
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Fix 'success' assignment (internal variable)
    
    While this didn't cause any user visible bugs,
    best set this value properly.
---
 undo-fu.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/undo-fu.el b/undo-fu.el
index b221bdf2e2..12c912e026 100644
--- a/undo-fu.el
+++ b/undo-fu.el
@@ -266,7 +266,10 @@ Optional argument ARG The number of steps to redo."
                   " (unconstrained)")
                 (undo steps))
               t)
-            (error (message "%s" (error-message-string err))))))
+            (error
+              (progn
+                (message "%s" (error-message-string err))
+                nil)))))
       (when success
         (when undo-fu--respect
           (when (eq (gethash buffer-undo-list undo-equiv-table) 
undo-fu--checkpoint)
@@ -341,7 +344,10 @@ Optional argument ARG the number of steps to undo."
                   (undo steps)
                   (undo-only steps)))
               t)
-            (error (message "%s" (error-message-string err))))))
+            (error
+              (progn
+                (message "%s" (error-message-string err))
+                nil)))))
       (when success
         (when undo-fu--respect
           (setq undo-fu--checkpoint-is-blocking nil)))))



reply via email to

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