diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2007-03-17 18:03:25 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2007-03-17 18:03:25 +0000 |
commit | a110b98e8caef764c5163b2858452170c62900b8 (patch) | |
tree | 1723160029b6c7716cc6312139f4dd0b6625a995 /lisp/tempo.el | |
parent | ac1f6415230ce3ab6e359ba92449c59522f027e4 (diff) | |
download | emacs-a110b98e8caef764c5163b2858452170c62900b8.tar.gz |
(tempo-insert): Deal with 'r> if it appears specified with a prompt
argument.
Diffstat (limited to 'lisp/tempo.el')
-rw-r--r-- | lisp/tempo.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/tempo.el b/lisp/tempo.el index 64427d8ccf4..f12c126c349 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -266,6 +266,8 @@ The elements in ELEMENTS can be of several types: that you often should place this item after the text you want on the line. - `r>': Like `r', but it also indents the region. + - (r> PROMPT <NAME> <NOINSERT>): Like (r ...), but is also indents + the region. - `n>': Inserts a newline and indents line. - `o': Like `%' but leaves the point before the newline. - nil: It is ignored. @@ -352,6 +354,13 @@ possible." (goto-char tempo-region-stop) (tempo-insert-prompt-compat (cdr element)))) + ((and (consp element) + (eq (car element) 'r>)) (if on-region + (progn + (goto-char tempo-region-stop) + (indent-region (mark) (point) nil)) + (tempo-insert-prompt-compat + (cdr element)))) ((and (consp element) (eq (car element) 's)) (tempo-insert-named (car (cdr element)))) ((and (consp element) |