From afc8cb6efc9bff82bb9ecf1ceba063160b5fdd22 Mon Sep 17 00:00:00 2001
From: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Wed, 19 Dec 2018 23:53:52 +0100
Subject: Make sure frame title evaluation does not mess with query-replace

See linked bug report.
---
 .emacs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/.emacs b/.emacs
index 486aa69..f039442 100644
--- a/.emacs
+++ b/.emacs
@@ -285,8 +285,9 @@
 
 (setq frame-title-format
       '(:eval
-        (let ((project (my/project-name)))
-          (concat (when project (format "[%s] " project)) "%b"))))
+        (save-match-data
+          ((let ((project (my/project-name)))
+             (concat (when project (format "[%s] " project)) "%b"))))))
 
 ;; TODO: fringe fun: hideshowvis, git gutter…
 ;; TODO: decruftify mode-line (e.g. remove superflous parens)
-- 
cgit v1.2.3