Re: This code won't match buffer names. Why not?

[pjb@informatimago.com (Pascal J. Bourguignon)]

David Kastrup <dak@gnu.org> writes:

> Benjamin Andresen <benny@in-ulm.de> writes:
>
>> The rewritten code would be better written like this:
>>
>> (global-set-key (kbd "<f10>")
>>                 '(lambda ()
>>                   (interactive)
>>                   (next-buffer)
>>                   (while (member (buffer-name (current-buffer))
>>                                  '("*scratch*" "*Messages*" "*Whitespace Errors*"))
>>                     (next-buffer))))
>
> What if only *scratch* is left?

(defvar *bad-buffers* '("*scratch*" "*Messages*" "*Whitespace Errors*"))

(defun next-good-buffer ()
   (interactive)
   (unless (= 1 (length (buffer-list)))
      (next-buffer)
      (while (member (buffer-name (current-buffer)) *bad-buffers*)
          (next-buffer))))

(global-set-key (kbd "<f10>") 'next-good-buffer)

-- 
__Pascal Bourguignon__