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

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

[elpa] externals/phps-mode 38e99b2: Made (thread-yield) conditional to s


From: Christian Johansson
Subject: [elpa] externals/phps-mode 38e99b2: Made (thread-yield) conditional to support Emacs 26
Date: Tue, 2 Nov 2021 12:25:57 -0400 (EDT)

branch: externals/phps-mode
commit 38e99b233dc54ffc4d273dbe489348f359278b72
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Made (thread-yield) conditional to support Emacs 26
---
 phps-mode-lex-analyzer.el | 12 ++++++++----
 phps-mode-lexer.el        |  9 ++++++---
 phps-mode.el              |  2 +-
 3 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/phps-mode-lex-analyzer.el b/phps-mode-lex-analyzer.el
index 4869a24..32b9ede 100644
--- a/phps-mode-lex-analyzer.el
+++ b/phps-mode-lex-analyzer.el
@@ -839,7 +839,8 @@
        (let ((lex-result
                (phps-mode-lex-analyzer--lex-string
                 buffer-contents)))
-         (thread-yield)
+         (when (fboundp 'thread-yield)
+           (thread-yield))
          (let ((processed-result
                 (phps-mode-lex-analyzer--process-tokens-in-string
                  (nth 0 lex-result)
@@ -871,7 +872,8 @@
              (setq phps-mode-lex-analyzer--lines-indent (nth 1 
processed-result))
              (setq phps-mode-lex-analyzer--bookkeeping (nth 2 
processed-result))
              (phps-mode-lex-analyzer--reset-imenu)
-             (thread-yield)
+             (when (fboundp 'thread-yield)
+               (thread-yield))
 
              ;; Apply syntax color on tokens
              (dolist (token phps-mode-lex-analyzer--tokens)
@@ -976,7 +978,8 @@
                incremental-heredoc-label-stack
                incremental-nest-location-stack
                head-tokens)))
-         (thread-yield)
+         (when (fboundp 'thread-yield)
+           (thread-yield))
          (let ((processed-result
                 (phps-mode-lex-analyzer--process-tokens-in-string
                  (nth 0 lex-result)
@@ -1013,7 +1016,8 @@
              (setq phps-mode-lex-analyzer--lines-indent (nth 1 
processed-result))
              (setq phps-mode-lex-analyzer--bookkeeping (nth 2 
processed-result))
              (phps-mode-lex-analyzer--reset-imenu)
-             (thread-yield)
+             (when (fboundp 'thread-yield)
+               (thread-yield))
 
              ;; Apply syntax color on tokens
              (dolist (token phps-mode-lex-analyzer--tokens)
diff --git a/phps-mode-lexer.el b/phps-mode-lexer.el
index 80d1ee0..c0f8ef8 100644
--- a/phps-mode-lexer.el
+++ b/phps-mode-lexer.el
@@ -848,7 +848,8 @@
           phps-mode-lexer--tabs-and-spaces ")")))
        (phps-mode-lexer--return-token 'T_UNSET_CAST))
 
-      (thread-yield)
+      (when (fboundp 'thread-yield)
+        (thread-yield))
 
       (phps-mode-lexer--match-macro
        (and ST_IN_SCRIPTING (looking-at "eval"))
@@ -1153,7 +1154,8 @@
              (phps-mode-lexer--return-token 'T_DNUMBER)
            (phps-mode-lexer--return-token 'T_LNUMBER))))
 
-      (thread-yield)
+      (when (fboundp 'thread-yield)
+        (thread-yield))
 
       (phps-mode-lexer--match-macro
        (and ST_VAR_OFFSET (looking-at "\\([0]\\|[1-9][0-9]*\\)"))
@@ -1832,7 +1834,8 @@
               (phps-mode-lexer--re2c)))
         (phps-mode-debug-message
          (message "Found nothing at %d" (point))))))
-  (thread-yield))
+  (when (fboundp 'thread-yield)
+    (thread-yield)))
 
 
 (provide 'phps-mode-lexer)
diff --git a/phps-mode.el b/phps-mode.el
index 63dad95..ca9597d 100644
--- a/phps-mode.el
+++ b/phps-mode.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Christian Johansson <christian@cvj.se>
 ;; Created: 3 Mar 2018
 ;; Modified: 2 Nov 2021
-;; Version: 0.4.11
+;; Version: 0.4.12
 ;; Keywords: tools, convenience
 ;; URL: https://github.com/cjohansson/emacs-phps-mode
 



reply via email to

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