From 165a1e6853c27ee685eca4bc1de20a045b18a6d7 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Thu, 23 Apr 2020 10:12:59 +0100 Subject: [PATCH] el/dot-emacs.el: Use plain `equal' for comparing terminal names. It seems that the three-argument version of `assoc' is too new. --- el/dot-emacs.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 0a5274c..07e177d 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -1873,9 +1873,9 @@ doesn't match any of the regular expressions in (when (let ((term (frame-parameter nil 'tty-type))) (and term (string-match "^xterm" term))) (let* ((tty (frame-parameter nil 'tty)) - (old (assoc tty terminal-title-alist #'string=)) + (old (assoc tty terminal-title-alist)) (new (format-mode-line frame-title-format))) - (unless (and old (string= (cdr old) new)) + (unless (and old (equal (cdr old) new)) (if old (rplacd old new) (setq terminal-title-alist (cons (cons tty new) terminal-title-alist))) -- 2.11.0