# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 768762135 0
# Node ID 9fccb6828abd5d4e5a96a82eb4f8449ace2c13f2
# Parent  e19c18ae2d02097a146af3e41a288edddfe65e5b
(menu-bar-update-buffers): Don't use string-match.

diff -r e19c18ae2d02 -r 9fccb6828abd lisp/menu-bar.el
--- a/lisp/menu-bar.el	Thu May 12 16:19:01 1994 +0000
+++ b/lisp/menu-bar.el	Thu May 12 17:02:15 1994 +0000
@@ -293,8 +293,7 @@
 		    (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