Mercurial > emacs
comparison lisp/menu-bar.el @ 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 | 6207bb464d7b |
| children | 9c6abdf5541a |
comparison
equal
deleted
inserted
replaced
| 7473:e19c18ae2d02 | 7474:9fccb6828abd |
|---|---|
| 291 (length (buffer-name (car tail)))))) | 291 (length (buffer-name (car tail)))))) |
| 292 (setq tail (cdr tail))) | 292 (setq tail (cdr tail))) |
| 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 |
| 301 (format "%%%ds %%s%%s %%s" | 300 (format "%%%ds %%s%%s %%s" |
| 302 maxbuf) | 301 maxbuf) |