Source

ecb / ecb-mode-line.el

Diff from to

ecb-mode-line.el

              (let* ((prefix-elem (ecb-some (function
                                             (lambda (p)
                                               (cond ((stringp (car p))
-                                                     (if (string= (car p)
-                                                                  (buffer-name buffer))
+                                                     (if (ecb-string= (car p)
+                                                                      (buffer-name buffer))
                                                          (cdr p)
                                                        nil))
                                                     ((and (symbolp (car p))
                                                           (boundp (car p))
                                                           (stringp (symbol-value (car p))))
-                                                     (if (string= (symbol-value (car p))
-                                                                  (buffer-name buffer))
+                                                     (if (ecb-string= (symbol-value (car p))
+                                                                      (buffer-name buffer))
                                                          (cdr p)
                                                        nil))
                                                     (t (ecb-error "ecb-mode-line-format: Can not get prefix-elem: %s" p)))))
                     (data-elem (ecb-some (function
                                           (lambda (p)
                                             (cond ((stringp (car p))
-                                                   (if (string= (car p)
-                                                                (buffer-name buffer))
+                                                   (if (ecb-string= (car p)
+                                                                    (buffer-name buffer))
                                                        (cdr p)
                                                      nil))
                                                   ((and (symbolp (car p))
                                                         (boundp (car p))
                                                         (stringp (symbol-value (car p))))
-                                                   (if (string= (symbol-value (car p))
-                                                                (buffer-name buffer))
+                                                   (if (ecb-string= (symbol-value (car p))
+                                                                    (buffer-name buffer))
                                                        (cdr p)
                                                      nil))
                                                   (t (ecb-error "ecb-mode-line-format: Can not get data-elem: %s" p)))))