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

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

[nongnu] elpa/swift-mode f755479 333/496: Fix anchor highlighting


From: ELPA Syncer
Subject: [nongnu] elpa/swift-mode f755479 333/496: Fix anchor highlighting
Date: Sun, 29 Aug 2021 11:34:01 -0400 (EDT)

branch: elpa/swift-mode
commit f7554799713d9b54bc6909f96b12a7c1f4016a7d
Author: taku0 <mxxouy6x3m_github@tatapa.org>
Commit: taku0 <mxxouy6x3m_github@tatapa.org>

    Fix anchor highlighting
---
 swift-mode-indent.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/swift-mode-indent.el b/swift-mode-indent.el
index 2a6c377..f52484e 100644
--- a/swift-mode-indent.el
+++ b/swift-mode-indent.el
@@ -1535,13 +1535,16 @@ See `indent-new-comment-line' for SOFT."
   (when swift-mode:anchor-overlay-timer
     (cancel-timer swift-mode:anchor-overlay-timer))
 
-  (setq swift-mode:anchor-overlay-timer
-        (run-at-time
-         "1 sec"
-         nil
-         (lambda ()
-           (delete-overlay swift-mode:anchor-overlay)
-           (setq swift-mode:anchor-overlay-timer nil)))))
+  (let ((buffer (current-buffer)))
+    (setq swift-mode:anchor-overlay-timer
+          (run-at-time
+           "1 sec"
+           nil
+           (lambda ()
+             (when (buffer-live-p buffer)
+               (with-current-buffer buffer
+                 (delete-overlay swift-mode:anchor-overlay)
+                 (setq swift-mode:anchor-overlay-timer nil))))))))
 
 (provide 'swift-mode-indent)
 



reply via email to

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