[elpa] externals/valign 1c2c3b0 05/11: Add variable 'valign-signal-parse-error'

[Stefan Monnier]

branch: externals/valign
commit 1c2c3b03b2d53066a435e5094dc9a75bb29f0b60
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Add variable 'valign-signal-parse-error'
    
    * valign.el (valign-signal-parse-error): New variable.
    (valign-table-maybe): Don't report parse error if
    'valign-signal-parse-error' is nil.
---
 valign.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/valign.el b/valign.el
index df3c0fa..d56aaed 100644
--- a/valign.el
+++ b/valign.el
@@ -681,6 +681,9 @@ COLUMN-WIDTH-LIST is returned by 
`valign--calculate-cell-width'."
                                       kill-word)
   "Valign doesn’t align table after these commands.")
 
+(defvar valign-signal-parse-error nil
+  "When non-nil, signal parse error.")
+
 (defun valign-table-maybe (&optional force go-to-end)
   "Visually align the table at point.
 If FORCE non-nil, force align.  If GO-TO-END non-nil, leave point
@@ -703,7 +706,11 @@ at the end of the table."
      (valign--clean-text-property
       (save-excursion (valign--beginning-of-table) (point))
       (save-excursion (valign--end-of-table) (point)))
-     (message "%s" (error-message-string err)))))
+     ;; Ignore parse error when not in debug mode.
+     (if (and (not valign-signal-parse-error)
+              (eq (car err) 'valign-parse-error))
+         nil
+       (signal (car err) (cdr err))))))
 
 (defun valign-table-1 ()
   "Visually align the table at point."