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

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

[nongnu] elpa/undo-fu a3522b9805 06/10: Cleanup: sharp-quote function


From: ELPA Syncer
Subject: [nongnu] elpa/undo-fu a3522b9805 06/10: Cleanup: sharp-quote function
Date: Mon, 9 Jan 2023 18:00:42 -0500 (EST)

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

    Cleanup: sharp-quote function
---
 undo-fu.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/undo-fu.el b/undo-fu.el
index c939310d27..1696fb8c32 100644
--- a/undo-fu.el
+++ b/undo-fu.el
@@ -131,7 +131,7 @@ Argument SUFFIX is the text to add at the start of the 
message.
 Optional argument BODY runs with the message suffix."
   (declare (indent 1))
   `
-  (undo-fu--with-advice 'message
+  (undo-fu--with-advice #'message
     :around
     (lambda (fn-orig arg &rest args)
       (apply fn-orig (append (list (concat arg "%s")) args (list ,suffix))))
@@ -142,11 +142,11 @@ Optional argument BODY runs with the message suffix."
   (declare (indent 1))
   `
   (let ((temp-message-list (list)))
-    (undo-fu--with-advice 'message
+    (undo-fu--with-advice #'message
       :around
       (lambda (_ &rest args)
         (when message-log-max
-          (let ((message-text (apply 'format-message args)))
+          (let ((message-text (apply #'format-message args)))
             (unless (equal message-text (car temp-message-list))
               (push message-text temp-message-list)))))
       (unwind-protect



reply via email to

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