Re: Fontification in ' *' buffers.

From: michael@cadilhac.name (Michaël Cadilhac)
To: emacs-devel@gnu.org
Subject: Re: Fontification in ' *' buffers.
Date: Fri, 31 Aug 2007 15:33:53 +0200	[thread overview]
Message-ID: <87lkbr4ym6.fsf@cadilhac.name> (raw)
In-Reply-To: <87odgtavcu.fsf@cadilhac.name> ("Michaël Cadilhac"'s message of "Mon, 27 Aug 2007 16:46:25 +0200")

[-- Attachment #1.1: Type: text/plain, Size: 1098 bytes --]

michael@cadilhac.name (Michaël Cadilhac) writes:

>   (defun create-file-buffer (filename)
>     "Create a suitably named buffer for visiting FILENAME, and return it.
>   FILENAME (sans directory) is used unchanged if that name is free;
> ! 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)))))
>   
>   (defun generate-new-buffer (name)
>     "Create and return a buffer with a name based on NAME.

Installed.

-- 
 |   Michaël `Micha' Cadilhac       |  <ESC>ape this <COLON> thing,          |
 |   http://michael.cadilhac.name   |           <Q>uit and                   |
 |   JID/MSN:                       |    do <NOT> <RET>urn.                  |
 `----  michael.cadilhac@gmail.com  |          -- VI                    -  --'

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel