branch: externals/phps-mode
commit 04d328b0b2a37f80e4fffc62e902a1df323b165c
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Improved error reporting with asynchronous threads
---
phps-mode-serial.el | 13 +++----------
phps-mode.el | 8 +++-----
2 files changed, 6 insertions(+), 15 deletions(-)
diff --git a/phps-mode-serial.el b/phps-mode-serial.el
index 5b5ce77..3f9a363 100644
--- a/phps-mode-serial.el
+++ b/phps-mode-serial.el
@@ -127,14 +127,11 @@
(elapsed (- end-time-float start-time-float)))
(message "Serial asynchronous thread start finished,
elapsed: %fs" elapsed))
- ;; (setq start-time (current-time))
-
(let ((status (car start-return))
(value (car (cdr start-return)))
(start-time (car (cdr (cdr start-return)))))
(when (string= status "success")
-
;; Then execute end lambda
(condition-case conditions
(let ((return (funcall end value)))
@@ -154,10 +151,10 @@
(value (car (cdr end-return))))
(when (string= status "error")
- (display-warning 'phps-mode (format "%s" (car
value)))))
+ (display-warning 'phps-mode (format "%s" (car
value))))))
- (when (string= status "error")
- (display-warning 'phps-mode (format "%s" (car
value))))))))
+ (when (string= status "error")
+ (display-warning 'phps-mode (format "%s" (car value)))))))
key)
phps-mode-serial--async-threads))
@@ -184,12 +181,8 @@
(value (car (cdr start-return)))
(start-time (car (cdr (cdr start-return)))))
- ;; (message "Return: %s" start-return)
-
(when (string= status "success")
- ;; (setq start-time (current-time))
-
;; Then execute end lambda
(condition-case conditions
(let ((return (funcall end value)))
diff --git a/phps-mode.el b/phps-mode.el
index d0fe190..36d5646 100644
--- a/phps-mode.el
+++ b/phps-mode.el
@@ -5,8 +5,8 @@
;; Author: Christian Johansson <christ...@cvj.se>
;; Maintainer: Christian Johansson <christ...@cvj.se>
;; Created: 3 Mar 2018
-;; Modified: 19 Feb 2020
-;; Version: 0.3.35
+;; Modified: 20 Feb 2020
+;; Version: 0.3.36
;; Keywords: tools, convenience
;; URL: https://github.com/cjohansson/emacs-phps-mode
@@ -231,9 +231,7 @@
;; Disable idle scheduler since we have customized this feature
(when (boundp 'semantic-idle-scheduler-mode)
- (setq semantic-idle-scheduler-mode nil))
-
-)
+ (setq semantic-idle-scheduler-mode nil)))
(provide 'phps-mode)
;;; phps-mode.el ends here
