diff options
| author | Richard M. Stallman | 1996-06-21 15:33:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-21 15:33:46 +0000 |
| commit | bca55f26b253f3372e0565235431898340933d8f (patch) | |
| tree | f65182aa64ea1b81743fb2122d2dc470d8b6c453 /lisp | |
| parent | e649d07667c827997bfc1fbc51472d231af6a053 (diff) | |
| download | emacs-bca55f26b253f3372e0565235431898340933d8f.tar.gz emacs-bca55f26b253f3372e0565235431898340933d8f.zip | |
(mouse-buffer-menu): Use aref rather than string-match.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 1197 | (setq tail (buffer-list)) | 1197 | (setq tail (buffer-list)) |
| 1198 | (while tail | 1198 | (while tail |
| 1199 | (let ((elt (car tail))) | 1199 | (let ((elt (car tail))) |
| 1200 | (if (not (string-match "^ " | 1200 | (if (/= (aref (buffer-name elt) 0) ?\ ) |
| 1201 | (buffer-name elt))) | ||
| 1202 | (setq head | 1201 | (setq head |
| 1203 | (cons | 1202 | (cons |
| 1204 | (cons | 1203 | (cons |