[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Abbrev , as ,_
|
From: |
Stefan Monnier |
|
Subject: |
Re: Abbrev , as ,_ |
|
Date: |
Thu, 30 Oct 2003 17:06:11 GMT |
|
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 |
[ Try to use TAB to indent your code, so it's easier to read for others. ]
> (let* ((face (get-text-property (point) 'face )))
> (if
> (or (equal face 'font-lock-comment-face)
> (equal face 'font-lock-string-face)
> (equal face 'font-lock-warning-face)
> (equal face 'font-lock-doc-face))
> (insert ",")
> (insert ", ")
> ))))
AKA
(insert
(if (member (get-text-property (point) 'face)
'(font-lock-comment-face font-lock-string-face
font-lock-warning-face font-lock-doc-face))
"," ", "))
-- Stefan