From bca55f26b253f3372e0565235431898340933d8f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Jun 1996 15:33:46 +0000 Subject: [PATCH] (mouse-buffer-menu): Use aref rather than string-match. --- lisp/mouse.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 351d9fcd1a9..bd4e439b21e 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1197,8 +1197,7 @@ and selects that window." (setq tail (buffer-list)) (while tail (let ((elt (car tail))) - (if (not (string-match "^ " - (buffer-name elt))) + (if (/= (aref (buffer-name elt) 0) ?\ ) (setq head (cons (cons -- 2.39.5