diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-21 15:33:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-21 15:33:46 +0000 |
| commit | 670b562ceae780262bfe80dd30ab294401376d95 (patch) | |
| tree | 5e14f194588cca4facfa6a8e5e3430abe8357994 | |
| parent | 4164e871377120d2e0902597d86e328b8062a675 (diff) | |
| download | emacs-670b562ceae780262bfe80dd30ab294401376d95.tar.gz | |
(mouse-buffer-menu): Use aref rather than string-match.
| -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." (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 |