Content-Length: 2292 | pFad | http://github.com/DogLooksGood/parinfer-mode/commit/33b2996ed8040dd77720f9a216b152db891cbb43.diff

B8 diff --git a/parinfer.el b/parinfer.el index ce6271a..240145a 100644 --- a/parinfer.el +++ b/parinfer.el @@ -858,11 +858,18 @@ If There's no change, switch to Indent Mode." (text (buffer-substring-no-properties (point-min) (point-max))) (result (parinferlib-indent-mode text opts)) (success (plist-get result :success)) + (err (plist-get result :error)) + (error-message (plist-get err :message)) + (error-line-no (plist-get err :line-no)) (changed-lines (plist-get result :changed-lines))) (if (not success) (progn - (message (concat "Parinfer: Pairs unmatched, switch to Paren mode. " - "When pair fixed, You can switch to indent mode.")) + (message (concat "Parinfer: Error%s: \"%s\" - switch to Paren mode. " + "When error fixed, you can switch to indent mode.") + (if (null error-line-no) + "" + (format " on line %d" error-line-no)) + error-message) nil) (if (and changed-lines (not (string= text (plist-get result :text)))) @@ -886,11 +893,18 @@ If there's any change, display a confirm message in minibuffer." (text (buffer-substring-no-properties (point-min) (point-max))) (result (parinferlib-indent-mode text opts)) (success (plist-get result :success)) + (err (plist-get result :error)) + (error-message (plist-get err :message)) + (error-line-no (plist-get err :line-no)) (changed-lines (plist-get result :changed-lines))) (if (not success) (progn - (message (concat "Pairs unmatched, switch to Paren mode. " - "When pair fixed, You can switch to indent mode.")) + (message (concat "Parinfer: Error%s: \"%s\" - switch to Paren mode. " + "When error fixed, you can switch to indent mode.") + (if (null error-line-no) + "" + (format " on line %d" error-line-no)) + error-message) nil) (if (and changed-lines (not (string= text (plist-get result :text))))

pFad - (p)hone/(F)rame/(a)nonymizer/(d)eclutterfier! Saves Data!