diff options
| author | Karl Heuer | 1994-05-12 17:02:15 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-05-12 17:02:15 +0000 |
| commit | 56df6a3f7f01e65eee108c2b61cb27030cde7e35 (patch) | |
| tree | b6a31d2687b26de418d07b62113e2a4d937de051 | |
| parent | d6f08da40f6c98991c772bc28cad12117cc81fc8 (diff) | |
| download | emacs-56df6a3f7f01e65eee108c2b61cb27030cde7e35.tar.gz emacs-56df6a3f7f01e65eee108c2b61cb27030cde7e35.zip | |
(menu-bar-update-buffers): Don't use string-match.
| -rw-r--r-- | lisp/menu-bar.el | 3 |
1 files changed, 1 insertions, 2 deletions
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.") | |||
| 293 | (setq tail buffers) | 293 | (setq tail buffers) |
| 294 | (while tail | 294 | (while tail |
| 295 | (let ((elt (car tail))) | 295 | (let ((elt (car tail))) |
| 296 | (if (not (string-match "^ " | 296 | (or (eq ?\ (aref (buffer-name elt) 0)) |
| 297 | (buffer-name elt))) | ||
| 298 | (setq alist (cons | 297 | (setq alist (cons |
| 299 | (cons | 298 | (cons |
| 300 | (format | 299 | (format |