changeset 7474:9fccb6828abd

(menu-bar-update-buffers): Don't use string-match.
author Karl Heuer <kwzh@gnu.org>
date Thu, 12 May 1994 17:02:15 +0000
parents e19c18ae2d02
children 89ad22aef977
files lisp/menu-bar.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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