Newsgroups: fj.editor.emacs,fj.lang.c
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!spinnews!juria!iida
From: iida@secom-sis.co.jp (IIDA, Yosiaki)
Subject: electric-c-quote
Message-ID: <IIDA.94May13172301@sayla.secom-sis.co.jp>
Sender: news@juria.secom-sis.co.jp
Nntp-Posting-Host: sayla
Reply-To: iida@secom-sis.co.jp
Organization: SECOM zyouhou sisutemu
Distribution: fj
Date: Fri, 13 May 1994 08:23:01 GMT
Lines: 26
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4700 fj.lang.c:1271
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=1271&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

  Emacs Lisp $B$H(B C $B8@8l$r$*;H$$$N3'$5$s!"$3$s$K$A$O!#(B
  $B$3$s$J$b$N$,$G$-$?$N$G!"Ej9F$7$^$9!#(B" $B$d(B ' $B$K%P%$%s%I$7$F(B
$B$*;H$$$/$@$5$$!#3'$5$s$N$4;XF3!"$4J\Z%!"%P%0%l%]!<%H!"2~NI$O(B
iida@secom-sis.co.jp $B$^$G!#(B
(defun electric-c-quote (arg)
  "Insert character (and backslash if quoted)."
  (interactive "P")
  (or arg
      (if (nth 3 (parse-partial-sexp
  (save-excursion (beginning-of-defun) (point))
  (point)))
  (or (eolp)
      (insert ?\\))
(self-insert-command 1)
(backward-char)))
  (self-insert-command (prefix-numeric-value arg)))
--
GNU's Not UNIX.  UNG's Not GNU.  IIDA, Yosiaki the Epigonen of RMS.

==========================================================================
IIDA, Yosiaki                            E-mail: iida@secom-sis.co.jp
SECOM zyouhou sisutemu kabusiki gaisya    phone: +81-3(5434)6433
141 Toukyou-to Sinagawa-ku Nisigotanda      FAX: +81-3(5434)6453
2-30-4 BR-Gotanda-Bldg
JAPAN
==========================================================================
