FRC posted this on gnu.emacs.help:
<FRC post>
It goes like this in the jde-mode-hook of my .emacs:
(mapatoms
(lambda (symb) (and (symbolp (symbol-function symb)) (string-match
"tempo-template-jde-gen" (symbol-name (symbol-function symb)))
(put (symbol-function symb) 'no-self-insert t)))
local-abbrev-table)
I'm still an Emacs-Lisp rookie, so there might be a better way to get
the same result.
Note that it somewhat messed with completions within comments, as in
these cases I do want the space insertion but the expansion (even if
void) eats it unconditionally. This is a minor pb AFAIC and quoting
with C-q does the job.
HTH,
FRC
</FRC post>
-----Original Message-----
From: Chitale, Sandip V
Sent: Wednesday, September 17, 2003 12:08 PM
To: '[EMAIL PROTECTED]'; 'Paul Kinnucan'
Cc: '[EMAIL PROTECTED]'
Subject: if template
Marcel,
I think I have a solution for your issue:
<ISSUE>
I've got a problem with jde's if-template. F.e. I want to write
if (a == b) {
}
However, when I type `i' - `f' - <SPACE>, this here happens:
if ( [cursor]) {
}
As you can see, there's a space before the cursor. This space does not
appear because of one of these 3 conditional spaces but because of me
having typed the <space> key. What do I have to change in order to get
after typing `i' - `f' - <SPACE> this here:
if ([cursor]) {
}
that is there's no space before the cursor.
</ISSUE>
The solution is to set the 'no-self-insert property of the
tempo-template-* defuns. These tempo-template defuns are created in
jde-gen-define-abbrev-template in jde-gen.el Here is the hacked code:
(defun jde-gen-define-abbrev-template (abbrev template)
"Defines a TEMPLATE that replaces ABBREV when you type ABBREV in a JDE
source buffer. TEMPLATE is a list of tempo template elements. See
`tempo-define-template' for information on template elements. The
resulting template is added to the list bound to
`jde-gen-abbrev-templates'. "
(let ((template-name (concat "jde-gen-" abbrev)))
(defalias (intern template-name)
(tempo-define-template
template-name
template
abbrev
(format "JDE template for %s control flow abbreviation." abbrev)
'jde-gen-abbrev-templates))
(put (intern (concat "tempo-template-" template-name))
'no-self-insert t)))
I am sure the defun could be optimized and integrated into jde or
defadvised(?).
Paul, can you integrate this?
