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

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

[nongnu] elpa/recomplete c4085d13ed 7/7: Cleanup: function sharp quoting


From: ELPA Syncer
Subject: [nongnu] elpa/recomplete c4085d13ed 7/7: Cleanup: function sharp quoting
Date: Sat, 7 Jan 2023 19:59:39 -0500 (EST)

branch: elpa/recomplete
commit c4085d13ed64d4be6cfc771b74e07e0febcf0415
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: function sharp quoting
---
 recomplete.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/recomplete.el b/recomplete.el
index 4bf0f243ae..0c185a7fb0 100644
--- a/recomplete.el
+++ b/recomplete.el
@@ -189,7 +189,7 @@ Argument LIST compatible list `buffer-undo-list'."
 
    ;; Break the chain.
    (t
-    (remove-hook 'post-command-hook 'recomplete--alist-clear-hook t)
+    (remove-hook 'post-command-hook #'recomplete--alist-clear-hook t)
     (setq recomplete--alist nil))))
 
 
@@ -202,7 +202,7 @@ Argument FN-CACHE stores the result for reuse."
   (pcase-let ((`(,result-choices ,word-beg ,word-end) (or fn-cache '(nil nil 
nil))))
 
     (unless result-choices
-      (recomplete--with-advice #'ispell-command-loop
+      (recomplete--with-advice 'ispell-command-loop
           :override
           (lambda (miss _guess _word start end)
             (when miss
@@ -241,7 +241,7 @@ Argument FN-CACHE stores the result for reuse."
       (let* ((word-init (buffer-substring-no-properties word-beg word-end))
              (word-split
               (mapcar
-               'downcase
+               #'downcase
                (split-string (string-trim (replace-regexp-in-string
                                            "\\([[:lower:]]\\)\\([[:upper:]]\\)"
                                            "\\1_\\2"
@@ -567,7 +567,7 @@ step onto the next item)."
 
             ;; Ensure a local hook, which removes it's self on the first 
non-successive call
             ;; to a command that doesn't execute `recomplete-with-callback' 
with `fn-symbol'.
-            (add-hook 'post-command-hook 'recomplete--alist-clear-hook 0 t)))
+            (add-hook 'post-command-hook #'recomplete--alist-clear-hook 0 t)))
 
         ;; Result, success.
         t)))))



reply via email to

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