[Emacs-diffs] scratch/flymake-refactor c5cc7e9 10/18: Make debugging flymake-proc.el easier

[João Távora]

branch: scratch/flymake-refactor
commit c5cc7e94a6aea1e4b92e87cc8e284e1e1941f835
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Make debugging flymake-proc.el easier
    
    * lisp/progmodes/flymake-proc.el (flymake-proc--diagnostics-for-pattern)
    (flymake-proc--process-sentinel)
    (flymake-proc--safe-delete-directory)
    (flymake-proc--start-syntax-check-process): Use condition-case-unless-debug.
---
 lisp/progmodes/flymake-proc.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el
index 1c5bfbf..022f025 100644
--- a/lisp/progmodes/flymake-proc.el
+++ b/lisp/progmodes/flymake-proc.el
@@ -396,7 +396,7 @@ Create parent directories as needed."
   (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
 
 (defun flymake-proc--diagnostics-for-pattern (proc pattern)
-  (condition-case err
+  (condition-case-unless-debug err
       (pcase-let ((`(,regexp ,file-idx ,line-idx ,col-idx ,message-idx)
                    pattern)
                   (retval))
@@ -485,7 +485,7 @@ Create parent directories as needed."
       (flymake-log 2 "process %d exited with code %d"
                    (process-id process) exit-status)
       (kill-buffer (process-get process 'flymake-proc--output-buffer))
-      (condition-case err
+      (condition-case-unless-debug err
           (progn
             (flymake-log 3 "cleaning up using %s" cleanup-f)
             (when (buffer-live-p source-buffer)
@@ -646,7 +646,7 @@ Instead of a function, it can also be a regular 
expression.")
     (flymake-log 1 "deleted file %s" file-name)))
 
 (defun flymake-proc--safe-delete-directory (dir-name)
-  (condition-case nil
+  (condition-case-unless-debug nil
       (progn
        (delete-directory dir-name)
        (flymake-log 1 "deleted dir %s" dir-name))
@@ -682,7 +682,7 @@ Instead of a function, it can also be a regular 
expression.")
 
 (defun flymake-proc--start-syntax-check-process (cmd args dir)
   "Start syntax check process."
-  (condition-case err
+  (condition-case-unless-debug err
       (let* ((process
               (let ((default-directory (or dir default-directory)))
                 (when dir