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

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

[nongnu] elpa/undo-fu 756a4846b3 06/82: Remove redundant error handling


From: ELPA Syncer
Subject: [nongnu] elpa/undo-fu 756a4846b3 06/82: Remove redundant error handling case
Date: Thu, 7 Jul 2022 12:04:47 -0400 (EDT)

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

    Remove redundant error handling case
    
    Also minor comment improvements.
---
 undo-fu.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/undo-fu.el b/undo-fu.el
index f79a593bfe..f807ab82b9 100644
--- a/undo-fu.el
+++ b/undo-fu.el
@@ -129,8 +129,8 @@ Optional argument ARG The number of steps to redo."
       (unless was-undo-or-redo
         (setq undo-fu--respect t)))
 
-    ;; Allow crossing the boundary, if we press keyboard-quit.
-    ;; to allow explicitly over-stepping the boundary, in cases where it's 
needed.
+    ;; Allow crossing the boundary, if we press [keyboard-quit].
+    ;; This allows explicitly over-stepping the boundary, in cases where it's 
needed.
     (when undo-fu--respect
       (when (string-equal last-command 'keyboard-quit)
         (setq undo-fu--respect nil)
@@ -156,7 +156,7 @@ Optional argument ARG The number of steps to redo."
         (last-command
           (cond
             (was-undo
-              ;; Break undo chain, avoid having to press keyboard-quit.
+              ;; Break undo chain, avoid having to press [keyboard-quit].
               'ignore)
             (was-redo
               ;; Checked by the undo function.
@@ -175,7 +175,7 @@ Optional argument ARG The number of steps to redo."
             (progn
               (undo steps)
               t)
-            (user-error (message "%s" (error-message-string err))))))
+            (error (message "%s" (error-message-string err))))))
       (when success
         (when undo-fu--respect
           (when (eq (gethash buffer-undo-list undo-equiv-table) 
undo-fu--checkpoint)
@@ -225,7 +225,6 @@ Optional argument ARG the number of steps to undo."
             (progn
               (undo-only steps)
               t)
-            (user-error (message "%s" (error-message-string err)))
             (error (message "%s" (error-message-string err))))))
       (when success
         (when undo-fu--respect



reply via email to

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