From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: adamp_at@at_ipipan.waw.pl (Adam P.)
Newsgroups: gmane.emacs.help
Subject: Re: How to define a new font inserting command in AucTeX?
Date: Fri, 07 Feb 2003 19:14:38 +0100
Organization: IPI PAN
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <87bs1oyn3l.fsf@at_ipipan.waw.pl>
References: <m3lm0smazv.fsf@hotmail.com>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1044641658 21700 80.91.224.249 (7 Feb 2003 18:14:18 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 7 Feb 2003 18:14:18 +0000 (UTC)
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18hD0f-0005cW-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Fri, 07 Feb 2003 19:13:57 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18hD1z-0001y9-00
	for gnu-help-gnu-emacs@m.gmane.org; Fri, 07 Feb 2003 13:15:19 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!chcgil2-snh1.gtei.net!paloalto-snf1.gtei.net!news.gtei.net!enews.sgi.com!news.nask.pl!news.astercity.net!not-for-mail
Original-Newsgroups: comp.emacs,gnu.emacs.help
Original-Lines: 40
Original-NNTP-Posting-Host: 10.71.6.107
Original-X-Trace: foka.acn.pl 1044641523 9193 10.71.6.107 (7 Feb 2003 18:12:03 GMT)
Original-X-Complaints-To: abuse@astercity.net
Original-NNTP-Posting-Date: Fri, 7 Feb 2003 18:12:03 +0000 (UTC)
X-Tech-Contact: usenet@astercity.net
Face: iVBORw0KGgoAAAANSUhEUgAAAJcAAAAaBAMAAABIn9NMAAAAGFBMVEWvr6+T
 k5N3d3fa2tpWVlb///8uLi4GBgbQY3UmAAAB10lEQVR4nM3Vv1fCMBAHcBGq
 K/qs7mh19VfMipLAmja9dlasrNqK/Pterk0glOdDH4NZ4HtpP4RLKHuwu6H2
 /jGWve4Cit8YYSu0CL0rNPNSqETgbm4urUsKIF3HeDb3MD/qCLj7sNO0aO4x
 pbOwjZ3pAFZHHK1hucNeoFk1le5ZG7uCn4aHlfaNLf0WC7bDlOhchIRdiNEy
 iwK3JBWYHu2d9yKIcar3NcS4PziiUld4PeMjGBssncPBMt9WwCM9xjSxWDqC
 CATokuFSJRzXJR6tYrjYXCKWFXCyzKqCPEI1l9piHYiZ2UHzNWMJCZXMVT6G
 i7qC+N11ArPDbKvyvjQvmSRMf/abUgtLDAan5xZLqg2YqKjZ83oDDhbTurQZ
 s0exzm0sHBNW1CsD9VaXWlhmesYjh2VyAxZgu85NO6lnAfC6tIZJOGSI4WvM
 eNhkxLIIvgjjIWFxpUszVYL+wA14oJKH4Wkc7E/N0VAlHimDUUZMPXcmw9kn
 7SCo2Uu2kI83U+gthog9dUZUGk5Kh9Hv5A7o0Kp+8zVNRgyfHHfgD911b1em
 PAxzcOmmKF+rOWw91rCkEj42S4o/YKGa4ONWP0s7Qxl6J+zX2G4e2zP2v/+d
 doh9A3erZ1olBLkBAAAAAElFTkSuQmCC
X-Server-Info: http://www.astercity.net/news/
X-Real-Name: Adam Przepiorkowski
User-Agent: Gnus/5.090015 (Oort Gnus v0.15) Emacs/21.2
 (i386-debian-linux-gnu)
Cancel-Lock: sha1:ET2ZSsAPM3Qz1FaJRVSENY/uHxc=
X-Real-Address: Remove those _at_s
Original-Xref: shelby.stanford.edu comp.emacs:77488 gnu.emacs.help:109923
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:6428
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:6428

Gerald Wildgruber <gwil.remove.this.phrase@lrz.uni-muenchen.de> writes:

> Can anyone help me with the definition of a new font command in AucTeX; I
> would like to make 
>
> C-c C-f C-g
>
> insert the string
>
> \textgreek{}
>
> in analogy to the other font commands (like `C-c C-f C-e' for `\emph{}'),
> with text between point an mark being placed inbetween the brackets.
>
> How can I achieve this?

Does this work?

(setq LaTeX-font-list 
  '((?\C-a ""              ""  "\\mathcal{"    "}")
    (?\C-b "\\textbf{"     "}" "\\mathbf{"     "}")
    (?\C-c "\\textsc{"     "}")
    (?\C-e "\\emph{"       "}")
    (?\C-f "\\textsf{"     "}" "\\mathsf{"     "}")
    (?\C-i "\\textit{"     "}" "\\mathit{"     "}")
    (?\C-m "\\textmd{"     "}")
    (?\C-n "\\textnormal{" "}" "\\mathnormal{" "}")
    (?\C-r "\\textrm{"     "}" "\\mathrm{"     "}")
    (?\C-s "\\textsl{"     "}")
    (?\C-t "\\texttt{"     "}" "\\mathtt{"     "}")
    (?\C-u "\\textup{"     "}")
    (?\C-d "" "" t)
;; Note the line below
    (?\C-g "\\textgreek{" "}" "\\textgreek{" "}") 
    )
  )

  Adam
-- 
Name and address in X-Real...