From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 12 May 1994 17:02:15 +0000 (+0000)
Subject: (menu-bar-update-buffers): Don't use string-match.
X-Git-Tag: emacs-19.34~8379
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56df6a3f7f01e65eee108c2b61cb27030cde7e35;p=emacs.git

(menu-bar-update-buffers): Don't use string-match.
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index d198381babd..8b33d7d08c3 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -293,8 +293,7 @@ A large number or nil slows down menu responsiveness.")
 		    (setq tail buffers)
 		    (while tail
 		      (let ((elt (car tail)))
-			(if (not (string-match "^ "
-					       (buffer-name elt)))
+			(or (eq ?\ (aref (buffer-name elt) 0))
 			    (setq alist (cons
 					 (cons
 					  (format