el/dot-emacs.el: Use plain `equal' for comparing terminal names.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 0a5274c..07e177d 100644 (file)
--- 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)))