|
From: | Stefan Monnier |
Subject: | Re: Fontification in ' *' buffers. |
Date: | Mon, 27 Aug 2007 16:13:37 -0400 |
User-agent: | Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux) |
> ! otherwise a string <2> or <3> or ... is appended to get an unused name. > ! Spaces at the start of FILENAME (sans directory) are removed." > (let ((lastname (file-name-nondirectory filename))) > (if (string= lastname "") > (setq lastname filename)) > ! (save-match-data > ! (string-match "^ *\\(.*\\)" lastname) > ! (generate-new-buffer (match-string 1 lastname))))) Sounds like a good alternate solution. Stefan
[Prev in Thread] | Current Thread | [Next in Thread] |