|
From: | Pascal J. Bourguignon |
Subject: | Re: This code won't match buffer names. Why not? |
Date: | Mon, 31 Aug 2009 11:13:39 +0200 |
User-agent: | Gnus/5.101 (Gnus v5.10.10) Emacs/22.2 (gnu/linux) |
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__
[Prev in Thread] | Current Thread | [Next in Thread] |