Re: Fontification in ' *' buffers.

[Stefan Monnier]

> ! 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