From 2360bd543c8d60c868d2a8ad8f4ebb6464ddd01d Mon Sep 17 00:00:00 2001
From: Vincent Zhang <seagle0128@gmail.com>
Date: Wed, 26 Jun 2019 23:12:14 +0800
Subject: [PATCH] Ignore unhandled errors in after-change-functions.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Close #184.

If an unhandled error happens in running these functions,
the variable’s value remains nil.  That prevents the error
from happening repeatedly and making Emacs nonfunctional.
---
 doom-modeline-segments.el | 70 ++++++++++++++++++++-------------------
 1 file changed, 36 insertions(+), 34 deletions(-)

diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el
index 6da0cd2..2872e8d 100644
--- a/doom-modeline-segments.el
+++ b/doom-modeline-segments.el
@@ -264,31 +264,32 @@ Uses `all-the-icons-material' to fetch the icon."
 (defun doom-modeline-update-buffer-file-state-icon (&rest _)
   "Update the buffer or file state in mode-line."
   (setq doom-modeline--buffer-file-state-icon
-        (cond (buffer-read-only
-               (doom-modeline-buffer-file-state-icon
-                "lock"
-                "%1*"
-                'doom-modeline-warning))
-              ((and buffer-file-name (buffer-modified-p)
-                    doom-modeline-buffer-modification-icon)
-               (doom-modeline-buffer-file-state-icon
-                "save"
-                "%1*"
-                'doom-modeline-buffer-modified))
-              ((and buffer-file-name
-                    (not (file-exists-p buffer-file-name)))
-               (doom-modeline-buffer-file-state-icon
-                "do_not_disturb_alt"
-                "!"
-                'doom-modeline-urgent))
-              ((or (buffer-narrowed-p)
-                   (and (bound-and-true-p fancy-narrow-mode)
-                        (fancy-narrow-active-p)))
-               (doom-modeline-buffer-file-state-icon
-                "vertical_align_center"
-                "><"
-                'doom-modeline-warning))
-              (t ""))))
+        (ignore-errors
+          (cond (buffer-read-only
+                 (doom-modeline-buffer-file-state-icon
+                  "lock"
+                  "%1*"
+                  'doom-modeline-warning))
+                ((and buffer-file-name (buffer-modified-p)
+                      doom-modeline-buffer-modification-icon)
+                 (doom-modeline-buffer-file-state-icon
+                  "save"
+                  "%1*"
+                  'doom-modeline-buffer-modified))
+                ((and buffer-file-name
+                      (not (file-exists-p buffer-file-name)))
+                 (doom-modeline-buffer-file-state-icon
+                  "do_not_disturb_alt"
+                  "!"
+                  'doom-modeline-urgent))
+                ((or (buffer-narrowed-p)
+                     (and (bound-and-true-p fancy-narrow-mode)
+                          (fancy-narrow-active-p)))
+                 (doom-modeline-buffer-file-state-icon
+                  "vertical_align_center"
+                  "><"
+                  'doom-modeline-warning))
+                (t "")))))
 (add-hook 'find-file-hook #'doom-modeline-update-buffer-file-state-icon)
 (add-hook 'after-revert-hook #'doom-modeline-update-buffer-file-state-icon)
 (add-hook 'after-save-hook #'doom-modeline-update-buffer-file-state-icon)
@@ -327,16 +328,17 @@ Uses `all-the-icons-material' to fetch the icon."
 (defun doom-modeline-update-buffer-file-name (&rest _)
   "Update buffer file name in mode-line."
   (setq doom-modeline--buffer-file-name
-        (save-match-data
-          (if buffer-file-name
-              (doom-modeline-buffer-file-name)
-            (propertize "%b"
-                        'face (if (doom-modeline--active)
-                                  'doom-modeline-buffer-file
-                                'mode-line-inactive)
-                        'help-echo "Buffer name
+        (ignore-errors
+          (save-match-data
+            (if buffer-file-name
+                (doom-modeline-buffer-file-name)
+              (propertize "%b"
+                          'face (if (doom-modeline--active)
+                                    'doom-modeline-buffer-file
+                                  'mode-line-inactive)
+                          'help-echo "Buffer name
 mouse-1: Previous buffer\nmouse-3: Next buffer"
-                        'local-map mode-line-buffer-identification-keymap)))))
+                          'local-map mode-line-buffer-identification-keymap))))))
 (add-hook 'find-file-hook #'doom-modeline-update-buffer-file-name)
 (add-hook 'after-revert-hook #'doom-modeline-update-buffer-file-name)
 (add-hook 'after-save-hook #'doom-modeline-update-buffer-file-name)